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".
Durante l'esecuzione della 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". “TimerMsg” visualizza un messaggio informativo e chiama “MsgProcedure” dopo aver atteso tre secondi, come definito nel codice.
Spiegazione del codice
Applicazione. Metodo OnTime
Il metodo Application.OnTime viene utilizzato per pianificare l'esecuzione di una procedura a intervalli di tempo definiti.
Sintassi
Applicazione .OnTime Time, nome_procedura
Ora specifica l'intervallo di tempo in cui deve essere eseguita la procedura.
Nome_procedura definisce il nome della procedura.
Abbiamo utilizzato il metodo Application.onTime per pianificare la macro "MsgProcedure".
Si prega di seguire sotto per il codice
Option Explicit Sub TimerMsg() 'Dichiarazione della variabile Date Dim AlertTime As Date 'Mostra finestra di messaggio all'inizio del timer MsgBox "L'allarme scatterà tra 3 secondi!" 'Impostazione del tempo del timer per 3 secondi dopo l'orario di attivazione AlertTime = Now + TimeValue("00:00:03") 'Attivazione del timer ed esecuzione di MsgProcedure alla fine del timer Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure() 'Esempio di procedura creata per esempio timer MsgBox "Tre secondi scaduti!" Fine sottotitolo
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica