分享一些关于VBA代码优化提速的资料

老伙计2008

多谢了！谁都有疏忽的时候，不然就不会有疏忽这的词汇了
我的问题的确是判断是否有交集的问题，用什么方法能更快呢？不知道application的方法中有没有可行的？

[ 本帖最后由 老伙计2008 于 2009-12-20 02:35 编辑 ]

老伙计2008

被传递的变量运算速度，比本地变量慢4倍。下面是示例，请楼主放在楼上。让更多的人受益。

1. Sub test1()
   
2.     Dim i As Long
   
3.     Dim j As Long
   
4.     Dim t As Single
   
5.     i = 0: j = 0
   
6.     t = Timer
   
7.    
   
8.     For j = 1 To 100000000
   
9.         i = i + 1
   
10.     Next
    
11.     t = Timer - t
    
12.     MsgBox CStr(t) & "   i=" & CStr(i)
    
13.     i = 0
    
14.     test2 i
    
15. End Sub
    
16. Sub test2(i)
    
17.     Dim j As Long
    
18.     Dim t As Single
    
19.     t = Timer
    
20. 
    
21.     For j = 1 To 100000000
    
22.         i = i + 1
    
23.     Next
    
24.     t = Timer - t
    
25.     MsgBox CStr(t) & "   i=" & CStr(i)
    
26. End Sub

复制代码

[ 本帖最后由 老伙计2008 于 2009-12-21 01:01 编辑 ]

Moneky

已经添加到了6楼

MIKE888

谢谢楼主分享，辛苦了。

老伙计2008

再次感谢楼主的分享。
我的程序有平均30亿次的强循环，原来运行一次43分钟，通过优化现在已经在12分钟内完成。

gaolinyou

学习中……

heaven2007

谢谢了，辛苦了！

nowarmy

需要慢慢学习和理解。谢谢楼主！

Xxiaoaojianghu

留个脚印！！！！！！！！！！！

赵国辉

1. result =InStr(";zero;;one;;;two;;;three;four;;five;;six;;;seven;eight;nine;", ";" & LCase$(word) & ";") \ 6

复制代码

没看明白，lz给解释下，谢谢哈