I denne artikkelen vil vi lage en makro for å ringe en annen makro eller utføre en kommando etter definerte tidsintervaller.
For å utføre makroen, klikk på "Start timer" -knappen.
Når du kjører makroen, vil “TimerMsg” -makroen vise en meldingsboks.
Når en bruker klikker på "OK" -knappen, tre sekunder senere, kalles "MsgProcedure" -makroen. “MsgProcedure” -makroen vil vise en meldingsboks.
Logisk forklaring
I dette eksemplet har vi opprettet to makroer “TimerMsg” og “MsgProcedure”. “TimerMsg” makroen viser en informasjonsmelding og kaller “MsgProcedure” etter å ha ventet i tre sekunder, som definert i koden.
Kode forklaring
Application.OnTime Method
Application.OnTime -metoden brukes til å planlegge en prosedyre som skal kjøres med bestemte tidsintervaller.
Syntaks
Program .OnTime Time, Prosedyrenavn
Tid angir tidsintervallet som prosedyren skal kjøres på.
Prosedyrenavn definerer navnet på prosedyren.
Vi har brukt Application.onTime -metoden for å planlegge “MsgProcedure” -makro.
Følg koden nedenfor
Option Explicit Sub TimerMsg () 'Declaring Date variable Dim AlertTime As Date' Viser meldingsboks ved starten av timeren MsgBox "Alarmen går om 3 sekunder!" 'Stille inn tid for timer i 3 sekunder etter aktiveringstiden AlertTime = Now + TimeValue ("00:00:03")' Aktivering av timeren og kjøring av MsgProcedure på slutten av timer -applikasjonen. OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Eksempelprosedyre opprettet for timer -eksempel MsgBox "Three Seconds is up!" Slutt Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post