Выполнить подлодку в Excel VBA через определенное времяиспользуйте onTime, Now и функцию TimeValue. Сначала поместите саб в модуль.
1. Откройте редактор Visual Basic и щелкните Вставить, Модуль.
2. Добавьте следующую подпрограмму с напоминанием имени:
Дополнительное напоминание ()
MsgBox "Не забудьте встречу в 14.30"
Конец подписки
Мы хотим, чтобы Excel VBA выполнял эту подпрограмму через 5 секунд после нажатия кнопки команды.
2. Поместите командную кнопку на лист и добавьте следующую строку кода:
Application.OnTime Now () + TimeValue ("00:00:05"), "напоминание"
3. Щелкните командную кнопку на рабочем листе.
Результат спустя 5 секунд:
4. Если вы хотите выполнить эту подпрограмму в определенное время, просто используйте следующую строку кода:
Application.OnTime TimeValue ("14:00:00"), "напоминание"
5. Нажмите кнопку команды на листе и подождите до 14:00, чтобы увидеть выполнение подпрограммы.
Примечание: вы, вероятно, не будете использовать Excel VBA, чтобы напоминать себе о важной встрече, но если вы действительно хотите, лучше всего поместить такой макрос в событие открытия книги. Сделав это, вы автоматически получите напоминание в 14:00 (вам не нужно нажимать командную кнопку, чтобы активировать макрос). Конечно, вы получите напоминание только тогда, когда оставите свою рабочую книгу открытой.
