Excel VBA TIMER Funktion
Der VBA-Timer ist eine eingebaute Funktion, die verwendet wird, um den Bruchwert von Sekunden anzugeben. Es ist eine sehr nützliche Funktion, die verwendet wird, um manchmal einen Satz von Codes anzuhalten oder sie basierend auf der vom Benutzer angegebenen Zeit fortzusetzen. Der Timer ist einfach wird als Anweisung in VBA mit der Eingabe von Zeit verwendet.
In einfachen Worten gibt der TIMER die Gesamtzahl der Sekunden an, die seit Mitternacht des aktuellen Tages vergangen sind. Ab Zeile eins des Codes können wir tatsächlich die Zeit verfolgen, die unser Code benötigt, um den in der Unterprozedur angegebenen Prozess abzuschließen.
Manchmal, wenn Sie einen Code schreiben und die Codedauer testen möchten, dh wie lange benötigt Ihr Code insgesamt, um den Unterprozess abzuschließen. Indem Sie die tatsächliche Dauer Ihres Codes testen, können Sie Ihren Code effizienter gestalten und den zeitaufwändigen Prozess vermeiden, indem Sie unerwünschte oder lange Codes aus Ihrem Modul löschen.
Wie verwende ich die TIMER-Funktion in VBA?
Wie ich bereits sagte, kehrt die TIMER-Funktion zurück, die gesamten Sekunden, die seit Mitternacht des aktuellen Datums vergangen sind. Wenn ich diesen Artikel schreibe, ist es in Indien 13:50:45 Uhr.
Ich habe einen Makronamen erstellt und den Wert TIMER im VBA-Meldungsfeld zugewiesen.
Code:
Sub Timer_Example1 () MsgBox Timer End Sub
Wenn ich diesen Code ausführe, erhalte ich das Ergebnis als 50480.08.
Dies sind die gesamten Sekunden, die seit der heutigen Mitternacht vergangen sind, dh ab 12:00:00 Uhr.
Von Mitternacht 12 bis zur aktuellen Zeit 14:01:20 sind also insgesamt 14 Stunden 1 Minute und 20 Sekunden vergangen. In Sekunden ist es gleich 50480.08, was durch unsere TIMER-Funktion gegeben ist.
Beispiele
Beispiel 1 - Berechnen Sie die Gesamtzeit Ihres Codes
Jetzt führen wir eine einfache Codierung durch, um die Zeit zu testen, die der VBA für die Ausführung der Prozedur benötigt. Ich habe Code geschrieben, wie im folgenden Bild gezeigt.
Code:
Sub Do_Until_Example1 () Dim ST als Single ST = Timer Dim x As Long x = 1 Do Bis x = 100000 Zellen (x, 1) .Value = xx = x + 1 Schleife MsgBox Timer - ST End Sub
Wenn ich diesen Code jetzt ausführe, wird mir die Gesamtzeit angezeigt, die der VBA für die Ausführung benötigt.
Es heißt 3.058594. Das Ergebnis dieser Funktion ist in Sekunden angegeben, dh die Gesamtzeit dieses Codes beträgt 3,058 Sekunden.
Damit Sie den Code verwenden können, habe ich den folgenden Code für Sie geschrieben.
Code:
Sub Timer_Example1 () Dim StartingTime As Single StartingTime = Timer 'Geben Sie hier Ihren Code ein' Geben Sie hier Ihren Code ein 'Geben Sie hier Ihren Code ein' Geben Sie hier Ihren Code ein MsgBox Timer - StartingTime End Sub
Verwenden Sie das oben Gesagte und geben Sie Ihren Code nach dem Code StartingTime = Timer ein, aber vor dem Code MsgBox Timer - StartingTime, dh in einem grünen Bereich, müssen Sie Ihren Code eingeben.
Erläuterung: Erstens bedeutet die Variable StartingTime = Timer, dass zum Zeitpunkt der Ausführung des Codes die Zeit von Mitternacht bis zur Laufzeit des Codes verstrichen ist.
Timer - StartingTime: Dies bedeutet, dass nach dem Ausführen des Codes die verstrichene Zeit abzüglich der am Anfang des Codes aufgezeichneten Zeit durch die variable Startzeit verstrichen ist .
Dies gibt den Unterschied zwischen Start- und Endzeit an und gibt das Ergebnis zurück.
Beispiel 2 - Zeigen Sie das Ergebnis im richtigen Zeitformat an
Wie wir gesehen haben, ist das von der Funktion angegebene Ergebnis in Sekunden, aber nicht in einem genauen Format. Mit der Funktion FORMAT können wir jedoch ein VBA-Zeitformat auf das Endergebnis anwenden.
Verwenden Sie den folgenden Code, um das Ergebnis im richtigen Zeitformat anzuzeigen, dh im Format „hh: mm: ss“.
Ich habe hier die FORMAT-Funktion verwendet. Das Ergebnis ist gegeben durch (Timer - Startzeit). Ich habe es durch die Nummer 86400 geteilt, um es gemäß den Zeitformatregeln in Sekunden umzuwandeln. Dann habe ich das Zeitformat in einem Stunden-, Minuten- und Sekundenformat angewendet.
Wenn ich nun den Code ausführe, wird das Ergebnis so angezeigt.
Der Code benötigt also insgesamt 3 Sekunden.
Das Schöne an diesem Code ist, dass er 60 Sekunden überschreitet. Das Ergebnis wird in Minuten angezeigt. Ich habe meinen Code für eine Minute angehalten (mit Strg + Pause) und sehe das Ergebnis.
Die Gesamtzeit, die dieser Code benötigt, beträgt jetzt 1 Minute 2 Sekunden.
Beispiel 3 - Alternativer Code zum Timer
Es gibt eine Alternative zu TIMER mit der Funktion NOW () . Unten ist der alternative Code.
Dinge, an die man sich erinnern sollte
- Die TIMER-Funktion ruht den Wert am Ende des Tages, dh um 23:59:59 Uhr.
- Die Funktion JETZT gibt das aktuelle Datum und die aktuelle Uhrzeit zurück.
- TIMER zeigt die gesamten Sekunden an, die seit dem aktuellen Datum Mitternacht vergangen sind.
