I denne artikel vil vi oprette en makro til at kalde en anden makro eller udføre en kommando efter definerede tidsintervaller.
For at udføre makroen skal du klikke på knappen "Start timer".
Når makroen køres, viser makroen "TimerMsg" en meddelelsesboks.
Når en bruger klikker på knappen "OK", tre sekunder senere, kaldes "MsgProcedure" -makroen. Makroen "MsgProcedure" viser en meddelelsesboks.
Logisk forklaring
I dette eksempel har vi oprettet to makroer "TimerMsg" og "MsgProcedure". “TimerMsg” makro viser en informationsmeddelelse og kalder "MsgProcedure" efter at have ventet i tre sekunder, som defineret i koden.
Kode forklaring
Application.OnTime -metode
Application.OnTime -metode bruges til at planlægge en procedure, der skal køres med bestemte tidsintervaller.
Syntaks
Ansøgning .OnTime Time, Procedure_name
Tid angiver det tidsinterval, hvormed proceduren skal køres.
Procedure_name definerer procedurens navn.
Vi har brugt Application.onTime -metoden til at planlægge "MsgProcedure" -makro.
Følg venligst nedenstående for koden
Option Eksplicit Sub TimerMsg () 'Declaring Date variable Dim AlertTime As Date' Viser meddelelsesboks ved starten af timeren MsgBox "Alarmen går ud om 3 sekunder!" 'Indstilling af timer -tid i 3 sekunder efter aktiveringstiden AlertTime = Now + TimeValue ("00:00:03")' Aktivering af timeren og kørsel af MsgProcedure i slutningen af timer -applikationen. OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Prøveprocedure oprettet til timereksempel MsgBox "Tre sekunder er slut!" Afslut Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet