Pentru a executa un sub în Excel VBA după un anumit timp, utilizați funcția onTime, Now și TimeValue. Mai întâi, așezați un sub într-un modul.
1. Deschideți Editorul Visual Basic și faceți clic pe Inserare, modul.
2. Adăugați următorul sub cu memento de nume:
Sub memento ()
MsgBox „Nu uitați de întâlnirea de la 14.30”
Sfârșitul Sub
Vrem ca Excel VBA să execute acest sub 5 secunde după ce se face clic pe butonul de comandă.
2. Plasați un buton de comandă pe foaia de lucru și adăugați următoarea linie de cod:
Application.OnTime Now () + TimeValue ("00:00:05"), "memento"
3. Faceți clic pe butonul de comandă din foaia de lucru.
Rezultat 5 secunde mai târziu:
4. Dacă doriți să executați acest sub la un anumit moment, pur și simplu utilizați următoarea linie de cod:
Application.OnTime TimeValue („14:00:00 am”), „memento”
5. Faceți clic pe butonul de comandă din foaia de lucru și așteptați până la ora 14:00 pentru a vedea sub-executarea.
Notă: probabil că nu veți utiliza Excel VBA pentru a vă reaminti de o întâlnire importantă, dar dacă doriți, cel mai bine este să puneți o macro de acest gen într-un eveniment deschis de registru de lucru. Procedând astfel, veți primi automat un memento la ora 14:00 (nu trebuie să faceți clic pe un buton de comandă pentru a activa macro-ul). Desigur, veți primi memento-ul numai atunci când vă lăsați registrul de lucru deschis.