V tomto článku vytvoříme makro pro volání jiného makra nebo spuštění příkazu po definovaných časových intervalech.
Makro spustíte kliknutím na tlačítko „Spustit časovač“.
Při spuštění makra zobrazí makro „TimerMsg“ okno se zprávou.
Když uživatel klikne na tlačítko „OK“, o tři sekundy později se zavolá makro „MsgProcedure“. Makro „MsgProcedure“ zobrazí okno se zprávou.
Logické vysvětlení
V tomto příkladu jsme vytvořili dvě makra „TimerMsg“ a „MsgProcedure“. “TimerMsg” makro po 3 sekundách čekání, jak je definováno v kódu, zobrazí informační zprávu a zavolá „MsgProcedure“.
Vysvětlení kódu
Metoda Application.OnTime
Metoda Application.OnTime se používá k naplánování spuštění procedury v definovaných časových intervalech.
Syntax
Čas aplikace. Čas zapnutí, název procedury
Čas určuje časový interval, ve kterém by měla být procedura spuštěna.
Název_ procedury definuje název procedury.
K naplánování makra „MsgProcedure“ jsme použili metodu Application.onTime.
Pro kód prosím postupujte níže
Možnost Explicit Sub Sub TimerMsg () 'Deklarace proměnné data Dim AlertTime As Date' Zobrazení okna se zprávou na začátku časovače MsgBox "Alarm se spustí za 3 sekundy!" 'Nastavení času časovače na 3 sekundy po aktivačním čase AlertTime = Now + TimeValue ("00:00:03")' Aktivace časovače a spuštění MsgProcedure na konci časovače Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Ukázková procedura vytvořená pro příklad časovače MsgBox "Tři sekundy jsou!" End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail
