ο Λειτουργία MsgBox σε Excel VBA μπορεί να επιστρέψει ένα αποτέλεσμα ενώ ένα απλό MsgBox δεν μπορεί.
Κατάσταση:
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώνουμε μια μεταβλητή που ονομάζεται απάντηση τύπου Integer.
Αμυδρή απάντηση ως ακέραιος
2. Χρησιμοποιούμε τη συνάρτηση MsgBox για να αρχικοποιήσουμε τη μεταβλητή απάντηση με την είσοδο του χρήστη.
Η συνάρτηση MsgBox, όταν χρησιμοποιείτε παρενθέσεις, έχει τρία ορίσματα. Το πρώτο μέρος χρησιμοποιείται για το μήνυμα στο πλαίσιο μηνυμάτων. Χρησιμοποιήστε το δεύτερο μέρος για να καθορίσετε ποια κουμπιά και εικονίδια θέλετε να εμφανίζονται στο πλαίσιο μηνυμάτων. Το τρίτο μέρος εμφανίζεται στη γραμμή τίτλου του πλαισίου μηνυμάτων.
answer = MsgBox ("Είστε βέβαιοι ότι θέλετε να αδειάσετε το φύλλο;", vb ΝαιΌχι + vbQuestion, "Empty Sheet")
Σημείωση: Τοποθετήστε τον κέρσορα στο vb Ναι Όχι στο Visual Basic Editor και κάντε κλικ στο F1 για να δείτε ποια άλλα κουμπιά και εικονίδια μπορείτε να χρησιμοποιήσετε. Αντί για τις σταθερές vbYesNo και vbQuestion, μπορείτε επίσης να χρησιμοποιήσετε τις αντίστοιχες τιμές 4 και 32.
3. Εάν ο χρήστης κάνει κλικ στο κουμπί Ναι, το Excel VBA αδειάζει το φύλλο. Εάν ο χρήστης κάνει κλικ στο κουμπί Όχι, δεν συμβαίνει τίποτα. Προσθέστε τις ακόλουθες γραμμές κώδικα για να το επιτύχετε.
Αν απάντηση = vbΝαι Τότε
Cells.ClearContents
Αλλού
'μην κάνεις τίποτα
Τέλος εαν
4. Κάντε κλικ στο κουμπί εντολών στο φύλλο.
5. Κάντε κλικ στο Yes (Ναι).
Αποτέλεσμα:
