/ / / Κουμπιά επιλογών VBA του Excel

Κουμπιά επιλογής VBA του Excel

Αν έχετε περισσότερα από ένα πλήκτρα επιλογής, μπορείτε να επιλέξετε μόνο ένα από τα κουμπιά επιλογής. Για να δημιουργήσω κουμπιών επιλογής σε Excel VBA, εκτελέστε τα παρακάτω βήματα.

1. Στην καρτέλα Προγραμματιστής, κάντε κλικ στην επιλογή Εισαγωγή.

2. Στην ομάδα ActiveX Controls, κάντε κλικ στο κουμπί Option (Επιλογή).

Δημιουργήστε ένα κουμπί επιλογής στο Excel VBA

3. Σύρετε δύο κουμπιά επιλογών στο φύλλο εργασίας σας.

4. Κάντε δεξί κλικ στο πρώτο κουμπί επιλογής (βεβαιωθείτε ότι έχετε επιλέξει τη λειτουργία σχεδίασης).

5. Κάντε κλικ στην επιλογή Προβολή κωδικού.

Προβολή κωδικού

Σημείωση: μπορείτε να αλλάξετε τη λεζάντα και το όνομα ενός στοιχείου ελέγχου κάνοντας δεξί κλικ στον πίνακα ελέγχου (βεβαιωθείτε ότι έχετε επιλέξει τη λειτουργία σχεδίασης) και, στη συνέχεια, κάνοντας κλικ στην επιλογή Ιδιότητες. Αλλάξτε τις λεζάντες των κουμπιών επιλογής σε Γυναίκα και Άρρεν. Προς το παρόν, θα αφήσουμε τα OptionButton1 και OptionButton2 ως ονόματα των κουμπιών επιλογών.

6. Προσθέστε την ακόλουθη γραμμή κώδικα:

If OptionButton1.Value = True Then Range("D3").Value = 10

7. Κάντε δεξί κλικ στο δεύτερο κουμπί επιλογής (βεβαιωθείτε ότι έχετε επιλέξει τη λειτουργία σχεδίασης).

8. Κάντε κλικ στην επιλογή Προβολή κωδικού.

9. Προσθέστε την ακόλουθη γραμμή κώδικα:

If OptionButton2.Value = True Then Range("D3").Value = 20

10. Κάντε κλικ στα κουμπιά επιλογών στο φύλλο (βεβαιωθείτε ότι η λειτουργία σχεδίασης είναι απενεργοποιημένη).

Αποτέλεσμα:

Κουμπί επιλογής 1 Αληθές

Κουμπί επιλογής 2 Αληθινή

Αν και σε ορισμένες περιπτώσεις μπορεί να είναι χρήσιμο να τοποθετήσετε απευθείας κουμπιά επιλογών στο φύλλο εργασίας σας, τα κουμπιά επιλογών είναι ιδιαίτερα χρήσιμα όταν τοποθετούνται σε ένα Userform.

Επίσης διαβάστε: