În VBA, puteți crea un fișier Buton opțiune pentru a permite unui utilizator să aleagă dintre mai multe opțiuni. Un buton Opțiune este adesea utilizat în Formulare de utilizator, dar poate fi utilizat și într-o foaie de lucru. În acest tutorial, veți învăța cum să creați un buton Option, să obțineți o alegere de utilizator în VBA și să îl utilizați în cod.
Dacă doriți să aflați cum să creați o casetă de selectare, faceți clic aici: Casetă de verificare VBA
Creați un buton de opțiune
Pentru a insera un buton Opțiune în Foaia de lucru, trebuie să accesați Fila dezvoltator, faceți clic pe Introduce și sub ActiveX Controls alegeți Buton opțiune:
Imagine 1. Introduceți un buton Opțiune în Foaia de lucru
Când selectați butonul Opțiune pe care l-ați inserat, puteți face clic pe Proprietăți sub Fila dezvoltator:
Imagine 2. Schimbați Proprietățile butonului Opțiune
Aici puteți seta diferite proprietăți ale butonului Opțiune. Pentru început, am schimbat atributul Nume la optOptionButton1. Acum, putem folosi butonul Opțiune cu acest nume în codul VBA.
De asemenea, am schimbat textul care apare lângă butonul Opțiune în Masculin. Pentru a face acest lucru, trebuie să setați atributul Legendă.
Deoarece dorim să permitem unui utilizator să aleagă sexul, vom repeta întregul proces pentru un alt buton Opțiune. Al doilea are nume optOptionButton2, în timp ce legenda este Femeie. De asemenea, puteți crea un nou buton Opțiune copiind cel existent și modificând proprietățile. Acum, Foaia noastră de lucru are două butoane de opțiune:
Imagine 3. Introduceți al doilea buton Opțiune
Obțineți un buton de opțiune selectat în VBA
Scopul unui buton Opțiune este de a obține o decizie a utilizatorilor. Vom arăta în exemplu cum să scriem Masculin în celula C3 dacă se alege butonul Opțiune 1 sau Femeie dacă se alege al doilea. Fiecare buton Opțiune are evenimentul său care se declanșează atunci când este ales - Clic.
Prin urmare, pentru primul buton Opțiune trebuie să punem următorul cod în eveniment Clic a obiectului optOptionButon1:
| 123456789 | Private Sub optOptionButton1_Click ()Dacă Sheet1.optOptionButton1.Value = True AtunciSheet1.Range ("C3") = "Male"End IfSfârșitul Sub |
În mod similar, vom pune acest cod în eveniment Clic a obiectului optOptionButton2:
| 123456789 | Private Sub optOptionButton2_Click ()Dacă Sheet1.optOptionButton2.Value = Adevărat atunciSheet1.Range ("C3") = "Feminin"End IfSfârșitul Sub |
Valoarea butonului Option este înValoare atributul obiectului optOptionButton1 sau optOptionButton2. Valoarea butonului Opțiune poate fi adevărată dacă este aleasă sau falsă dacă nu este aleasă.
Imagine 3. Întoarce mascul dacă este ales primul buton Opțiune
După cum puteți vedea în imaginea 3, am făcut clic pe primul buton Opțiune. Prin urmare, valoarea Sheet1.optOptionButton1.Value este adevărat, deci rezultatul în C3 este Masculin.
Imagine 4. Întoarce femeie dacă este ales al doilea buton Opțiune
În mod similar cu exemplul anterior, valoarea lui C3 este schimbată în Femeie, deoarece am ales al doilea buton Opțiune. În acest caz, procedura optOptionButton2_Click () este declanșat.
Utilizați un buton Opțiune într-un formular de utilizator
După cum am menționat, butonul Opțiune este cel mai des utilizat în Formulare de utilizator. Pentru a explica cum o puteți face, vom introduce mai întâi un formular de utilizator. În editorul VBA, faceți clic dreapta pe numele modulului, faceți clic pe Introduce și alegeți UserForm:
Imagine 5. Introduceți un formular de utilizator
Pentru a afișa comenzile pentru inserare, trebuie să activați Trusa de scule. Pentru a face acest lucru, faceți clic peTrusa de scule pictogramă din bara de instrumente. După aceea, veți obține ferestrele cu toate comenzile disponibile. Puteți face clic peButon opțiune pentru a-l crea în formularul de utilizator:
Imagine 6. Introduceți un buton Opțiune în Formularul de utilizator
În fereastra de proprietăți, schimbăm numele butonului Opțiune pentru a opta Butonul1 și subtitrarea în Masculin. În mod similar, am creat un alt buton de opțiune pentru femeie. Când rulăm Userform, primim două butoane de opțiune:
Imagine 7. Două butoane de opțiune în Userform
Dacă doriți să obțineți un buton de opțiune selectat, trebuie să utilizați aceeași logică ca pentru o foaie de lucru, care este explicată mai devreme în articol.
