U ovom ćemo članku stvoriti makro za pozivanje drugog makroa ili izvršiti naredbu nakon definiranih vremenskih intervala.
Da biste izvršili makro, kliknite gumb "Start Timer".
Prilikom pokretanja makronaredbe, makro "TimerMsg" prikazat će okvir s porukom.
Kada korisnik klikne gumb "U redu", tri sekunde kasnije pozvat će se makro "MsgProcedure". Makronaredba "MsgProcedure" prikazat će okvir s porukom.
Logično objašnjenje
U ovom primjeru stvorili smo dvije makroe “TimerMsg” i “MsgProcedure”. "TimerMsg" makro prikazuje informativnu poruku i poziva “MsgProcedure” nakon čekanja od tri sekunde, kako je definirano u kodu.
Objašnjenje koda
Primjena.Nevremena metoda
Metoda Application.OnTime koristi se za zakazivanje izvođenja postupka u definiranim vremenskim intervalima.
Sintaksa
Aplikacija .Vremensko vrijeme, Naziv_postupka
Vrijeme određuje vremenski interval u kojem se postupak treba pokrenuti.
Procedure_name definira naziv postupka.
Za zakazivanje makronaredbe “MsgProcedure” koristili smo aplikaciju Application.onTime.
Molimo slijedite dolje za kôd
Opcija Eksplicitni pomoćni tajmerMsg () 'Deklariranje varijable datuma Zatamni AlertTime kao datum' Prikaz okvira s porukom na početku mjerača vremena MsgBox "Alarm će se uključiti za 3 sekunde!" 'Postavljanje vremena mjerača na 3 sekunde nakon vremena aktivacije AlertTime = Now + TimeValue ("00:00:03")' Aktiviranje odbrojavanja i pokretanje MsgProcedure na kraju aplikacije mjerača vremena. OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Primjerak postupka kreiran za primjer mjerača vremena MsgBox "Tri sekunde su istekle!" Kraj podm
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte