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“.

ArrowStartTimer

Beim Ausführen des Makros zeigt das Makro „TimerMsg“ ein Meldungsfeld an.

ArrowStartingMessage

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.

ArrowAfterRunningMacro

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]