VB运行速度怎么提升

wx_52533

在工作簿写了个VB程序包含了一个自定义窗体和三个模块。每次运行时最好的情况都要四五分钟，期间都动不了。很多时候WPS还会卡死界面加载不完整。退出不能退出需要强制关闭。很多时候真的快崩溃了，代码里使用了禁用屏幕更新来提升效率，作用不大。大佬们有什么办法吗
文件结果如图，文件太大压缩上传不了，代码如txt

z865593849

ykcbf1100

你都没上传附件，一切都是空谈。

wx_52533

ykcbf1100 发表于 2024-11-9 10:18
你都没上传附件，一切都是空谈。

上传了，您看下

ykcbf1100

wx_52533 发表于 2024-11-9 10:37
上传了，您看下

光上传代码有啥用啊，你这代码一看就是AI写的，数组都没用上，想快不可能的。

excel玉米

尽量在内存中读写和运算，少做操作excel对象的动作。

沈默00

上附件，，，，想快一些这代码得重写，，，

dambcer

慢正好可以摸鱼，哈哈哈

wx_52533

excel玉米 发表于 2024-11-9 10:50
尽量在内存中读写和运算，少做操作excel对象的动作。

就是想用代码帮助操作工作表啊，不操作对象能完成手动的工作吗

excel玉米

wx_52533 发表于 2024-11-9 13:54
就是想用代码帮助操作工作表啊，不操作对象能完成手动的工作吗

在开始阶段将excel对象读入内存数组中，进行运算后存入新数组，然后将新数组存到excel对象中。
所以，针对excel对象，除了开始和结束时有操作，其它都在内存数组中完成，会大大提升代码效率。
比如：
     dim arr , i% ,s%  ,Timer
     Timer =time
     arr=sheet1.range("a1:a10000").value              '工作表对象数据读入数组
     for i=1 to ubound(arr)
          s=s+1
          arr(i,1)=s
     next i

     sheet1.range("a1").resize(ubound(arr),ubound(arr,2))=arr      '数组写入工作表对象
     msgbox "代码运行时间为" & time -Timer
   '以上代码对excel对象操作了两次
----------------------------------------------------
dim i%, s% ,Timer
Timer =time
for i=1 to 10000
     s=s+1
     sheet1.range("A" & i)=s                  
next i
msgbox "代码运行时间为" & time -Timer
'以上代码对excel对象操作了一万次
-----------------------------------------------------
你可以运行验证上面两个不同的代码，运行得出的结果一样，但是出现的代码运行时间肯定是第一段代码要少。