Vykonajte príkaz/čiastkový postup pomocou časovača VBA

Anonim

V tomto článku vytvoríme makro na volanie iného makra alebo spustenie príkazu po definovaných časových intervaloch.

Makro spustíte kliknutím na tlačidlo „Spustiť časovač“.

Pri spustení makra zobrazí makro „TimerMsg“ okno so správou.

Keď používateľ klikne na tlačidlo „OK“, o tri sekundy neskôr sa vyvolá makro „MsgProcedure“. Makro „MsgProcedure“ zobrazí okno so správou.

Logické vysvetlenie

V tomto prípade sme vytvorili dve makrá „TimerMsg“ a „MsgProcedure“. “TimerMsg” makro zobrazí informačnú správu a po uplynutí troch sekúnd, ako je definované v kóde, zavolá „MsgProcedure“.

Vysvetlenie kódu

Metóda Application.OnTime

Metóda Application.OnTime sa používa na naplánovanie postupu, ktorý sa má spustiť v definovaných časových intervaloch.

Syntax

Aplikácia. Čas zapnutia, názov_ procedúry

Čas určuje časový interval, v ktorom sa má procedúra spustiť.

Procedúra_názov definuje názov procedúry.

Na naplánovanie makra „MsgProcedure“ sme použili metódu Application.onTime.

Pri kódovaní postupujte podľa nižšie uvedených pokynov

 Možnosť Explicitné čiastkové TimerMsg () „Vyhlásenie premennej dátumu Dim AlertTime ako dátum“ Zobrazenie okna so správou na začiatku časovača MsgBox „Alarm sa spustí o 3 sekundy!“ 'Nastavenie času časovača na 3 sekundy po aktivačnom čase AlertTime = Now + TimeValue ("00:00:03") "Aktivácia časovača a spustenie MsgProcedure na konci aplikácie časovača. OnTime AlertTime," MsgProcedure "End Sub Sub MsgProcedure () 'Ukážkový postup vytvorený pre príklad časovača MsgBox „Tri sekundy sú hore!“ Koniec pod 

Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.

Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku