Στο VBA, μπορείτε να δημιουργήσετε ένα Κουμπί επιλογής για να επιτρέψετε σε έναν χρήστη να επιλέξει από πολλές επιλογές. Ένα κουμπί επιλογής χρησιμοποιείται συχνά σε φόρμες χρηστών, αλλά μπορεί επίσης να χρησιμοποιηθεί σε φύλλο εργασίας. Σε αυτό το σεμινάριο, θα μάθετε πώς να δημιουργείτε ένα κουμπί Option, να λαμβάνετε μια επιλογή χρήστη στο VBA και να το χρησιμοποιείτε σε κώδικα.
Εάν θέλετε να μάθετε πώς να δημιουργείτε ένα πλαίσιο ελέγχου, κάντε κλικ εδώ: Πλαίσιο ελέγχου VBA
Δημιουργήστε ένα κουμπί επιλογής
Για να εισαγάγετε ένα κουμπί επιλογών στο φύλλο εργασίας, πρέπει να μεταβείτε στο Καρτέλα προγραμματιστή, Κάντε κλικ Εισάγετε και κάτω από τα στοιχεία ελέγχου ActiveX επιλέξτε Κουμπί επιλογής:
Εικόνα 1. Εισαγάγετε ένα κουμπί Option στο φύλλο εργασίας
Όταν επιλέγετε το κουμπί Επιλογή που εισαγάγατε, μπορείτε να κάνετε κλικ στο Ιδιότητες σύμφωνα με το Καρτέλα προγραμματιστή:
Εικόνα 2. Αλλάξτε το κουμπί Option (Ιδιότητες)
Εδώ μπορείτε να ορίσετε διαφορετικές ιδιότητες του κουμπιού Option. Στην αρχή, αλλάξαμε το χαρακτηριστικό Ονομα προς το optOptionButton1Το Τώρα, μπορούμε να χρησιμοποιήσουμε το κουμπί Επιλογή με αυτό το όνομα σε κώδικα VBA.
Επίσης, αλλάξαμε το κείμενο που εμφανίζεται δίπλα στο κουμπί Επιλογή σε ΑρσενικόςΤο Για να γίνει αυτό, πρέπει να ορίσετε το χαρακτηριστικό Λεζάντα.
Καθώς θέλουμε να επιτρέψουμε σε έναν χρήστη να επιλέξει φύλο, θα επαναλάβουμε όλη τη διαδικασία για ένα άλλο κουμπί Option. Το δεύτερο έχει όνομα optOptionButton2, ενώ η λεζάντα είναι ΘηλυκόςΤο Μπορείτε επίσης να δημιουργήσετε ένα νέο κουμπί Option αντιγράφοντας το υπάρχον και αλλάζοντας ιδιότητες. Τώρα το φύλλο εργασίας μας διαθέτει δύο κουμπιά επιλογών:
Εικόνα 3. Τοποθετήστε το δεύτερο κουμπί Επιλογή
Λάβετε ένα επιλεγμένο κουμπί επιλογής στο VBA
Ο σκοπός ενός κουμπιού Option είναι να πάρει μια απόφαση χρηστών. Θα δείξουμε στο παράδειγμα τον τρόπο γραφής Αρσενικός στο κελί C3 εάν είναι επιλεγμένο το κουμπί Επιλογή 1 ή Θηλυκός αν επιλεγεί το δεύτερο. Κάθε κουμπί επιλογής έχει το συμβάν που ενεργοποιείται όταν το επιλέξει - Κάντε κλικ.
Επομένως, για το πρώτο κουμπί Option πρέπει να βάλουμε τον ακόλουθο κώδικα στο συμβάν Κάντε κλικ του αντικειμένου optOptionButon1:
123456789 | Private Sub optOptionButton1_Click ()Εάν Sheet1.optOptionButton1.Value = True ΤότεSheet1.Range ("C3") = "Αρσενικό"Τέλος εανΤέλος υπο |
Ομοίως, θα βάλουμε αυτόν τον κώδικα στην εκδήλωση Κάντε κλικ του αντικειμένου optOptionButton2:
123456789 | Private Sub optOptionButton2_Click ()If Sheet1.optOptionButton2.Value = True ΤότεSheet1.Range ("C3") = "Γυναίκα"Τέλος εανΤέλος υπο |
Η τιμή του κουμπιού Option βρίσκεται στοαξία χαρακτηριστικό του αντικειμένου optOptionButton1 ή optOptionButton2Το Η τιμή του κουμπιού Option μπορεί να είναι αληθής εάν είναι επιλεγμένη ή ψευδής εάν δεν είναι επιλεγμένη.
Εικόνα 3. Επιστρέψτε το αρσενικό εάν είναι επιλεγμένο το πρώτο κουμπί Επιλογή
Όπως μπορείτε να δείτε στην Εικόνα 3, κάναμε κλικ στο πρώτο κουμπί Επιλογή. Επομένως, η αξία του Sheet1.optOptionButton1.Value είναι αλήθεια, άρα το αποτέλεσμα στο C3 είναι Αρσενικός.
Εικόνα 4. Επιστροφή θηλυκού εάν είναι επιλεγμένο το δεύτερο κουμπί επιλογής
Ομοίως με το προηγούμενο παράδειγμα, η τιμή του C3 αλλάζει σε Θηλυκός, όπως έχουμε επιλέξει το δεύτερο κουμπί Επιλογή. Σε αυτή την περίπτωση, η διαδικασία optOptionButton2_Click () ενεργοποιείται.
Χρησιμοποιήστε ένα κουμπί Option σε μια φόρμα χρήστη
Όπως αναφέραμε, το κουμπί Option χρησιμοποιείται συχνότερα σε Userforms. Για να εξηγήσουμε πώς μπορείτε να το κάνετε, θα εισαγάγουμε πρώτα μια φόρμα χρήστη. Στο πρόγραμμα επεξεργασίας VBA, κάντε δεξί κλικ στο όνομα μονάδας, κάντε κλικ στο Εισάγετε και επιλέξτε UserForm:
Εικόνα 5. Εισαγάγετε μια φόρμα χρήστη
Για να εμφανίσετε στοιχεία ελέγχου για εισαγωγή, πρέπει να ενεργοποιήσετε το ΕργαλειοθήκηΤο Για να το κάνετε αυτό, κάντε κλικ στοΕργαλειοθήκη εικονίδιο στη γραμμή εργαλείων. Μετά από αυτό, θα λάβετε τα παράθυρα με όλα τα διαθέσιμα στοιχεία ελέγχου. Μπορείτε να κάνετε κλικ στοΚουμπί επιλογής για να το δημιουργήσετε στο Userform:
Εικόνα 6. Εισαγάγετε ένα κουμπί Option στη φόρμα χρήστη
Στο παράθυρο ιδιοτήτων, αλλάζουμε το όνομα του κουμπιού Option σε optOptionButton1 και caption σε ΑρσενικόςΤο Ομοίως, δημιουργήσαμε ένα άλλο κουμπί επιλογής για τις γυναίκες. Όταν εκτελούμε το Userform, έχουμε δύο κουμπιά Επιλογών:
Εικόνα 7. Δύο κουμπιά επιλογών στο Userform
Εάν θέλετε να λάβετε ένα επιλεγμένο κουμπί Επιλογή, πρέπει να χρησιμοποιήσετε την ίδια λογική όπως για ένα Φύλλο εργασίας, το οποίο εξηγείται νωρίτερα στο άρθρο.