Для выполнения суб в Excel VBA через некоторое время конкретны, ONTIME, сейчас и функцию TimeValue. Во-первых, поместите сабвуфер в модуль.

  1. Откройте редактор Visual Basic и выберите Вставка, модуль.

  2. Добавьте следующий подпункт с именем напоминания:

Sub reminder()

MsgBox "Don't forget your meeting at 14.30"

End Sub

Мы хотим, чтобы Excel VBA, чтобы выполнить этот подпункт 5 секунд после того, как кнопка команды нажата.

  1. Поместите командную кнопку

на листе и добавьте следующую строку кода:

Application.OnTime Now() + TimeValue("00:00:05"), "reminder"

  1. Нажмите на кнопку управления на рабочем листе.

Результат через 5 секунд:

Macro executed 5 seconds later

  1. Если вы хотите, чтобы выполнить этот подпункт в то время, конкретное, просто используйте следующую строку кода:

Application.OnTime TimeValue("14:00:00 am"), "reminder"

нет 5. Нажмите кнопку управления на рабочем листе и ждать до 14:00 утра, чтобы увидеть ваш суб выполняются.

Примечание: Вы, вероятно, не использовать Excel VBA, чтобы напомнить себе о важной встрече, но если вы хотите, то лучше поставить макрос, как это в книге Open Event.

Делая это, вы будете автоматически получать напоминание в 14:00 AM (вы не должны нажать командную кнопку, чтобы активировать макрос). Конечно, вы будете получать только напоминание, когда выходите из рабочей книги открытым.