如何得到vba 程序运行过程花费的时间

ldazz5200

如题： 我对某个程序进行了优化，但我想知道优化前和优化后的时间差别，请问怎么得到一个SUB 过程花费的时间？比较精确的，到毫秒级。
          请教各位老师！！！

dsmch

t = Timer
代码
MsgBox Timer - t

ldazz5200

原帖由 dsmch 于 2011-5-29 15:07 发表
t = Timer
代码
MsgBox Timer - t

TKS，测试成功，感谢感谢，代码优化提高了0.4秒

三流高手

学习了，谢谢

香川群子

通用速度比较程序：

1. Sub SpeedCompare()
   
2.     Dim i&, m%
   
3.     m = 3 '此处m是设置运行次数。10的m次幂次。
   
4.     '如果程序单次运行时间很短，可以设置m值=3 即运行1000次，
   
5.    '甚至可设置m=6，即运行1百万次。
   
6.    '如果程序单次运行时间已经较长，则设置m=0，只运行10的0次方=1次。
   
7.    
   
8.     tms = Timer
   
9.     For i = 1 To 10 ^ m
   
10.         Call Macro1
    
11.     Next
    
12.     MsgBox Format(Timer - tms, "0.0000s")
    
13.    
    
14.     tms = Timer
    
15.     For i = 1 To 10 ^ m
    
16.         Call Macro2
    
17.     Next
    
18.     MsgBox Format(Timer - tms, "0.0000s")
    
19.    
    
20. End Sub

复制代码

ydlpc

学习了 谢谢

bantty2015

学了一个星期的VBA，呵呵

a68508122

。。。。。。。回错帖子 不好意思

学好VBA啊

我顶啊顶，