Innehållsförteckning
Timer Beskrivning
Returnerar ett enda värde som representerar antalet sekunder som har gått sedan midnatt.
Enkla timer -exempel
Här är ett enkelt Timer -exempel:
| 123 | Sub Timer_Example ()MsgBox TimerAvsluta Sub |
Timersyntax
I VBA Editor, syntaxen för Timer -funktionen.
| 1 | Timer |
Timer -funktionen innehåller inga argument:
Exempel på Excel VBA -timerfunktion
Använd följande kodexempel och försök att jämföra sek1 och sek2.
Då kan vi enkelt veta innebörden av timerfunktionen.
| 123456789101112131415161718192021222324252627 | Sub Timer_Example1 ()Dim sec1 som singelDim sec2 As Longsec1 = Timersec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Avsluta SubFunktion GetSecondsFromMidnight () Så längeDim dt As DateDim h Som heltalDim m Som heltalDim s As Integerdt = Nuh = timme (dt)m = minut (dt)s = Andra (dt)minuter = h * 60 + msek = min * 60 + sGetSecondsFromMidnight = sekAvsluta funktion |
Med hjälp av timerfunktionen kan vi mäta hur lång tid det skulle ta att köra en del av VBA -koden.
| 1234567891011121314151617 | Sub Timer_Example2 ()Dim startSec som singelDim endSec As SingleDim i As LongstartSec = Timer'Start av VBA -kod för att testaFör i = 1 Till 500000DoEventsNästa i'Slut på VBA -kod att testaendSec = TimerMsgBox "Det tog" & CStr (endSec - startSec) & "s."Avsluta Sub |
