Šajā rakstā mēs izveidosim makro, lai izsauktu citu makro vai izpildītu komandu pēc noteiktiem laika intervāliem.
Lai izpildītu makro, noklikšķiniet uz pogas “Sākt taimeri”.
Palaižot makro, “TimerMsg” makro parādīs ziņojumu lodziņu.
Kad lietotājs noklikšķina uz pogas “Labi”, trīs sekundes vēlāk tiks izsaukts “MsgProcedure” makro. Makro “MsgProcedure” parādīs ziņojumu lodziņu.
Loģisks skaidrojums
Šajā piemērā mēs esam izveidojuši divus makro “TimerMsg” un “MsgProcedure”. “Taimera ziņojums” makro parāda informācijas ziņojumu un pēc trīs sekunžu gaidīšanas izsauc “MsgProcedure”, kā noteikts kodā.
Koda skaidrojums
Lietojumprogramma. Vienreizēja metode
Application.OnTime metode tiek izmantota, lai ieplānotu procedūras izpildi noteiktos laika intervālos.
Sintakse
Lietojumprogramma. Vienreizējs laiks, procedūras_nosaukums
Laiks nosaka laika intervālu, kurā procedūra jāpalaiž.
Procedūras_nosaukums definē procedūras nosaukumu.
Mēs esam izmantojuši metodi Application.onTime, lai ieplānotu makro “MsgProcedure”.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub TimerMsg () 'Datuma mainīgais mainīgais Dim AlertTime As Date' Tiek parādīts ziņojumu lodziņš taimera sākumā MsgBox "Modinātājs izslēgsies pēc 3 sekundēm!" 'Taimera laika iestatīšana 3 sekundēm pēc aktivizācijas laika AlertTime = Now + TimeValue ("00:00:03")' Taimera aktivizēšana un MsgProcedure palaišana taimera beigās Application.OnTime AlertTime, "MsgProcedure" Beigu apakšapakšdaļa MsgProcedure () 'Parauga procedūra, kas izveidota taimera piemēram MsgBox "Trīs sekundes ir pagājušas!" Beigt apakš
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē