Πώς να χρησιμοποιήσετε τη λειτουργία MsgBox στο Excel 2016 VBA - ανδρείκελα

Γνωρίζετε πιθανώς τη λειτουργία VBS MsgBox. Η λειτουργία MsgBox, η οποία δέχεται τα παρακάτω επιχειρήματα, είναι χρήσιμη για την εμφάνιση πληροφοριών και την απλή εισαγωγή των χρηστών. Είναι σε θέση να πάρει την είσοδο του χρήστη επειδή είναι μια λειτουργία. Μια συνάρτηση, όπως ίσως γνωρίζετε, επιστρέφει μια τιμή. Στην περίπτωση της λειτουργίας MsgBox, χρησιμοποιεί ένα παράθυρο διαλόγου για να πάρει την τιμή που επιστρέφει. Συνεχίστε να διαβάζετε για να δείτε ακριβώς πώς λειτουργεί.

Το Το

Το κείμενο που εμφανίζεται στη γραμμή τίτλου του μηνύματος

(προαιρετικό)

Εδώ υπάρχει μια απλοποιημένη έκδοση της σύνταξης της λειτουργίας MsgBox:

Εμφανίζεται ένα απλό πλαίσιο μηνύματος

Μπορείτε να χρησιμοποιήσετε τη λειτουργία MsgBox με δύο τρόπους:

Για απλά εμφάνιση μηνύματος στο χρήστη:

• Σε αυτή την περίπτωση, δεν σας ενδιαφέρει το αποτέλεσμα που επέστρεψε η λειτουργία. Για να λάβετε μια απάντηση από το χρήστη:

• Σε αυτή την περίπτωση, σας ενδιαφέρει το αποτέλεσμα που επέστρεψε η λειτουργία. Το αποτέλεσμα εξαρτάται από το κουμπί που κάνει κλικ ο χρήστης.

  Εάν χρησιμοποιείτε τη λειτουργία MsgBox από μόνη της, μην συμπεριλάβετε παρενθέσεις γύρω από τα επιχειρήματα. Το παρακάτω παράδειγμα εμφανίζει απλά ένα μήνυμα και δεν επιστρέφει αποτέλεσμα. Όταν εμφανιστεί το μήνυμα, ο κώδικας σταματά έως ότου ο χρήστης κάνει κλικ στο OK.

Sub MsgBoxDemo () MsgBox "Κάντε κλικ στο OK για να ξεκινήσετε την εκτύπωση. "Φύλλα (" Αποτελέσματα "). PrintOut End Sub

Δείτε παρακάτω για να δείτε πώς φαίνεται αυτό το πλαίσιο μηνυμάτων. Σε αυτήν την περίπτωση, η εκτύπωση αρχίζει όταν ο χρήστης κάνει κλικ στο OK. Παρατηρείτε ότι δεν υπάρχει τρόπος να ακυρώσετε την εκτύπωση; Συνεχίστε να διαβάζετε για να μάθετε πώς να το διορθώσετε.

Ένα απλό πλαίσιο μηνύματος.

Λήψη απάντησης από ένα πλαίσιο μηνύματος

Αν εμφανίσετε ένα πλαίσιο μηνύματος που περιέχει κάτι περισσότερο από ένα κουμπί OK, πιθανότατα θα θέλετε να μάθετε σε ποιο κουμπί ο χρήστης κάνει κλικ. Έχετε τύχη. Η συνάρτηση MsgBox μπορεί να επιστρέψει μια τιμή που αντιπροσωπεύει σε ποιο κουμπί γίνεται κλικ. Μπορείτε να αντιστοιχίσετε το αποτέλεσμα της λειτουργίας MsgBox σε μια μεταβλητή.

Στον παρακάτω κώδικα χρησιμοποιούνται μερικές ενσωματωμένες σταθερές που διευκολύνουν την εργασία με τις τιμές που επιστρέφονται από το MsgBox:

Sub GetAnswer () Dim Ans As Long Ans = MsgBox ("Έναρξη εκτύπωσης;", vbYesNo) Επιλέξτε Case Ans Case vbYes ActiveSheet. Περίπτωση εκτύπωσης vbNo MsgBox "Εκτύπωση ακυρώθηκε" Τέλος Επιλογή Τέλος Sub

Σταθερό

Τιμή	Τι κάνει	vbOKOnly
0	Εμφανίζεται μόνο το πλήκτρο OK.	vbOKCancel
1	Εμφανίζει τα πλήκτρα OK και Cancel.	vbAbortRetryIgnore
2	Εμφανίζει τα κουμπιά Ακύρωση, Επανάληψη και Παράβλεψη.	vbYesNoCancel
3	Εμφανίζει κουμπιά Ναι, Όχι και Ακύρωση.	vbYesNo
4	Εμφανίζει τα κουμπιά Ναι και Όχι.	vbRetryCancel
5	Εμφανίζει τα κουμπιά Επανάληψη και Ακύρωση.	vbCritical
16	Εμφανίζει το εικονίδιο Κρίσιμου μηνύματος.	vbQuestion
32	Εμφανίζει το εικονίδιο Query Warning.	vbExclamation
48	Εμφανίζει το εικονίδιο Προειδοποιητικού μηνύματος.	vbInformation
64	Εμφανίζει το εικονίδιο μηνύματος πληροφοριών.	vbDefaultButton1
0	Το πρώτο κουμπί είναι προεπιλεγμένο.	vbDefaultButton2
256	Το δεύτερο κουμπί είναι προεπιλεγμένο.	vbDefaultButton3
512	Το τρίτο κουμπί είναι προεπιλεγμένο.	vbDefaultButton4
768	Το τέταρτο κουμπί είναι προεπιλεγμένο.	Δείτε πώς φαίνεται. Όταν εκτελείτε αυτήν τη διαδικασία, η μεταβλητή Ans έχει εκχωρηθεί μια τιμή είτε vbYes είτε vbNo, ανάλογα με το κουμπί στο οποίο ο χρήστης κάνει κλικ. Η εντολή Select Case χρησιμοποιεί την τιμή Ans για να καθορίσει την ενέργεια που πρέπει να εκτελέσει ο κώδικας.

Ένα απλό πλαίσιο μηνύματος, με δύο κουμπιά.

Μπορείτε επίσης να χρησιμοποιήσετε το αποτέλεσμα της λειτουργίας MsgBox χωρίς να χρησιμοποιήσετε μια μεταβλητή, όπως δείχνει το παρακάτω παράδειγμα:

Sub GetAnswer2 () Εάν MsgBox ("Έναρξη εκτύπωσης;", vbYesNo) = vbYes Στη συνέχεια '… [code if Yes κλικ] … Άλλο '… [κωδικός εάν Ναι δεν έχει πατηθεί] … End If End Sub