VBA测定代码运行时间

VBA测定代码运行时间

Sub 获取代码运行时间()

Dim tim1 As Date, tim2 As Date: tim1 = Timer

For b = a + 1 To 10000 '┓

Debug.Print b ' ┫ 代码自己填充

Next '┛

tim2 = Timer

MsgBox Format(tim2 - tim1, "程序已运行：0.00秒"), 64, "程序运行时间"

End Sub