Блокировка/разблокировка OptionButton

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Блокировка/разблокировка OptionButton (Макросы/Sub)

AVI

Дата: Понедельник, 16.07.2018, 08:54 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Такая ситуация. В форме UF_Addmain1 во фрейме "Операция" есть три пункта "Операции со складом", "Введение начального остатка" и "Заказ у поставщика" Мне нужно, что бы при выборе "Операции со складом" - все "дырочки" во фрейме "Операции со складом" были доступны для изменения, а при выборе "Введение начального остатка" или "Заказ у поставщика" все "дырочки" во фрейме "Операции со складом" очищались и становились недоступны для изменения.

Я попытался это сделать сам:

но у меня не получается ее разблокировать... "знаний" явно не хватает

К сообщению приложен файл: __1.xlsm (45.6 Kb)

Сообщение отредактировал AVI - Понедельник, 16.07.2018, 09:10

Ответить

Karataev

Дата: Понедельник, 16.07.2018, 09:10 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1342

Репутация: 535 ±

Замечаний: 0% ±

Excel

Смотрите файл. Я вынес форму, по которой у Вас вопрос, в пустой файл (мне так удобнее анализировать макрос).

К сообщению приложен файл: Macro_kar.xlsb (14.2 Kb)

Ответить

AVI

Дата: Понедельник, 16.07.2018, 09:14 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Karataev, Простите, а "boolState" это что? Очистка?

Сообщение отредактировал AVI - Понедельник, 16.07.2018, 09:15

Ответить

Karataev

Дата: Понедельник, 16.07.2018, 09:16 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1342

Репутация: 535 ±

Замечаний: 0% ±

Excel

boolState - это аргумент процедуры "OnOffSklad".
В аргумент "boolState" записывается True или False и затем аргумент "boolState" подставляется в код.

Ответить

RAN

Дата: Понедельник, 16.07.2018, 09:20 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Олег, зачем такие извращения?
[vba]

Код

Private Sub OptionButton5_Change()
    OptionButton10 = False
    OptionButton6 = False
    OptionButton11 = False
    OptionButton10.Enabled = OptionButton5
    OptionButton6.Enabled = OptionButton5
    OptionButton11.Enabled = OptionButton5
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

AVI

Дата: Понедельник, 16.07.2018, 09:21 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Karataev, Спасибо, я понял.

Сообщение отредактировал AVI - Понедельник, 16.07.2018, 09:31

Ответить

Блокировка/разблокировка OptionButton (Макросы/Sub)

Страница 1 из 1
1