Vykdykite komandą/papildomą procedūrą naudodami VBA laikmatį

Turinys

Šiame straipsnyje mes sukursime makrokomandą, kad paskambintume kitai makrokomandai arba įvykdytume komandą po nustatytų laiko intervalų.

Norėdami vykdyti makrokomandą, spustelėkite mygtuką „Pradėti laikmatį“.

Paleidus makrokomandą, „TimerMsg“ makrokomanda parodys pranešimų laukelį.

Kai vartotojas spustelės mygtuką „Gerai“, po trijų sekundžių bus iškviesta „MsgProcedure“ makrokomanda. „MsgProcedure“ makrokomanda parodys pranešimų laukelį.

Loginis paaiškinimas

Šiame pavyzdyje sukūrėme dvi makrokomandas „TimerMsg“ ir „MsgProcedure“. „Laikmatis“ makro rodo informacinį pranešimą ir po trijų sekundžių, kaip nurodyta kode, iškviečia „MsgProcedure“.

Kodo paaiškinimas

Taikymas. Laiko metodas

Application.OnTime metodas naudojamas suplanuoti procedūrą, kuri bus vykdoma nustatytais laiko intervalais.

Sintaksė

Programa .OnTime Time, Procedūros_pavadinimas

Laikas nurodo laiko intervalą, kuriuo procedūra turi būti vykdoma.

Procedūros_vardas apibrėžia procedūros pavadinimą.

Mes panaudojome „Application.onTime“ metodą, kad suplanuotume „MsgProcedure“ makrokomandą.

Sekite toliau pateiktą kodą

 Parinktis „Explicit Sub TimerMsg ()“ Deklaravimo datos kintamasis „Dim AlertTime As Date“ Rodomas pranešimų laukelis laikmačio pradžioje „MsgBox“ „Signalizacija išsijungs po 3 sekundžių!“ 'Laikmačio laiko nustatymas 3 sekundėms po aktyvinimo laiko AlertTime = Dabar + TimeValue ("00:00:03")' Laikmačio aktyvinimas ir „MsgProcedure“ paleidimas laikmačio „Application.OnTime AlertTime“, „MsgProcedure“ pabaigoje MsgProcedure () 'Pavyzdinė procedūra sukurta laikmačio pavyzdžiui MsgBox "Trys sekundės baigėsi!" Pabaiga Sub 

Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.

Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el

Padėsite svetainės plėtrą, dalintis puslapį su draugais

wave wave wave wave wave