В тази статия ще създадем макрос за извикване на друг макрос или ще изпълним команда след определени интервали от време.
За да изпълните макроса, щракнете върху бутона „Старт таймер“.
При стартиране на макроса „TimerMsg“ макрос ще покаже поле за съобщение.
Когато потребител кликне върху бутона „OK“, три секунди по -късно ще бъде извикан макросът „MsgProcedure“. Макросът „MsgProcedure“ ще покаже поле за съобщение.
Логично обяснение
В този пример създадохме два макроса „TimerMsg“ и „MsgProcedure“. „TimerMsg“ macro показва информационно съобщение и извиква „MsgProcedure“ след изчакване за три секунди, както е дефинирано в кода.
Обяснение на кода
Метод Application.OnTime
Методът Application.OnTime се използва за планиране на процедура за изпълнение на определени интервали от време.
Синтаксис
Приложение. Време за време, Име на процедура
Time указва интервала от време, през който трябва да се изпълнява процедурата.
Procedure_name определя името на процедурата.
Използвахме метода Application.onTime за планиране на макроса „MsgProcedure“.
Моля, следвайте кода по -долу
Опция Изричен Sub TimerMsg () 'Деклариране на променлива за дата Dim AlertTime като дата' Показване на полето със съобщение в началото на таймера MsgBox "Алармата ще се включи след 3 секунди!" 'Настройка на таймера за 3 секунди след времето за активиране AlertTime = Now + TimeValue ("00:00:03")' Активиране на таймера и стартиране на MsgProcedure в края на таймера Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Примерна процедура, създадена за пример за таймер MsgBox "Три секунди изтече!" End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта