W tym artykule utworzymy makro do wywołania innego makra lub wykonania polecenia po określonych odstępach czasu.
Aby uruchomić makro, kliknij przycisk „Uruchom timer”.
Po uruchomieniu makra makro „TimerMsg” wyświetli okno komunikatu.
Gdy użytkownik kliknie przycisk „OK”, trzy sekundy później zostanie wywołane makro „MsgProcedure”. Makro „MsgProcedure” wyświetli okno komunikatu.
Wyjaśnienie logiczne
W tym przykładzie stworzyliśmy dwa makra „TimerMsg” i „MsgProcedure”. „Wiadom. timera” makro wyświetla komunikat informacyjny i wywołuje „Procedura Msg” po odczekaniu trzech sekund, zgodnie z definicją w kodzie.
Wyjaśnienie kodu
Aplikacja. Metoda OnTime
Metoda Application.OnTime służy do zaplanowania uruchamiania procedury w określonych odstępach czasu.
Składnia
Aplikacja .Czas na czas, nazwa_procedury
Czas określa przedział czasu, w którym procedura powinna być uruchomiona.
Nazwa_procedury określa nazwę procedury.
Do zaplanowania makra „MsgProcedure” wykorzystaliśmy metodę Application.onTime.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub TimerMsg() 'Deklarowanie zmiennej daty Dim AlertTime As Date 'Wyświetlanie okna komunikatu na początku timera MsgBox "Alarm włączy się za 3 sekundy!" 'Ustawianie czasu timera na 3 sekundy po czasie aktywacji AlertTime = Now + TimeValue("00:00:03") 'Aktywacja timera i uruchomienie procedury MsgProcedure na końcu timera Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure() 'Przykładowa procedura utworzona dla przykładu czasomierza MsgBox "Trzy sekundy minęły!" Napis końcowy
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail