In dit artikel zullen we een macro maken om een andere macro aan te roepen of een commando uit te voeren na gedefinieerde tijdsintervallen.
Om de macro uit te voeren, klikt u op de knop "Timer starten".
Bij het uitvoeren van de macro zal de macro "TimerMsg" een berichtvenster weergeven.
Wanneer een gebruiker op de knop "OK" klikt, drie seconden later, wordt de macro "MsgProcedure" aangeroepen. De macro "MsgProcedure" geeft een berichtvenster weer.
Logische uitleg
In dit voorbeeld hebben we twee macro's "TimerMsg" en "MsgProcedure" gemaakt. “Timerbericht” macro geeft een informatiebericht weer en roept "MsgProcedure" aan na drie seconden wachten, zoals gedefinieerd in de code.
Code uitleg
Toepassing.OnTime-methode
De methode Application.OnTime wordt gebruikt om een procedure te plannen die met gedefinieerde tijdsintervallen wordt uitgevoerd.
Syntaxis
Toepassing .OnTime Time, Procedure_name
Tijd specificeert het tijdsinterval waarop de procedure moet worden uitgevoerd.
Procedurenaam definieert de naam van de procedure.
We hebben de Application.onTime-methode gebruikt om de macro "MsgProcedure" te plannen.
Volg hieronder voor de code:
Optie Explicit Sub TimerMsg() 'Datumvariabele declareren Dim AlertTime As Date 'Berichtvenster weergeven aan het begin van de timer MsgBox "Het alarm gaat over 3 seconden af!" 'Timertijd instellen voor 3 seconden na de activeringstijd AlertTime = Now + TimeValue("00:00:03") 'Activeren van de timer en uitvoeren van de MsgProcedure aan het einde van de timer Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure() 'Voorbeeldprocedure gemaakt voor timervoorbeeld MsgBox "Three Seconds is up!" Einde sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite
