За да изпълните sub в Excel VBA след определено време, използвайте onTime, Now и функцията TimeValue. Първо, поставете подмотор в модул.
1. Отворете редактора на Visual Basic и щракнете върху Вмъкване, модул.
2. Добавете следния подзапис с напомняне за име:
Под напомняне ()
MsgBox „Не забравяйте срещата си в 14.30“
End Sub
Искаме 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 ч. (Не е нужно да натискате команден бутон, за да активирате макроса). Разбира се, ще получите напомнянето само когато оставите работната си книга отворена.