Във VBA можете да създадете Бутон за опция да даде възможност на потребителя да избира от няколко опции. Бутон с опции често се използва в потребителските форми, но може да се използва и в работен лист. В този урок ще научите как да създадете бутон с опции, да получите потребителски избор във VBA и да го използвате в код.
Ако искате да научите как да създадете квадратче за отметка, щракнете тук: VBA Checkbox
Създайте бутон с опции
За да вмъкнете бутон с опции в работния лист, трябва да отидете на Раздел за програмисти, щракнете Вмъкване и под ActiveX Controls изберете Бутон за опция:
Изображение 1. Вмъкнете бутон с опции в работния лист
Когато изберете бутона Option, който сте вмъкнали, можете да кликнете върху Имоти под Раздел за програмисти:
Изображение 2. Променете свойствата на бутона Опция
Тук можете да зададете различни свойства на бутона Option. За начало променихме атрибута Име да се optOptionButton1. Сега можем да използваме бутона Option с това име във VBA кода.
Също така променихме текста, който се появява до бутона Option на Мъжки. За да направите това, трябва да зададете атрибута Надпис.
Тъй като искаме да позволим на потребителя да избере пол, ще повторим целия процес за друг бутон за опция. Вторият има име optOptionButton2, докато надписът е Женски пол. Можете също да създадете нов бутон Option, като копирате съществуващия и промените свойствата. Сега нашият работен лист има два бутона за опции:
Изображение 3. Поставете втория бутон с опции
Вземете бутон за избрана опция във VBA
Целта на бутона за опции е да получи решение на потребителите. В примера ще покажем как се пише Мъжки в клетката C3, ако е избран бутон за опция 1 или Женски пол ако е избран вторият. Всеки бутон с опции има свое събитие, което се задейства, когато е избрано - Щракнете.
Следователно, за първия бутон Option трябва да поставим следния код в събитието Щракнете на обекта optOptionButon1:
| 123456789 | Частен под optOptionButton1_Click ()Ако Sheet1.optOptionButton1.Value = Вярно ТогаваSheet1.Range ("C3") = "Мъжки"Край АкоEnd Sub |
По същия начин ще поставим този код в събитието Щракнете на обекта optOptionButton2:
| 123456789 | Частен под optOptionButton2_Click ()Ако Sheet1.optOptionButton2.Value = Вярно тогаваSheet1.Range ("C3") = "Женски"Край АкоEnd Sub |
Стойността на бутона Option е вСтойност атрибут на обекта optOptionButton1 или optOptionButton2. Стойността на бутона Option може да е вярна, ако е избрана, или невярна, ако не е избрана.
Изображение 3. Върнете мъжкия, ако е избран първият бутон за опция
Както можете да видите на Изображение 3, щракнахме върху първия бутон Option. Следователно стойността на Sheet1.optOptionButton1.Value е вярно, така че резултатът в C3 е Мъжки.
Изображение 4. Връщане на женски, ако е избран вторият бутон за опция
Подобно на предишния пример, стойността на C3 се променя на Женски пол, тъй като сме избрали втория бутон Option. В този случай процедурата optOptionButton2_Click () се задейства.
Използвайте бутон с опции в потребителска форма
Както споменахме, бутонът Option най -често се използва в потребителските форми. За да обясним как можете да го направите, първо ще вмъкнем Userform. В редактора на VBA щракнете с десния бутон върху името на модула, щракнете върху Вмъкване и изберете UserForm:
Изображение 5. Вмъкнете потребителска форма
За да се покажат контролите за вмъкване, трябва да активирате Кутия за инструменти. За да направите това, кликнете върхуКутия за инструменти икона в лентата с инструменти. След това ще получите прозорците с всички налични контроли. Можете да кликнете върхуБутон за опция за да го създадете в Userform:
Изображение 6. Поставете бутон с опции в Userform
В прозореца със свойства променяме името на бутона Option на optOptionButton1 и надпис на Мъжки. По същия начин създадохме друг бутон Option за женски. Когато стартираме Userform, получаваме два бутона Option:
Изображение 7. Два бутона с опции в Userform
Ако искате да получите избран бутон за опция, трябва да използвате същата логика като за работен лист, която е обяснена по -рано в статията.
