求大神给优化一下代码,运行特缓慢,找不到哪里出了故障!

来源:互联网  责任编辑:小易  

m赋初值了吗,还是你错把m写成n了?a是double型的,你居然if(a[2]+a[3]+a[4]=6)你们老师没讲过怎么比较浮点数啊?else{ p=p;}这多此一举的是想干啥转义字符是'\\'吧惨不忍睹www.zgxue.com防采集请勿采集本网。

    Application.ScreenUpdating = False

    Dim arr

import java.util.HashMap;import java.util.Map;import java.util.Map.Entry;import java.util.Set;public class Demo { public static void main(String[]args){ 示例 Map,String>m=new

    Dim i As Integer

递归算法: public static long fib(long n){ if(n){ return n;} return fib(n-1)+fib(n-2);}循环算法: public static long fib(long n){ if(n){ return n;} long f0=0;long f1=1;long f2=1;for

    i = Sheets("设备出库").Range("c65536").End(xlUp).Row

MyComboBox 里面第一句话:是序列的意思 可有可无 第二句话:声明一个字符串,并初始化为空, 第三句话:创建一个数组 其它 你哪个不懂?

    arr = Sheets("设备出库").Range("c2:i" & i).Value

这个简单呀,递归做就好了 这样会倒着从第n个数往回写 void fibonacci(int num){ assert num>=0;Num取正值 if((0=num)|(1=num)){ System.out.print(num+\",\");} else{ System.out.print(fibonacci

    Dim r, l, g As Integer

介绍采集程序的方法分成以下几个函数来实现: 1:SaveFiles(byref from,byref tofile) 作用:利用流保存文件 ' 参数:from(远程文件地址),tofile(保存文件位置) 2:IsExists(byref filespec)

    l = 0

    Dim hang As Integer

    

    

    Dim kucun As Variant

    kucun = Sheets("终端设备").[a1].CurrentRegion

    Dim rows As Integer

    For r = 1 To UBound(arr)

        If arr(r, 5) <> "" Then

            For rows = 1 To UBound(kucun)

                If arr(r, 1) = rows Then

                    kucun(rows, 4) = arr(r, 3)

                    kucun(rows, 9) = arr(r, 5)

                    kucun(rows, 8) = Now()

                    kucun(rows, 10) = arr(r, 6)

                    kucun(rows, 14) = arr(r, 7)

                    l = l + 1

                End If

            Next

        End If

    Next

    hang = UBound(arr) - 1

    Dim brr() As Variant

    ReDim brr(0 To 6, 0 To hang)

    For r = 1 To UBound(arr)

        If arr(r, 5) <> "" Then

            brr(0, r - 1) = Now()

            brr(1, r - 1) = arr(r, 2)

            brr(2, r - 1) = arr(r, 4)

            brr(3, r - 1) = arr(r, 5)

            brr(4, r - 1) = arr(r, 6)

            brr(5, r - 1) = arr(r, 7)

        End If

    Next

    Sheets("终端设备").[a1].Resize(UBound(kucun), 14) = kucun

    g = Sheets("设备出库记录").Range("a1048576").End(xlUp).Row + 1

    Sheets("设备出库记录").Cells(g, 1).Resize(UBound(Transpose(brr)) + 1, UBound(Transpose(brr), 2)) = Transpose(brr)

    Set brr(6, hang) = Nothing

    Set kucun = Nothing

    Application.ScreenUpdating = True

    MsgBox "已出库 " & l & " 提示"

    Set arr = Nothing

    

    Sheets("设备出库").Range("c2:i1000").Value = ""

    Sheets("临时记录").Range("a2:g1000").Value = ""

    ThisWorkbook.Save (adsbygoogle = window.adsbygoogle || []).push({});

方便把文件共享一下吗,就是上传到百度网盘,然后共享文件,把生成的共享代码贴在这里;

引用 1 楼 milaoshu1020 的回复:
方便把文件共享一下吗,就是上传到百度网盘,然后共享文件,把生成的共享代码贴在这里;
和别的地方无关联,现在优化了一下,关闭了屏幕刷新,感觉好点,但是还是慢?以前用的OFFICE2013,现在改16了,是不是这个缘故?

没有数据,没法测试快慢;

第二个函数中s的地址往前移动了追问那有何错误?内容来自www.zgxue.com请勿采集。


  • 本文相关:
  • 请各位大神看下 以下代码运行出来为什么是不同的结果???
  • c语言一运行就停止工作 ,以下是代码,求大神们帮帮忙
  • 请大神看看以下代码有什么问题吗?运行总是出错!
  • 公司考题,会JAVA的大神帮忙做下以下代码main方法运行后输出的结果,谢谢了
  • 公司考题,会JAVA的大神帮忙做下以下代码main方法运行后输出的结果,谢谢了
  • 公司考题,会JAVA的大神帮忙做下以下代码main方法运行后输出的结果,谢谢了
  • 请大神解释以下JAVA代码怎么运行的,尤其MyComboBox类里面几个函数的作用
  • 公司考题,会JAVA的大神帮忙做下以下代码main方法运行后输出的结果,谢谢了
  • 网页如何生成本地文件并运行,求大神给段代码,或者给个参考资料地址
  • 求大神帮我分析下以下这个代码哪错了,
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2017 www.zgxue.com All Rights Reserved