In questo articolo, creeremo una macro per chiamare un’altra macro o eseguire un comando dopo intervalli di tempo definiti.

Per eseguire la macro, fare clic sul pulsante “Avvia timer”.

ArrowStartTimer

Quando si esegue la macro, la macro “TimerMsg” visualizzerà una finestra di messaggio.

ArrowStartingMessage

Quando un utente fa clic sul pulsante “OK”, tre secondi dopo, verrà chiamata la macro “MsgProcedure”. La macro “MsgProcedure” visualizzerà una finestra di messaggio.

Spiegazione logica

In questo esempio, abbiamo creato due macro “TimerMsg” e “MsgProcedure”. La macro “TimerMsg” ** visualizza un messaggio informativo e chiama “MsgProcedure” dopo aver atteso tre secondi, come definito nel codice.

ArrowAfterRunningMacro

Spiegazione del codice

Metodo Application.OnTime

Il metodo Application.OnTime viene utilizzato per pianificare l’esecuzione di una procedura a intervalli di tempo definiti.

Sintassi

Application .OnTime Time, Procedure_name Time specifica l’intervallo di tempo in cui eseguire la procedura.

Nome_procedura definisce il nome della procedura.

Abbiamo utilizzato il metodo Application.onTime per programmare la macro “MsgProcedure”.

Segui sotto per il codice

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

Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.

Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]