W VBA możesz utworzyć Przycisk opcji aby umożliwić użytkownikowi wybór spośród kilku opcji. Przycisk opcji jest często używany w formularzach użytkownika, ale można go również użyć w arkuszu. W tym samouczku dowiesz się, jak utworzyć przycisk opcji, uzyskać wybór użytkownika w VBA i użyć go w kodzie.
Jeśli chcesz dowiedzieć się, jak utworzyć pole wyboru, kliknij tutaj: VBA Checkbox
Utwórz przycisk opcji
Aby wstawić przycisk opcji w arkuszu, musisz przejść do Karta programisty, Kliknij Wstawić i pod kontrolkami ActiveX wybierz Przycisk opcji:
Obraz 1. Wstaw przycisk opcji w arkuszu
Po wybraniu przycisku opcji, który wstawiłeś, możesz kliknąć Nieruchomości pod Karta programisty:
Obraz 2. Zmień Właściwości przycisku opcji
Tutaj możesz ustawić różne właściwości przycisku Option. Na początek zmieniliśmy atrybut Nazwa do przyciskopcji1. Teraz możemy użyć przycisku Opcja o tej nazwie w kodzie VBA.
Zmieniliśmy również tekst, który pojawia się obok przycisku opcji na Męski. Aby to zrobić, musisz ustawić atrybut Podpis.
Ponieważ chcemy umożliwić użytkownikowi wybór płci, cały proces powtórzymy dla kolejnego przycisku Option. Drugi ma nazwę przyciskopcji2, podczas gdy podpis jest Płeć żeńska. Możesz również utworzyć nowy przycisk opcji, kopiując istniejący i zmieniając właściwości. Teraz nasz Arkusz ma dwa przyciski opcji:
Obraz 3. Wstaw drugi przycisk opcji
Uzyskaj wybrany przycisk opcji w VBA
Celem przycisku opcji jest uzyskanie decyzji użytkownika. Pokażemy na przykładzie jak pisać Męski w komórce C3, jeśli wybrany jest przycisk opcji 1 lub Płeć żeńska jeśli zostanie wybrany drugi. Każdy przycisk opcji ma swoje zdarzenie, które uruchamia się po jego wybraniu - Kliknij.
Dlatego dla pierwszego przycisku Option musimy umieścić w zdarzeniu następujący kod Kliknij obiektu optOpcjaPrzycisk1:
| 123456789 | Subskrypcja prywatna optOptionButton1_Click()Jeśli Sheet1.optOptionButton1.Value = True WtedySheet1.Range("C3") = "Mężczyzna"Zakończ, jeśliNapis końcowy |
Podobnie umieścimy ten kod w zdarzeniu Kliknij obiektu przyciskopcji2:
| 123456789 | Subskrypcja prywatna optOptionButton2_Click()Jeśli Sheet1.optOptionButton2.Value = True WtedySheet1.Range("C3") = "Kobieta"Zakończ, jeśliNapis końcowy |
Wartość przycisku Option znajduje się wWartość atrybut obiektu przyciskopcji1 lub przyciskopcji2. Wartość przycisku Option może być prawda, jeśli jest wybrana, lub fałszem, jeśli nie jest wybrana.
Obraz 3. Zwróć Male, jeśli zostanie wybrany pierwszy przycisk opcji
Jak widać na obrazku 3, kliknęliśmy pierwszy przycisk opcji. Dlatego wartość Sheet1.optOptionButton1.Value jest prawdziwe, więc wynik w C3 to Męski.
Obraz 4. Zwróć kobietę, jeśli wybrano drugi przycisk opcji
Podobnie jak w poprzednim przykładzie, wartość C3 zmienia się na Płeć żeńska, ponieważ wybraliśmy drugi przycisk opcji. W takim przypadku procedura optOptionButton2_Click() jest wyzwalany.
Użyj przycisku opcji w formularzu użytkownika
Jak wspomnieliśmy, przycisk Option jest najczęściej używany w Userforms. Aby wyjaśnić, jak możesz to zrobić, najpierw wstawimy formularz użytkownika. W edytorze VBA kliknij prawym przyciskiem myszy nazwę modułu, kliknij Wstawić i wybierz Formularz użytkownika:
Obraz 5. Wstaw formularz użytkownika
Aby wyświetlić kontrolki do wstawiania, musisz włączyć Przybornik. Aby to zrobić, kliknijPrzybornik na pasku narzędzi. Następnie otrzymasz okna ze wszystkimi dostępnymi kontrolkami. Możesz kliknąć naPrzycisk opcji aby utworzyć go w Userform:
Obraz 6. Wstaw przycisk opcji w formularzu użytkownika
W oknie właściwości zmieniamy nazwę przycisku Option na optOptionButton1 i podpis na Męski. Podobnie stworzyliśmy kolejny przycisk opcji dla kobiet. Po uruchomieniu formularza użytkownika otrzymujemy dwa przyciski opcji:
Obraz 7. Dwa przyciski opcji w Userform
Jeśli chcesz uzyskać wybrany przycisk opcji, musisz użyć tej samej logiki, co w przypadku arkusza roboczego, co zostało wyjaśnione wcześniej w artykule.
