În acest articol, vom crea o macro pentru a apela o altă macro sau vom executa o comandă după intervale de timp definite.
Pentru a executa macro-ul, faceți clic pe butonul „Start Timer”.
La rularea macro-ului, macro-ul „TimerMsg” va afișa o casetă de mesaj.
Când un utilizator face clic pe butonul „OK”, trei secunde mai târziu, va fi apelată macrocomanda „MsgProcedure”. Macrocomanda „MsgProcedure” va afișa o casetă de mesaj.
Explicație logică
În acest exemplu, am creat două macrocomenzi „TimerMsg” și „MsgProcedure”. „TimerMsg” macro afișează un mesaj de informare și apelează „MsgProcedure” după ce așteptați trei secunde, așa cum este definit în cod.
Explicarea codului
Application.OnTime Method
Application.OnTime metoda este utilizată pentru a programa o procedură pentru a rula la intervale de timp definite.
Sintaxă
Aplicație .OnTime Time, procedure_name
Timpul specifică intervalul de timp la care trebuie executată procedura.
Procedure_name definește numele procedurii.
Am folosit metoda Application.onTime pentru a programa macro „MsgProcedure”.
Vă rugăm să urmați codul de mai jos
Opțiune Explicit Sub TimerMsg () 'Declararea variabilei de dată Dim AlertTime ca dată' Afișarea casetei de mesaj la începutul temporizatorului MsgBox "Alarma se va declanșa în 3 secunde!" 'Setarea timpului temporizatorului timp de 3 secunde după timpul de activare AlertTime = Now + TimeValue ("00:00:03")' Activarea temporizatorului și rularea MsgProcedure la sfârșitul aplicației timer.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Exemplu de procedură creat pentru cronometru exemplu MsgBox "Trei secunde este în funcțiune!" Sfârșitul Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail