Befehl ausführen / Sub-Prozedur Mit VBA Timer
In diesem Artikel erstellen wir ein Makro, um ein anderes Makro aufzurufen oder einen Befehl nach definierten Zeitintervallen auszuführen.
Um das Makro auszuführen, klicken Sie auf die Schaltfläche „Start Timer“.
Beim Ausführen des Makros zeigt das Makro „TimerMsg“ ein Meldungsfeld an.
Wenn ein Benutzer drei Sekunden später auf die Schaltfläche „OK“ klickt, wird das Makro „MsgProcedure“ aufgerufen. Das Makro „MsgProcedure“ zeigt ein Meldungsfeld an.
Logische Erklärung
In diesem Beispiel haben wir zwei Makros „TimerMsg“ und „MsgProcedure“ erstellt. Das Makro „TimerMsg“ ** zeigt eine Informationsmeldung an und ruft nach drei Sekunden Wartezeit „MsgProcedure“ auf, wie im Code definiert.
Code Erklärung
Application.OnTime-Methode
Die Application.OnTime-Methode wird verwendet, um eine Prozedur zu planen, die in definierten Zeitintervallen ausgeführt wird.
Syntax
Anwendung .OnTime Time, Procedure_name Time gibt das Zeitintervall an, in dem die Prozedur ausgeführt werden soll.
Prozedurname definiert den Namen der Prozedur.
Wir haben die Application.onTime-Methode verwendet, um das Makro „MsgProcedure“ zu planen.
Bitte folgen Sie unten für den Code
Option Explicit Sub TimerMsg() 'Declaring Date variable Dim AlertTime As Date 'Displaying message box at the start of the timer MsgBox "The alarm will go off in 3 seconds!" 'Setting timer time for 3 seconds after the activation time AlertTime = Now + TimeValue("00:00:03") 'Activating the timer and running the MsgProcedure at the end of the timer Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure() 'Sample procedure created for timer example MsgBox "Three Seconds is up!" End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]