Сгрупировать OptionButton

Пользователь

Сообщений: 333 Регистрация: 14.11.2014

28.11.2015 12:50:39

Добрый день.

Существует форма userform и 4 OptionButton.
Каждый OptionButton отвечает за вставку конкретного значения в ячейку и печатает по условию активного OptionButton .

Хотелось бы прописать условие, в котором если не выбран один из OptionButton печать файла не будет происходить.
Вот пример vba

Код

If OptionButton1.Value = True Then
Sheets("RR_done").Range("C25:I25").Value = "Дима"
Sheets("RR_done").Range("C22:I22").Value = "A"
Sheets("FM").Range("BC4:BG5").Value = "A"
End If
If OptionButton1.Value = False Then
Sheets("RR_done").Range("C25:I25").Value = ""
End If

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012	#2 28.11.2015 12:56:50 Файл можно приложить? There is no knowledge that is not power

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

28.11.2015 13:05:08

Homavi, печать по нажатию кнопки происходит? Тогда в коде кнопки можно так

Код
Private Sub CommandButton1_Click() If OptionButton1 Or OptionButton2 Or OptionButton3 Or OptionButton4 Then ActiveSheet.PrintOut Else MsgBox "Выберите что-нибудь!" End If End Sub

Homavi

Пользователь

Сообщений: 333 Регистрация: 14.11.2014

28.11.2015 13:19:29

Казанский,
а если данные OptionButton находятся внутри frame, то как правильно написать ?

Код
For Each obj In Frame9.Controls If obj.Value = False Then MsgBox "ntcn", vbCritical Exit Sub End If

Прописал такой код, все работает, но как прописать несколько frame ? у меня их 4

Задача в том чтобы хотябы в одном из 4 frame было выбран один OptionButton , если не выбран не один то выводится сообщение.
Если выбран только один то все ОК

Изменено: Homavi - 28.11.2015 13:27:03

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012	#5 28.11.2015 13:28:57 Выложите файл, чтобы не было лишних вопросов. There is no knowledge that is not power

Homavi Пользователь Сообщений: 333 Регистрация: 14.11.2014	#6 28.11.2015 14:06:29 Johny, с удовольствием, но не могу из за конфиденциальной информации.

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012	#7 28.11.2015 14:13:14 Тогда ждите Вангу - она сейчас в отпуске. There is no knowledge that is not power

RAN

Пользователь

Сообщений: 7207 Регистрация: 21.12.2012

28.11.2015 19:37:24

Цитата
Johny написал: Выложите файл, чтобы не было лишних вопросов.

Цитата
Homavi написал: Johny, с удовольствием, но не могу из за конфиденциальной информации.

И почему я был уверен в таком ответе?

Homavi, нет, и не надо! Не очень-то и хотелось!

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#9 28.11.2015 20:49:07 Вариант: при инициализации (или активации) формы принудительно активировать одну из радиокнопок.

Читают тему