Πώς να χρησιμοποιήσετε τα συμβάντα OnTime Events και Keypress στο Excel 2016 VBA - ανδρείκελα

Υπάρχουν δύο τύποι συμβάντων που μπορείτε να χρησιμοποιήσετε στον προγραμματισμό VBA για Excel 2016 που δεν σχετίζονται με αντικείμενα: ώρα και πληκτρολογήσεις. Επειδή ο χρόνος και οι πληκτρολογήσεις δεν συσχετίζονται με ένα συγκεκριμένο αντικείμενο, όπως ένα βιβλίο εργασίας ή ένα φύλλο εργασίας, προγραμματίζετε αυτά τα συμβάντα σε μια κανονική ενότητα VBA.

Το συμβάν OnTime

Το συμβάν OnTime εμφανίζεται όταν εμφανιστεί μια συγκεκριμένη ώρα της ημέρας. Το ακόλουθο παράδειγμα δείχνει πώς να αποκτήσετε το Excel να εκτελέσει μια διαδικασία όταν το 3 p. m. συμβάν. Σε αυτή την περίπτωση, μια φωνή ρομπότ σας λέει να ξυπνήσετε, συνοδευόμενο από ένα πλαίσιο μηνύματος:

Sub SetAlarm () Εφαρμογή. OnTime 0,625, εφαρμογή "DisplayAlarm" End Sub Sub DisplayAlarm (). Ομιλία. Μιλήστε ("Hey, ξυπνήστε") MsgBox "Ήρθε η ώρα για το διάλειμμα σας το απόγευμα! "End Sub

Σε αυτό το παράδειγμα, χρησιμοποιείται η μέθοδος OnTime του αντικειμένου της εφαρμογής. Αυτή η μέθοδος παίρνει δύο επιχειρήματα: την ώρα (0,625 ή 3:00 π.μ.) και το όνομα της διαδικασίας Sub που εκτελείται όταν εμφανιστεί το συμβάν χρόνου (DisplayAlarm).

Αυτή η διαδικασία είναι πολύ χρήσιμη αν τείνετε να καταλάβετε τόσο καλά στο έργο σας ότι ξεχνάτε τις συναντήσεις και τις συναντήσεις. Απλά ορίστε ένα γεγονός OnTime για να σας θυμίσω.

Οι περισσότεροι άνθρωποι δυσκολεύονται να σκεφτούν το χρόνο από την άποψη του συστήματος αρίθμησης του Excel. Επομένως, ίσως να θέλετε να χρησιμοποιήσετε τη συνάρτηση VBA TimeValue για να αναπαριστάτε την ώρα. Το TimeValue μετατρέπει μια συμβολοσειρά που μοιάζει με μια χρονική στιγμή σε μια τιμή που μπορεί να χειριστεί το Excel. Η παρακάτω δήλωση δείχνει έναν ευκολότερο τρόπο προγραμματισμού ενός συμβάντος για 3 p. m.:

Εφαρμογή. OnTime TimeValue ("3: 00:00 μ.μ."), "DisplayAlarm"

Εάν θέλετε να προγραμματίσετε ένα συμβάν σε σχέση με την τρέχουσα ώρα (για παράδειγμα 20 λεπτά από τώρα), μπορείτε να χρησιμοποιήσετε μια εντολή όπως αυτή: Εφαρμογή. OnTime Now + TimeValue ("00: 20: 00"), "DisplayAlarm"

Μπορείτε επίσης να χρησιμοποιήσετε τη μέθοδο OnTime για να εκτελέσετε μια διαδικασία VBA σε μια συγκεκριμένη ημέρα. Πρέπει να βεβαιωθείτε ότι ο υπολογιστής σας συνεχίζει να λειτουργεί και ότι το βιβλίο εργασίας με τη διαδικασία παραμένει ανοιχτό. Η παρακάτω δήλωση εκτελεί τη διαδικασία DisplayAlarm σε 5 p. m. στις 31 Δεκεμβρίου 2016:

Εφαρμογή. OnTime DateValue ("12/31/2016 5:00 μ.μ."), "DisplayAlarm"

Αυτή η συγκεκριμένη γραμμή κώδικα μπορεί να σας βοηθήσει να σας προειδοποιήσουμε ότι πρέπει να πάτε στο σπίτι και να ετοιμαστείτε για τις εορταστικές εκδηλώσεις της Πρωτοχρονιάς.

Ακολουθεί ένα άλλο παράδειγμα που χρησιμοποιεί το συμβάν OnTime. Εκτελώντας τις διαδικασίες UpdateClock γράφει την ώρα στο κελί A1 και επίσης εκτελεί ένα άλλο συμβάν πέντε δευτερόλεπτα αργότερα.Αυτό το συμβάν επαναφέρει τη διαδικασία UpdateClock. Το καθαρό αποτέλεσμα είναι ότι το κελί Α1 ενημερώνεται με την τρέχουσα ώρα κάθε πέντε δευτερόλεπτα. Για να σταματήσετε τα συμβάντα, εκτελέστε τη διαδικασία StopClock (η οποία ακυρώνει το συμβάν). Σημειώστε ότι το NextTick είναι μια μεταβλητή σε επίπεδο ενότητας που αποθηκεύει την ώρα για το επόμενο συμβάν.

Dim NextTick ως ημερομηνία Sub UpdateClock () 'Ενημερώνει το κελί A1 με την τρέχουσα ώρα ThisWorkbook. Φύλλα (1). Εύρος ("A1") = Χρόνος 'Ρύθμιση του επόμενου συμβάντος πέντε δευτερόλεπτα από τώρα Επόμενη Εργασία: Now + TimeValue ("00: 00: 05") Εφαρμογή. OnTime NextTick, "UpdateClock" End Sub Sub StopClock () 'Ακύρωση του συμβάντος OnTime (σταματά το ρολόι) On Error Resume Next Εφαρμογή. OnTime NextTick, "UpdateClock", False End Sub

Το συμβάν OnTime παραμένει ακόμα και μετά το κλείσιμο του βιβλίου εργασίας. Με άλλα λόγια, αν κλείσετε το βιβλίο εργασίας χωρίς να εκτελέσετε τη διαδικασία StopClock, το βιβλίο εργασίας θα ανοίξει ξανά σε πέντε δευτερόλεπτα (υποθέτοντας ότι το Excel εξακολουθεί να εκτελείται). Για να αποτρέψετε αυτό, χρησιμοποιήστε μια διαδικασία συμβάντος Workbook_BeforeClose που περιέχει την ακόλουθη πρόταση:

Κλήση StopClock

Η μέθοδος OnTime έχει δύο πρόσθετα επιχειρήματα. Αν σκοπεύετε να χρησιμοποιήσετε αυτήν τη μέθοδο, θα πρέπει να ανατρέξετε στο σύστημα βοήθειας για πλήρεις λεπτομέρειες.

Αν θέλετε να δείτε μια αρκετά περίπλοκη εφαρμογή, ελέγξτε αυτή την εφαρμογή αναλογικού ρολογιού. Η όψη ρολογιού είναι στην πραγματικότητα ένα διάγραμμα και το διάγραμμα ενημερώνεται κάθε δευτερόλεπτο για να εμφανιστεί η ώρα της ημέρας. Άχρηστο, αλλά διασκεδαστικό.

Μια εφαρμογή αναλογικού ρολογιού.

Συμβάντα πληκτρολόγησης

Ενώ εργάζεστε, το Excel παρακολουθεί συνεχώς αυτό που πληκτρολογείτε. Εξαιτίας αυτού, μπορείτε να ρυθμίσετε τα πράγματα έτσι ώστε ένα πλήκτρο ή ένας συνδυασμός πλήκτρων να εκτελεί μια διαδικασία.

Ακολουθεί ένα παράδειγμα που ανακατεύει τα πλήκτρα PgDn και PgUp:

Sub Application_OnKey (). OnKey "{PgDn}", "PgDn_Sub" Εφαρμογή. OnKey "{PgUp}", "PgUp_Sub" Τέλος Sub Sub PgDn_Sub () Σφάλμα Συνέχιση Επόμενο ActiveCell. Μετατόπιση (1, 0). Ενεργοποιήστε το End Sub Sub PgUp_Sub () Σφάλμα Συνέχιση της επόμενης ActiveCell. Απόκλιση (-1, 0). Ενεργοποίηση τελικού υποβάθρου

Αφού ρυθμίσετε τα συμβάντα OnKey εκτελώντας τη διαδικασία Setup_OnKey, πατώντας PgDn, θα μετακινηθείτε σε μια σειρά. Πατώντας το PgUp θα μετακινηθείτε σε μια σειρά.

Παρατηρήστε ότι οι κωδικοί των κλειδιών περικλείονται σε τιράντες, όχι σε παρενθέσεις. Για μια πλήρη λίστα κωδικών πληκτρολογίου, συμβουλευτείτε το σύστημα Βοήθειας. Αναζήτηση για

OnKey. Σε αυτό το παράδειγμα, το σφάλμα Resume Next χρησιμοποιείται για την παραβίαση τυχόν λαθών που δημιουργούνται. Για παράδειγμα, εάν το ενεργό κελί βρίσκεται στην πρώτη σειρά, η προσπάθεια να ανεβάσετε μια σειρά προκαλεί ένα σφάλμα που μπορεί ασφαλώς να αγνοηθεί. Και αν είναι ενεργό ένα φύλλο χαρτών, δεν υπάρχει ενεργό κελί.

Εκτελώντας την ακόλουθη ρουτίνα, ακυρώνετε τα συμβάντα OnKey:

Sub Application Cancel_OnKey (). OnKey "{PgDn}" Εφαρμογή. OnKey "{PgUp}" End Sub

Χρησιμοποιώντας μια κενή συμβολοσειρά ως το δεύτερο όρισμα για τη μέθοδο OnKey, το

δεν ακυρώνει το συμβάν OnKey. Αντίθετα, προκαλεί το Excel απλά να αγνοήσει την πληκτρολόγηση. Για παράδειγμα, η ακόλουθη δήλωση λέει στο Excel να αγνοεί το Alt + F4. Το σύμβολο επί τοις εκατό αντιπροσωπεύει το πλήκτρο Alt: Εφαρμογή.OnKey "% {F4}", ""

Παρόλο που μπορείτε να χρησιμοποιήσετε τη μέθοδο OnKey για να εκχωρήσετε ένα πλήκτρο συντόμευσης για την εκτέλεση μιας μακροεντολής, θα πρέπει να χρησιμοποιήσετε το παράθυρο διαλόγου Επιλογές μακροεντολών για αυτήν την εργασία.

Εάν κλείσετε το βιβλίο εργασίας που περιέχει τον κώδικα και αφήσετε το Excel ανοιχτό, η μέθοδος OnKey δεν θα επαναφερθεί. Κατά συνέπεια, πατώντας το πλήκτρο συντόμευσης, το Excel θα ανοίξει αυτόματα το αρχείο με τη μακροεντολή. Για να αποφύγετε αυτό, θα πρέπει να συμπεριλάβετε τον κώδικα στον κώδικα συμβάντος Workbook_BeforeClose για να επαναφέρετε το συμβάν OnKey.