Разблокировать поле со списком, когда выбрана кнопка выбора

Question

Я пытаюсь разблокировать комбинированный список, когда включена кнопка выбора. Я использую следующий код в модуле, но когда я запускаю код и выбираю опцию, поле со списком остается заблокированным

If Custom = True Then
  FromMonth.Locked = False
  FromYear.Locked = False
  ToMonth.Locked = False
  ToYear.Locked = False
End If

Я надеюсь найти способ одновременно нажать кнопку опции в пользовательской форме иразблокировать поля со списком рядом с ними

Answer 1

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

Ваш код может выглядеть примерно так:

Private Sub Custom_Change()
  FromMonth.Locked = Not Custom.Value
  FromYear.Locked = Not Custom.Value
  ToMonth.Locked = Not Custom.Value
  ToYear.Locked = Not Custom.Value
End Sub