В этой статье мы создадим макрос для вызова другого макроса или выполнения команды через определенные промежутки времени.

Чтобы выполнить макрос, нажмите кнопку «Запустить таймер».

ArrowStartTimer

При запуске макроса макрос «TimerMsg» отобразит окно сообщения.

ArrowStartingMessage

Когда пользователь нажимает кнопку «ОК», через три секунды будет вызван макрос «MsgProcedure». Макрос «MsgProcedure» отобразит окно сообщения.

Логическое объяснение

В этом примере мы создали два макроса «TimerMsg» и «MsgProcedure». Макрос «TimerMsg» ** отображает информационное сообщение и вызывает «MsgProcedure» после ожидания в течение трех секунд, как определено в коде.

ArrowAfterRunningMacro

Объяснение кода

Метод Application.OnTime

Метод Application.OnTime используется для планирования выполнения процедуры через определенные интервалы времени.

Синтаксис

Приложение .OnTime Time, имя_процедуры Time указывает интервал времени, в котором должна выполняться процедура.

Имя_процедуры определяет имя процедуры.

Мы использовали метод Application.onTime для планирования макроса MsgProcedure.

Пожалуйста, введите код ниже

Option Explicit

Sub TimerMsg()

'Declaring Date variable

Dim AlertTime As Date

'Displaying message box at the start of the timer

MsgBox "The alarm will go off in 3 seconds!"

'Setting timer time for 3 seconds after the activation time

AlertTime = Now + TimeValue("00:00:03")

'Activating the timer and running the MsgProcedure at the end of the timer

Application.OnTime AlertTime, "MsgProcedure"

End Sub

Sub MsgProcedure()

'Sample procedure created for timer example

MsgBox "Three Seconds is up!"

End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]