I den här artikeln kommer vi att skapa ett makro för att ringa ett annat makro eller utföra ett kommando efter definierade tidsintervaller.
För att köra makrot, klicka på knappen "Start Timer".
När du kör makrot kommer "TimerMsg" -makrot att visa en meddelanderuta.
När en användare klickar på "OK" -knappen, tre sekunder senare, kallas "MsgProcedure" -makrot. "MsgProcedure" -makrot visar en meddelanderuta.
Logisk förklaring
I det här exemplet har vi skapat två makron “TimerMsg” och “MsgProcedure”. “TimerMsg” makro visar ett informationsmeddelande och ringer “MsgProcedure” efter att ha väntat i tre sekunder, enligt definitionen i koden.
Kodförklaring
Application.OnTime -metod
Application.OnTime -metoden används för att schemalägga ett förfarande som ska köras med definierade tidsintervall.
Syntax
Application .OnTime Time, Procedure_name
Time anger det tidsintervall vid vilket proceduren ska köras.
Procedure_name definierar procedurens namn.
Vi har använt Application.onTime -metoden för att schemalägga "MsgProcedure" -makro.
Följ koden nedan
Alternativ Explicit Sub TimerMsg () 'Declaring Date variable Dim AlertTime As Date' Visar meddelandefält i början av timern MsgBox "Larmet går ut om 3 sekunder!" 'Ställa in timer tid i 3 sekunder efter aktiveringstiden AlertTime = Now + TimeValue ("00:00:03")' Aktivera timern och köra MsgProcedure i slutet av timer Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Provprocedur skapad för timerexempel MsgBox "Tre sekunder är slut!" Avsluta Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen