V tem članku bomo ustvarili makro za klic drugega makra ali izvedli ukaz po določenih časovnih presledkih.
Če želite izvesti makro, kliknite gumb »Start Timer«.
Ko zaženete makro, bo makro »TimerMsg« prikazal polje s sporočilom.
Ko uporabnik klikne gumb »V redu«, se tri sekunde pozneje pokliče makro »MsgProcedure«. Makro »MsgProcedure« bo prikazal polje s sporočilom.
Logična razlaga
V tem primeru smo ustvarili dva makra »TimerMsg« in »MsgProcedure«. "TimerMsg" makro prikaže informativno sporočilo in po treh sekundah pokliče »MsgProcedure«, kot je opredeljeno v kodi.
Razlaga kode
Metoda OnTime
Metoda Application.OnTime se uporablja za načrtovanje izvajanja postopka v določenih časovnih presledkih.
Sintaksa
Čas. Čas uporabe, Ime_proceduracije
Čas določa časovni interval, v katerem je treba izvesti postopek.
Procedure_name določa ime postopka.
Za načrtovanje makra »MsgProcedure« smo uporabili metodo Application.onTime.
Za kodo sledite spodaj
Možnost Eksplicitni časovnik Sub TimerMsg () 'Razglasitev spremenljivke datuma Dim AlertTime As Date' Prikaz polja s sporočilom na začetku časovnika MsgBox "Alarm se bo sprožil v 3 sekundah!" 'Nastavitev časovnika za 3 sekunde po času aktiviranja AlertTime = Now + TimeValue ("00:00:03")' Aktiviranje časovnika in zagon postopka MsgProcedure na koncu aplikacije časovnika. MsgProcedure () 'Vzorec postopka, ustvarjenega za primer merilnika časa MsgBox "Tri sekunde so se iztekle!" End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte