Για να εκτελέσετε ένα sub in Excel VBA μετά από συγκεκριμένο χρόνο, χρήση onTime, Now και της λειτουργίας TimeValue. Αρχικά, τοποθετήστε ένα sub σε μια ενότητα.
1. Ανοίξτε το Visual Basic Editor και κάντε κλικ στο Insert, Module.
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 π.μ. (δεν χρειάζεται να κάνετε κλικ σε ένα κουμπί εντολών για να ενεργοποιήσετε τη μακροεντολή). Φυσικά, θα λάβετε την υπενθύμιση μόνο όταν αφήσετε το βιβλίο εργασίας σας ανοιχτό.
