Πώς να χρησιμοποιήσετε τη συνάρτηση MsgBox στο Excel 2016 VBA

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

Διαφωνία Τι επηρεάζει
Προτροπή Το κείμενο Excel εμφανίζεται στο πλαίσιο μηνύματος
Κουμπιά Ένας αριθμός που καθορίζει ποια κουμπιά (μαζί με ποιο εικονίδιο)
εμφανίζονται στο πλαίσιο μηνύματος (προαιρετικό)
Τίτλος Το κείμενο που εμφανίζεται στη γραμμή τίτλου του πλαισίου μηνύματος
(προαιρετικό)

Ακολουθεί μια απλοποιημένη έκδοση της σύνταξης της συνάρτησης MsgBox:

MsgBox(προτροπή[, κουμπιά][, τίτλος])

Εμφάνιση απλού πλαισίου μηνύματος

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

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

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

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

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

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

Πώς να χρησιμοποιήσετε τη συνάρτηση MsgBox στο Excel 2016 VBA

Ένα απλό πλαίσιο μηνυμάτων.

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

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

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

Sub GetAnswer()
  Dim Ans As Long
  Ans = MsgBox ("Έναρξη εκτύπωσης;", vbΝαιΌχι)
  Επιλέξτε Case Ans
    Υπόθεση vbYes
      ActiveSheet.PrintOut
    Υπόθεση vbNo
      MsgBox "Η εκτύπωση ακυρώθηκε"
Τέλος Επιλογή
End Sub
Συνεχής αξία Τι κάνει
vbOKOnly 0 Εμφανίζει μόνο το κουμπί ΟΚ.
vbOKΑκύρωση 1 Εμφανίζει τα κουμπιά OK και Cancel.
vbAbortRetryIgnore 2 Εμφανίζει τα κουμπιά Abort, Retry και Ignore.
vbΝαιΌχι Ακύρωση 3 Εμφανίζει τα κουμπιά Ναι, Όχι και Ακύρωση.
vbΝαι Όχι 4 Εμφανίζει τα κουμπιά Ναι και Όχι.
vbRetryΑκύρωση 5 Εμφανίζει τα κουμπιά Επανάληψη και Ακύρωση.
vbCritical 16 Εμφανίζει το εικονίδιο κρίσιμου μηνύματος.
vbΕρώτηση 32 Εμφανίζει το εικονίδιο ερωτήματος προειδοποίησης.
vb Θαυμαστικό 48 Εμφανίζει το εικονίδιο προειδοποιητικού μηνύματος.
vbΠληροφορίες 64 Εμφανίζει το εικονίδιο του μηνύματος πληροφοριών.
vbDefaultButton1 0 Το πρώτο κουμπί είναι προεπιλεγμένο.
vbDefaultButton2 256 Το δεύτερο κουμπί είναι προεπιλεγμένο.
vbDefaultButton3 512 Το τρίτο κουμπί είναι προεπιλεγμένο.
vbDefaultButton4 768 Το τέταρτο κουμπί είναι προεπιλεγμένο.

Δείτε πώς φαίνεται. Όταν εκτελείτε αυτήν τη διαδικασία, στη μεταβλητή Ans εκχωρείται μια τιμή είτε vbYes είτε vbNo, ανάλογα με το κουμπί που κάνει κλικ ο χρήστης. Η δήλωση Select Case χρησιμοποιεί την τιμή Ans για να καθορίσει ποια ενέργεια πρέπει να εκτελέσει ο κώδικας.

Πώς να χρησιμοποιήσετε τη συνάρτηση MsgBox στο Excel 2016 VBA

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

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

Sub GetAnswer2()
  Αν MsgBox("Έναρξη εκτύπωσης;", vbYesNo) = vbYes Τότε
' ...[κωδικός εάν γίνει κλικ στο Ναι]…
  Αλλού
« ...[κωδικός εάν δεν γίνει κλικ στο Ναι]…
  Τέλος εαν
End Sub

Leave a Comment

Τι είναι οι πίνακες ελέγχου και οι αναφορές στο Excel;

Τι είναι οι πίνακες ελέγχου και οι αναφορές στο Excel;

Στο Excel, είναι κρίσιμο να κατανοήσουμε τη διαφορά μεταξύ αναφορών και πινάκων εργαλείων για την αποτελεσματική ανάλυση και οπτικοποίηση δεδομένων.

Πότε να χρησιμοποιήσετε το OneDrive για επιχειρήσεις

Πότε να χρησιμοποιήσετε το OneDrive για επιχειρήσεις

Ανακαλύψτε πότε να χρησιμοποιήσετε το OneDrive για επιχειρήσεις και πώς μπορείτε να επωφεληθείτε από τον αποθηκευτικό χώρο των 1 TB.

Υπολογισμός του αριθμού ημερών μεταξύ δύο ημερομηνιών στο Excel

Υπολογισμός του αριθμού ημερών μεταξύ δύο ημερομηνιών στο Excel

Ο υπολογισμός του αριθμού ημερών μεταξύ δύο ημερομηνιών είναι κρίσιμος στον επιχειρηματικό κόσμο. Μάθετε πώς να χρησιμοποιείτε τις συναρτήσεις DATEDIF και NETWORKDAYS στο Excel για ακριβείς υπολογισμούς.

Πώς να ανανεώσετε τα δεδομένα συγκεντρωτικού πίνακα του Excel

Πώς να ανανεώσετε τα δεδομένα συγκεντρωτικού πίνακα του Excel

Ανακαλύψτε πώς να ανανεώσετε γρήγορα τα δεδομένα του συγκεντρωτικού πίνακα στο Excel με τέσσερις αποτελεσματικές μεθόδους.

Μια μακροεντολή Excel για απόκρυψη όλων εκτός από το ενεργό φύλλο εργασίας

Μια μακροεντολή Excel για απόκρυψη όλων εκτός από το ενεργό φύλλο εργασίας

Μάθετε πώς μπορείτε να χρησιμοποιήσετε μια μακροεντολή Excel για να αποκρύψετε όλα τα ανενεργά φύλλα εργασίας, βελτιώνοντας την οργάνωση του βιβλίου εργασίας σας.

Ιδιότητες πεδίου MS Access για να βεβαιωθείτε ότι οι καταχωρίσεις δεδομένων είναι ακριβείς

Ιδιότητες πεδίου MS Access για να βεβαιωθείτε ότι οι καταχωρίσεις δεδομένων είναι ακριβείς

Ανακαλύψτε τις Ιδιότητες πεδίου MS Access για να μειώσετε τα λάθη κατά την εισαγωγή δεδομένων και να διασφαλίσετε την ακριβή καταχώρηση πληροφοριών.

Πώς να κάνετε αυτόματη σύνοψη ενός εγγράφου του Word 2003

Πώς να κάνετε αυτόματη σύνοψη ενός εγγράφου του Word 2003

Ανακαλύψτε πώς να χρησιμοποιήσετε το εργαλείο αυτόματης σύνοψης στο Word 2003 για να συνοψίσετε εγγραφές γρήγορα και αποτελεσματικά.

Πώς να χρησιμοποιήσετε τη συνάρτηση PROB στο Excel

Πώς να χρησιμοποιήσετε τη συνάρτηση PROB στο Excel

Η συνάρτηση PROB στο Excel επιτρέπει στους χρήστες να υπολογίζουν πιθανότητες με βάση δεδομένα και πιθανότητες σχέσης, ιδανική για στατιστική ανάλυση.

Τι σημαίνουν τα μηνύματα σφάλματος επίλυσης στο Excel;

Τι σημαίνουν τα μηνύματα σφάλματος επίλυσης στο Excel;

Ανακαλύψτε τι σημαίνουν τα μηνύματα σφάλματος του Solver στο Excel και πώς να τα επιλύσετε, βελτιστοποιώντας τις εργασίες σας αποτελεσματικά.

Πώς να χρησιμοποιήσετε τη συνάρτηση FREQUENCY στο Excel

Πώς να χρησιμοποιήσετε τη συνάρτηση FREQUENCY στο Excel

Η συνάρτηση FREQUENCY στο Excel μετράει τις τιμές σε έναν πίνακα που εμπίπτουν σε ένα εύρος ή bin. Μάθετε πώς να την χρησιμοποιείτε για την κατανομή συχνότητας.