Esegui comando / sottoprocedura Utilizzando timer VBA
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”.
Quando si esegue la macro, la macro “TimerMsg” visualizzerà una finestra di messaggio.
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.
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]