Πώς να δημιουργήσετε ένα χρονόμετρο πλαισίου μηνυμάτων για να κλείσετε αυτόματα το πλαίσιο μηνυμάτων μετά από ορισμένο χρόνο στο Excel;
Όταν χρησιμοποιείτε βιβλίο εργασίας του Excel, μπορείτε συχνά να χρησιμοποιείτε δέσμες ενεργειών VBA για την επίλυση προβλημάτων. Και θα εμφανιστούν κάποια πλαίσια μηνυμάτων κατά την εκτέλεση του σεναρίου. Σε ορισμένες περιπτώσεις, θα θέλετε ορισμένα καθορισμένα πλαίσια μηνυμάτων να κλείνουν αυτόματα μετά από ένα συγκεκριμένο χρονικό διάστημα, αντί να τα κλείσετε χειροκίνητα. Σε αυτό το άρθρο, θα σας δείξουμε τη μέθοδο δημιουργίας ενός χρονοδιακόπτη θυρίδας μηνυμάτων για να κλείσετε αυτόματα το πλαίσιο μηνυμάτων μετά από συγκεκριμένο χρόνο στο Excel.
Δημιουργήστε ένα χρονόμετρο πλαισίου μηνυμάτων για αυτόματη απόρριψη του πλαισίου μηνυμάτων μετά από ορισμένο χρόνο
Εδώ παρέχει ένα πρότυπο σεναρίου VBA για να δημιουργήσετε ένα χρονόμετρο πλαισίου μηνυμάτων.
Ας υποθέσουμε ότι εκτελείτε σενάριο VBA για να μετακινήσετε σειρές με βάση την τιμή του κελιού. Αφού ολοκληρώσετε τη μετακίνηση, χρειάζεστε ένα πλαίσιο μηνύματος για να σας ενημερώσει ότι η λειτουργία ήταν επιτυχής και αυτό το πλαίσιο μηνύματος πρέπει να κλείσει αυτόματα μετά από 4 δευτερόλεπτα (δείτε παρακάτω στιγμιότυπο οθόνης). Ακολουθήστε τα παρακάτω βήματα.
1. Ανοίξτε το Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, εισαγάγετε τον κώδικα VBA που θέλετε να χρησιμοποιήσετε για να μετακινήσετε σειρές με βάση την τιμή του κελιού.
2. Αντιγράψτε τον ακόλουθο κωδικό VBA 1 και βάλτε τον πριν από τον κωδικό που θέλετε να χρησιμοποιήσετε. Δείτε παρακάτω στιγμιότυπο οθόνης:
Κωδικός VBA 1:
Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal xHwnd As LongPtr, _
ByVal xText As String, _
ByVal xCaption As String, _
ByVal xMsgBoxStyle As VbMsgBoxStyle, _
ByVal xwlange As Long, _
ByVal xTimeOut As Long) _
As Long
3. Αντιγράψτε τον κωδικό VBA 2 παρακάτω και τοποθετήστε τον πριν από τη γραμμή "End Sub" του κώδικα που θέλετε να χρησιμοποιήσετε.
Κωδικός VBA 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Note: Μπορείτε να αλλάξετε το περιεχόμενο του πλαισίου μηνύματος και τον χρόνο εμφάνισης του πλαισίου διαλόγου ανάλογα με τις ανάγκες σας.
4. Αφού εκτελέσετε τον κωδικό για να εκτελέσετε τη λειτουργία, θα εμφανιστεί ένα πλαίσιο μηνύματος και στη συνέχεια θα κλείσει αυτόματα μετά από συγκεκριμένο χρόνο (σε αυτήν την περίπτωση είναι 4 δευτερόλεπτα).
Σχετικά Άρθρα:
- Πώς να εμφανιστεί το πλαίσιο μηνυμάτων όταν κάνετε κλικ σε ένα συγκεκριμένο κελί στο Excel;
- Πώς να αντιγράψετε κείμενο από το πλαίσιο μηνυμάτων στο Excel;
- Πώς να εμφανιστεί ένα πλαίσιο μηνύματος κατά την ενεργοποίηση / άνοιγμα ενός καθορισμένου φύλλου εργασίας στο Excel;
- Πώς να εμφανιστεί το πλαίσιο μηνυμάτων για να εμφανιστεί το εύρος των κελιών ή των τιμών κυττάρων στο Excel;
- Πώς να εμφανιστεί το πλαίσιο μηνύματος εάν η τιμή του κελιού αλλάξει εντός ενός εύρους στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!