Βίντεο: Απαντήστε σε όλους στο μήνυμα με θέμα Ενημερωτικό email από το www.rebetiko.gr το οποίο... 2024
Η ευελιξία του κουμπιού των κουμπιών VBA καθιστά εύκολη την προσαρμογή των πλαισίων μηνυμάτων του Excel. Μπορείτε να επιλέξετε ποια κουμπιά θέλετε να εμφανίσετε, να καθορίσετε αν εμφανίζεται ένα εικονίδιο και να αποφασίσετε ποιο κουμπί είναι το προεπιλεγμένο (το προεπιλεγμένο κουμπί είναι "κλικ" αν ο χρήστης πατήσει Enter).
Μπορείτε να χρησιμοποιήσετε τις ενσωματωμένες σταθερές για το επιχείρημα κουμπιών. Αν προτιμάτε, μπορείτε να χρησιμοποιήσετε την τιμή αντί για μια σταθερή (αλλά χρησιμοποιώντας τις ενσωματωμένες σταθερές είναι πολύ πιο εύκολη).
Για να χρησιμοποιήσετε περισσότερες από μία από αυτές τις σταθερές ως ένα επιχείρημα, απλώς συνδέστε τις με ένα τελεστή +. Για παράδειγμα, για να εμφανίσετε ένα πλαίσιο μηνυμάτων με κουμπιά Ναι και Όχι και ένα θαυμαστικό, χρησιμοποιήστε την ακόλουθη παράσταση ως το δεύτερο παράθυρο MsgBox:
vbYesNo + vbExclamation
Ή, εάν προτιμάτε να καταστήσετε τον κώδικα λιγότερο κατανοητό, χρησιμοποιήστε μια τιμή 52 (δηλαδή, 4 + 48).
Το ακόλουθο παράδειγμα χρησιμοποιεί ένα συνδυασμό σταθερών για την εμφάνιση ενός κουτιού μηνυμάτων με ένα κουμπί Ναι και ένα κουμπί No (vbYesNo) καθώς και ένα εικονίδιο ερωτηματικού (vbQuestion). Η σταθερή ρύθμιση vbDefaultButton2 ορίζει το δεύτερο κουμπί (Όχι) ως προεπιλεγμένο κουμπί - δηλαδή το κουμπί στο οποίο γίνεται κλικ όταν ο χρήστης πιέσει το Enter. Για απλότητα, αυτές οι σταθερές αντιστοιχίζονται στη μεταβλητή Config και στη συνέχεια χρησιμοποιούν το Config ως το δεύτερο όρισμα στη λειτουργία MsgBox:
Sub GetAnswer3 () Dim Config As Long Dim Αντίστοιμο ως Integer Config = vbYesNo + vbQuestion + vbDefaultButton2 Ans = MsgBox ("Επεξεργασία της μηνιαίας αναφοράς;" Config) Αν Ans = vbYes Then RunReport End Sub
Ανατρέξτε στο πλαίσιο μηνυμάτων που εμφανίζεται στο Excel όταν εκτελείτε τη διαδικασία GetAnswer3. Εάν ο χρήστης κάνει κλικ στο κουμπί Ναι, η ρουτίνα εκτελεί τη διαδικασία με την ονομασία RunReport. Εάν ο χρήστης κάνει κλικ στο κουμπί No (ή πατάει Enter), η ρουτίνα τελειώνει χωρίς καμία ενέργεια. Επειδή το όρισμα τίτλου παραλείφθηκε στη λειτουργία MsgBox, το Excel χρησιμοποιεί τον προεπιλεγμένο τίτλο, το Microsoft Excel.
Η ακόλουθη ρουτίνα παρέχει ένα άλλο παράδειγμα χρήσης της λειτουργίας MsgBox:
Sub GetAnswer4 () Dim Msg As String, Τίτλος ως String Dim Config As Integer, Ans As Integer Msg = "Θέλετε να επεξεργαστείτε τη μηνιαία αναφορά; "Msg = Msg & vbNewLine & vbNewLine Msg = Msg &" Η επεξεργασία της μηνιαίας αναφοράς θα "Msg = Msg &" διαρκεί περίπου 15 λεπτά. Το "Msg = Msg &" θα δημιουργήσει μια αναφορά 30 σελίδων για το "Msg = Msg &" όλα τα γραφεία πωλήσεων για τον τρέχοντα μήνα "Msg = Msg &". "Τίτλος =" Εταιρεία Μάρκετινγκ XYZ "Config = vbYesNo + vbQuestion Ans = MsgBox (Msg, Config, Τίτλος) Αν Ans = vbYes Στη συνέχεια RunReport End Sub
Αυτό το παράδειγμα επιδεικνύει έναν αποτελεσματικό τρόπο προσδιορισμού ενός μεγαλύτερου μηνύματος σε ένα πλαίσιο μηνύματος.Μια μεταβλητή (Msg) και ο χειριστής ζευγαρώματος (&) χρησιμοποιούνται για τη δημιουργία του μηνύματος σε μια σειρά δηλώσεων. Η σταθερά vbNewLine εισάγει έναν χαρακτήρα γραμμής διακοπής που ξεκινά μια νέα γραμμή (χρησιμοποιήστε το δύο φορές για να εισάγετε μια κενή γραμμή). Το όρισμα τίτλου χρησιμοποιείται για την εμφάνιση διαφορετικού τίτλου στο πλαίσιο μηνύματος. Εδώ εμφανίζεται το πλαίσιο μηνυμάτων του Excel όταν εκτελείτε αυτήν τη διαδικασία.
Μπορείτε να χρησιμοποιήσετε σταθερές (όπως vbYes και vbNo) για την τιμή επιστροφής μιας λειτουργίας MsgBox. Ακολουθούν μερικές άλλες σταθερές.
| Σταθερό | Τιμή | Τι σημαίνει |
|---|---|---|
| vbOK | 1 | Ο χρήστης έκανε κλικ στο OK. |
| vbCancel | 2 | Ο χρήστης έκανε κλικ στο Cancel (Ακύρωση). |
| vbAbort | 3 | Ο χρήστης έκανε κλικ στην επιλογή Κατάργηση. |
| vbRetry | 4 | Ο χρήστης έκανε κλικ στο Επανάληψη. |
| vbIgnore | 5 | Ο χρήστης έκανε κλικ στην επιλογή Ignore. |
| vbYes | 6 | Ο χρήστης έκανε κλικ στο Yes (Ναι). |
| vbNo | 7 | Ο χρήστης έκανε κλικ στο No |
Και αυτό είναι λίγο πολύ που πρέπει να γνωρίζετε για τη λειτουργία MsgBox. Ωστόσο, χρησιμοποιήστε κουτιά μηνυμάτων με προσοχή. Συνήθως δεν υπάρχει κανένας λόγος να εμφανίζονται κουτιά μηνυμάτων που δεν εξυπηρετούν κανένα σκοπό. Για παράδειγμα, οι άνθρωποι τείνουν να ενοχλούνται όταν βλέπουν ένα κουτί μηνυμάτων κάθε μέρα που διαβάζει το Καλημέρα. Σας ευχαριστούμε για τη φόρτωση του βιβλίου εργασίας προβολής προϋπολογισμού.
