VBA -timerfunktionerne returnerer det antal sekunder, der er gået siden midnat på den aktuelle dag (returneret som en enkelt datatype).
Brug af VBA -timerfunktionen
Følgende kode viser dig, hvordan du bruger VBA -timerfunktionen til at bestemme, hvor mange sekunder der er gået siden midnat, på det tidspunkt koden køres:
| 12345678 | Sub UsingTheVBATimerFunction ()Dim sekunder siden som singlesecondsSince = Timer ()Debug. Udskriv sekunder sidenAfslut Sub |
Resultatet er:
Brug VBA -timer til at få Faktisk tid
Du kan konvertere de sekunder, der returneres fra timerfunktionen til hh: mm: ss -format for at se den faktiske tid ved at bruge følgende kode:
| 123456789101112131415 | Sub GettingTheActualTime ()Dim sekunder siden som singleDim cTime som dobbeltDim theActualTime som variantsecondsSince = Timer ()cTime = secondsSince / (86400)theActualTime = Format (cTime, "hh: mm: ss")MsgBox "Den tid, der er gået siden midnat i sekunder, er" & "" og sekunder siden & vbNewLine & _"Den faktiske tid er:" & "" & theActualTimeAfslut Sub |
Resultatet er:
Tid en sektion af VBA -koden
Hvis du ønsker at benchmark omskrevet kode eller debattere "hurtigere" metoder i VBA, kan du bruge VBAs indbyggede timer. Hvis du indstiller en variabel, der er lig med timeren i starten af din kode og trækker denne fra timeren i slutningen, får du en godt skøn hvor lang tid et stykke kode tager at køre.
Ydeevnen kan blive påvirket af andre programmer, der kører eller forsøger at køre, mens du er makro, er blandt andet aktiv.
Følgende eksempel blev brugt til at se, hvor lang tid det ville tage at skrive ordet "test" til celle A1 på Sheet1 en halv million gange. Det tog 21 sekunder på min maskine.
| 123456789101112131415161718 | Sub BenchMark ()Dim Count så længeDim BenchMark As DoubleBenchMark = Timer'Start af kode til testFor optælling = 1 til 500000Sheet1.Cells (1, 1) = "test"Næste optælling'Slut på kode til testMsgBox Timer - BenchMarkAfslut Sub |
Hvis din kode kører langsomt, kan du prøve at fremskynde den ved at deaktivere skærmopdatering. For at holde Excel -skærmen aktiv, mens timeren kører, kan vi indsætte DoEvents -metoden i koden.
