Ένας σύντομος οδηγός για το Excel VBA Κουτιά μήνυμα

Εμφάνιση στο σωστό τετραγωνίδιο Μήνυμα προς τους χρήστες είναι κρίσιμη , όταν θα πρέπει να εκτελέσει κώδικα με βάση τις απαντήσεις τους . VBA έχει μια επιλογή από κιβώτια μήνυμα με τις επιλογές το κουμπί για να καλύψει τις ανάγκες της εφαρμογής σας . Αν θέλετε να εμφανίσετε ένα μήνυμα προς τον χρήστη και δεν χρειάζεται να αναλάβει δράση με βάση την απάντηση, χρησιμοποιήστε ένα πλαίσιο μηνύματος με ένα κουμπί " OK" . Χρησιμοποιήστε κουτιά μήνυμα με επιλογές όπως το κουμπί " Ναι" ή " Όχι" , όταν θα πρέπει να εκτελέσετε ένα διαφορετικό τμήμα του κώδικα για κάθε κουμπί . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ανοίξει το παράθυρο VB Editor. . Κάντε κλικ στο μενού "Εισαγωγή " και " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2

Δημιουργήστε μια νέα διαδικασία sub και μια μεταβλητή Ακέραιος με την προσθήκη του παρακάτω κώδικα :

Private Sub MessageBoxes ( )

Dim returnVal As Integer
εικόνων 3

οθόνης ένα πλαίσιο μηνύματος με ένα κουμπί " OK" :

MsgBox " μήνυμα με το πλήκτρο OK " , vbOKOnly , "OK "
Η 4

Προσθέστε τον ακόλουθο κώδικα για να εμφανιστεί ένα πλαίσιο μηνύματος με "OK " και " Cancel" :

returnVal = MsgBox ( " μήνυμα με κουμπιών OK και Άκυρο " , vbOKCancel , " OK και Cancel " )
5

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

Αν ( returnVal = 1 ) Στη συνέχεια

Debug.Print κουμπί "OK έγινε κλικ "

Else

Debug.Print "Cancel κουμπί πατηθεί "

End Αν
Η 6

Προσθέστε τον κώδικα για να εμφανιστεί ένα πλαίσιο μηνύματος με τα πλήκτρα " Ματαίωση ", " Επανάληψη" και " Ignore : "

returnVal = MsgBox ( " μήνυμα με Ματαίωση , Επανάληψη και Αγνοήστε τα κουμπιά " , vbAbortRetryIgnore , " AbortRetryIgnore " )
Η 7

Καθορίστε ποιο κουμπί πατήθηκε και να εμφανίσει τα αποτελέσματα μέσω της άμεσης παράθυρο με την προσθήκη του παρακάτω κώδικα :

Αν ( returnVal = 3 ) Στη συνέχεια,

Debug.Print "Εγκατάλειψη κουμπί πατηθεί "

ElseIf ( returnVal = 4 ) Στη συνέχεια,

Debug.Print "Επανάληψη κουμπί πατηθεί "

Αλλιώς

Debug.Print " Αγνοήστε το κουμπί πατηθεί "

End If
8

Προσθέστε ένα "Ναι" και "Όχι " παράθυρο μηνύματος πλήκτρο:

returnVal = MsgBox ( " μήνυμα με το ναι και όχι τα κουμπιά" , vbYesNo , " Yes & No " )
Η 9

Καθορίστε το πλήκτρο ο χρήστης κάνει κλικ με την προσθήκη του παρακάτω κώδικα :

Αν ( returnVal = 6 ) Στη συνέχεια

Debug.Print " Ναι κουμπί πατηθεί "

Else

Debug.Print "Δεν υπάρχει κουμπί πατηθεί "

End If

10

Ολοκληρώστε τη διαδικασία με την προσθήκη " End Sub ", ως τελευταία γραμμή του κώδικα . Πατήστε το πλήκτρο " Ctrl " και " G" για να εμφανιστεί το παράθυρο άμεσης και πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων