Не работает выбор Option Button

Rdg2004

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

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

16.08.2010 08:50:29

Здравствуйте!
В прилагаемом файле есть форма. Что бы её вызвать два раза кликните по любому театру. В форме можно ничего не заполнять, единственное, надо выбрать одну из Option button'ов и нажать "Внести данные в таблицу". Проблема в том, что какую бы мы не выбрали, выбирается именно вторая.

Прошу Вашей помощи... Заранее благодарен

Архив 84 кб

Прикрепленные файлы

post_146028.rar (82.57 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 16.08.2010 09:34:42 Задайте одной из Option Button параметр Value=True и в коде добавьте проверку ЕСЛИ-ТО (If-Then).

Юрий М

Модератор

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

Контакты см. в профиле

16.08.2010 10:57:44

1. Найдите в коде следующие строки:
If OptionButton1.Enabled = True Then
DATAVSTUPLENIA = "Сработала первая Option Button!!!"
Else
End If
If OptionButton2.Enabled = True Then
DATAVSTUPLENIA = "Сработала вторая Option Button!!!"
Else
End If
Удалите или закомментируйте их. Скопируйте и вставьте эти строки:
If OptionButton1 = True Then
DATAVSTUPLENIA = "Сработала первая Option Button!!!"
ElseIf OptionButton2 = True Then
DATAVSTUPLENIA = "Сработала вторая Option Button!!!"
Else
DATAVSTUPLENIA = "Ваще фигня: не выбрана Option Button!!!"
End If
2. Чтбы выйти из режима редактирования, в макросе листа (Private Sub Worksheet_BeforeDoubleClick)
перед End sub добавьте такую строку:
Cancel = True

Guest Гость	#4 16.08.2010 14:04:09 Блиииин спасибище Вам огромное!!!!! У меня всё получилось! А по поводу Cancel=True блин бился столько над этим только не хотел заводить тему как то руки не доходили, а Вы сами мне помогли!!! СПАСИБО ЗА ВАШУ ПОМОЩЬ!!!!!!!!!!!!!!!!!!!!!!!!

Читают тему