1 Тема от Fck_This

  • Check Box
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Тема: Check Box

Граждане, нуждаюсь в совете. Можно ли сделать так, чтобы check box становился виден при условии, что Value двух других чекбоксов = False. В какое событие стоит вставлять код?

If chGramota.Value = False And chPremiya.Value = False Then
chNapoddat.Visible = True
End If

Сам знаю только о возможности скрыть или отобразить элемент формы при CheckBox_Change для одного чекбокса.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

2 Ответ от Alex_Gur

  • Check Box
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Check Box

Это в Экселе?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3 Ответ от Alex_Gur

  • Check Box
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492
  • За сообщение: 1

Re: Check Box

Private Sub chNapoddat01()
    If chGramota.Value = False And chPremiya.Value = False Then
        chNapoddat.Visible = True
    Else: chNapoddat.Visible = False
    End If
End Sub

Private Sub chGramota_Click()
    Call chNapoddat01
End Sub

Private Sub chPremiya_Click()
    Call chNapoddat01
End Sub

Private Sub UserForm_Initialize()
    Call chNapoddat01
End Sub

Файл прилагаю.

Post's attachments

Флажки.xlsm 22.58 Кб, 1 скачиваний с 2016-07-31 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4 Ответ от МВТ

  • МВТ
  • сержант
  • Неактивен
  • Зарегистрирован: 04.04.2016
  • Сообщений: 27
  • Поблагодарили: 12
  • За сообщение: 1

Re: Check Box

Можно немного проще

Private Sub chNapoddat01()
    chNapoddat.Visible = Not (chGramota.Value Or chPremiya.Value)
End Sub