Σε αυτό το άρθρο, θα μάθουμε τη συνάρτηση MsgBox στο Excel VBA. Ακολουθούν οι ρυθμίσεις ορίσματα κουμπιών του msgbox vba:
| Συνεχής | αξία | Περιγραφή |
| vbOKΜόνο | 0 | Εμφάνιση μόνο του κουμπιού OK. |
| vbOKΑκύρωση | 1 | Εμφάνιση κουμπιών OK και Ακύρωση. |
| vbAbortRetryIgnore | 2 | Εμφάνιση κουμπιών Ακύρωση, Επανάληψη και Παράβλεψη. |
| vb ΝαιΌχιΑκύρωση | 3 | Εμφάνιση κουμπιών Ναι, Όχι και Ακύρωση. |
| vb Ναι Όχι | 4 | Εμφάνιση κουμπιών Ναι και Όχι. |
| vbRetryCancel | 5 | Εμφάνιση κουμπιών Επανάληψης και Ακύρωσης. |
| vbΚριτικό | 16 | Εμφάνιση εικονιδίου κρίσιμου μηνύματος. |
| vbΕρώτηση | 32 | Εμφάνιση εικονιδίου ερωτήματος προειδοποίησης. |
| vbΕκπληξία | 48 | Εμφάνιση προειδοποιητικού μηνύματος μηνύματος. |
| vbΠληροφορίες | 64 | Εμφάνιση εικονιδίου μηνύματος πληροφοριών. |
| vbDefaultButton1 | 0 | Το πρώτο κουμπί είναι προεπιλεγμένο. |
| vbDefaultButton2 | 256 | Το δεύτερο κουμπί είναι προεπιλεγμένο. |
| vbDefaultButton3 | 512 | Το τρίτο κουμπί είναι προεπιλεγμένο. |
| vbDefaultButton4 | 768 | Το τέταρτο κουμπί είναι προεπιλεγμένο. |
| vbApplicationModal | 0 | Εφαρμογή modal? ο χρήστης πρέπει να απαντήσει στο πλαίσιο μηνυμάτων πριν συνεχίσει την εργασία στην τρέχουσα εφαρμογή. |
| vbSystemModal | 4096 | Σύστημα modal? όλες οι εφαρμογές έχουν τεθεί σε αναστολή έως ότου ο χρήστης απαντήσει στο πλαίσιο μηνυμάτων. |
| vbMsgBoxHelpButton | 16384 | Προσθέτει το κουμπί βοήθειας στο πλαίσιο μηνυμάτων |
| VbMsgBoxSetForeground | 65536 | Καθορίζει το παράθυρο του πλαισίου μηνυμάτων ως παράθυρο προσκηνίου |
| vbMsgBoxRight | 524288 | Το κείμενο είναι σωστά ευθυγραμμισμένο |
| vbMsgBoxRtlReading | 1048576 | Καθορίζει το κείμενο θα πρέπει να εμφανίζεται ως ανάγνωση από δεξιά προς τα αριστερά σε εβραϊκά και αραβικά συστήματα |
Ας δούμε πώς το πλαίσιο μηνυμάτων vba μπορεί να βοηθήσει τον χρήστη στη διαγραφή όλων των περιεχομένων των κελιών στο τρέχον φύλλο εργασίας.
Ακολουθεί το στιγμιότυπο δεδομένων:
Πρέπει να ακολουθήσουμε τα παρακάτω βήματα:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
- Ας εισαγάγουμε ένα κουμπί εντολών
- Εισαγάγετε τον ακόλουθο κώδικα στην τρέχουσα ενότητα φύλλου εργασίας:-
Επιλογή ρητή
Private Sub CommandButton1_Click ()
Αμυδρή απάντηση ως ακέραιος
answer = MsgBox ("Θέλετε να διαγράψετε όλα τα κελιά στο τρέχον φύλλο;", vbΝαι + vbQuestion, "Διαγραφή όλων των κελιών")
Αν απάντηση = vbΝαι Τότε
Cells.ClearContents
Αλλού
'μην κάνεις τίποτα
Τέλος εαν
Τέλος υπο
- Όταν κάνουμε κλικ στο κουμπί Command, θα εμφανιστεί η ακόλουθη ερώτηση
- Κάντε κλικ στο κουμπί Ναι για να διαγράψετε όλα τα κελιά.
- Το αποτέλεσμα θα έχει ως εξής
Με αυτόν τον τρόπο, μπορούμε να διαγράψουμε όλα τα κελιά χρησιμοποιώντας το κουμπί εντολών στο Excel VBA.
Λήψη-Πλαίσιο μηνυμάτων στο Excel VBA