【Excel VBA】Timer

Timer()函数返回自凌晨00:00起的秒数和毫秒数。

Private Sub Constant_demo_Click()
msgbox("Time is : " & Now())
msgbox("Timer is: " & Timer())
End Sub

例子

Sub Counter_Looping_for_Timer()
'for tab Find (for Timer testing)

Dim r As Long
Dim i As Byte
i = 3
Dim Start

' 记录开始的时间
Start = VBA.Timer
Range("D3:D6").ClearContents
'this part is hardcoded for the purpose of testing the Timer Function
For r = 8 To 200000
If UCase(Range("A" & r).Value) = UCase(Range("B3").Value) Then
Range("D" & i).Value = Range("E" & r).Value
i = i + 1
End If
Next r

' 用debug输出运算时间
Debug.Print Round(Timer - Start, 3)

End Sub