VBA -timerfunksjonene returnerer antall sekunder som har gått siden midnatt på gjeldende dag (returnert som en enkelt datatype).
Bruke VBA -timerfunksjonen
Følgende kode viser deg hvordan du bruker VBA -timerfunksjonen til å bestemme hvor mange sekunder som har gått siden midnatt, da koden kjøres:
| 12345678 | Sub UsingTheVBATimerFunction ()Dim secondsSince As SinglesecondsSince = Timer ()Feilsøk.Skriv ut sekunder sidenSlutt Sub |
Resultatet er:
Bruk VBA Timer for å få Actual Time
Du kan konvertere sekundene som returneres fra Timer -funksjonen til hh: mm: ss -format for å se den faktiske tiden ved å bruke følgende kode:
| 123456789101112131415 | Sub GettingTheActualTime ()Dim secondsSince As SingleDim cTime As DoubleDim theActualTime som variantsecondsSince = Timer ()cTime = secondsSince / (86400)theActualTime = Format (cTime, "hh: mm: ss")MsgBox "Tiden som har gått siden midnatt i sekunder er" & "" og sekunder siden & vbNewLine & _"Den faktiske tiden er:" & "" & theActualTimeSlutt Sub |
Resultatet er:
Tid en seksjon av VBA -koden
Hvis du ønsker å sammenligne omskrevet kode eller debattere "raskere" metoder i VBA, kan du bruke VBAs innebygde timer. Hvis du setter en variabel som er lik timeren i begynnelsen av koden din og trekker denne fra timeren på slutten, får du en godt estimat hvor lang tid det tar å ta et stykke kode.
Ytelsen kan påvirkes av at andre programmer kjører eller prøver å kjøre mens makroen din er aktiv, blant annet.
Følgende eksempel ble brukt for å se hvor lang tid det ville ta å skrive ordet "test" til celle A1 på Sheet1 en halv million ganger. Det tok 21 sekunder på maskinen min.
| 123456789101112131415161718 | Sub BenchMark ()Dim Count As LongDim BenchMark As DoubleBenchMark = Timer'Start av kode for å testeFor telling = 1 til 500000Sheet1.Cells (1, 1) = "test"Neste telling'Slutt på kode for å testeMsgBox Timer - BenchMarkSlutt Sub |
Hvis koden din går sakte, kan du prøve å øke hastigheten ved å deaktivere oppdatering av skjermen. For å holde Excel -skjermen aktiv mens timeren kjører, kan vi sette inn DoEvents -metoden i koden.
