Πώς να προσαρμόσετε τα κουτιά μηνυμάτων στο Excel 2016 VBA

Η ευελιξία του ορίσματος των κουμπιών VBA καθιστά εύκολη την προσαρμογή των πλαισίων μηνυμάτων του Excel. Μπορείτε να επιλέξετε ποια κουμπιά θα εμφανίζονται, να καθορίσετε εάν θα εμφανίζεται ένα εικονίδιο και να αποφασίσετε ποιο κουμπί είναι το προεπιλεγμένο (το προεπιλεγμένο κουμπί γίνεται "κλικ" εάν ο χρήστης πατήσει Enter).

Μπορείτε να χρησιμοποιήσετε ενσωματωμένες σταθερές για το όρισμα κουμπιών. Εάν προτιμάτε, μπορείτε να χρησιμοποιήσετε την τιμή αντί για μια σταθερά (αλλά η χρήση των ενσωματωμένων σταθερών είναι πολύ πιο εύκολη).

Για να χρησιμοποιήσετε περισσότερες από μία από αυτές τις σταθερές ως όρισμα, απλώς συνδέστε τις με έναν τελεστή +. Για παράδειγμα, για να εμφανίσετε ένα πλαίσιο μηνύματος με κουμπιά Ναι και Όχι και ένα εικονίδιο με θαυμαστικό, χρησιμοποιήστε την ακόλουθη έκφραση ως το δεύτερο όρισμα MsgBox:

vbΝαιΌχι + vbΘαυμαστικό

Ή, αν προτιμάτε να κάνετε τον κώδικά σας λιγότερο κατανοητό, χρησιμοποιήστε μια τιμή 52 (δηλαδή 4 + 48).

Το παρακάτω παράδειγμα χρησιμοποιεί έναν συνδυασμό σταθερών για να εμφανίσει ένα πλαίσιο μηνύματος με ένα κουμπί Ναι και ένα κουμπί Όχι (vbYesNo) καθώς και ένα εικονίδιο ερωτηματικού (vbQuestion). Η σταθερά vbDefaultButton2 προσδιορίζει το δεύτερο κουμπί (Όχι) ως το προεπιλεγμένο κουμπί — δηλαδή, το κουμπί που κάνει κλικ εάν ο χρήστης πατήσει Enter. Για απλότητα, αυτές οι σταθερές εκχωρούνται στη μεταβλητή Config και στη συνέχεια χρησιμοποιούν το Config ως δεύτερο όρισμα στη συνάρτηση MsgBox:

Sub GetAnswer3()
  Dim Config As Long
  Dim Ans ως ακέραιος αριθμός
  Config = vbYesNo + vbQuestion + vbDefaultButton2
  Ans = MsgBox ("Επεξεργασία της μηνιαίας αναφοράς;", Config)
  Εάν Ans = vbYes, τότε RunReport
End Sub

Sub GetAnswer4()
  Dim Msg As String, Title As String
  Dim Config ως ακέραιος, Ans ως ακέραιος
  Msg = "Θέλετε να επεξεργαστείτε τη μηνιαία αναφορά;"
  Msg = Msg & vbNewLine & vbNewLine
  Msg = Msg & "Η επεξεργασία της μηνιαίας αναφοράς θα "
  Msg = Msg & «διαρκούν περίπου 15 λεπτά. αυτό "
  Msg = Msg & "θα δημιουργήσει μια αναφορά 30 σελίδων για "
  Msg = Msg & "όλα τα γραφεία πωλήσεων για το τρέχον"
  Msg = Msg & "month."
  Τίτλος = "XYZ Marketing Company"
  Config = vbYesNo + vbQuestion
  Ans = MsgBox(Msg, Config, Title)
  Εάν Ans = vbYes, τότε RunReport
End Sub