Основной флажок, который позволяет другим флажком

Привет, я не знаю, как сделать флажок , чтобы активировать чужие флажки в excel 2010.

enter image description here

Что я имею в виду, если я проверил первый флажок, сделанный falso al the other checkbox.

0
nl ja de
@JonathanRaulTapiaLopez представит ваш собственный ответ в этом случае)
добавлено автор Peter L., источник
Вам нужно будет добавить код в событие щелчка каждого флажка, чтобы вызвать метод, который устанавливает значение других флажков
добавлено автор Dan, источник
Спасибо, что решить мою проблему я думаю с помощью Private Sub CheckBox1_Click()
добавлено автор Jonathan Raul Tapia Lopez, источник

1 ответы

короткий пример здесь. Добавьте флажок с именем MasterCheckBox в вашу форму. Используйте UserFormEnableEvents для подтверждения событий в пользовательской форме ... если вам нужно.

Option Explicit
Private UserFormEnableEvents As Boolean

Private Sub UserForm_Initialize()
  UserFormEnableEvents = True
End Sub

Private Sub MasterCheckBox_Change(): On Error GoTo Err_handler
  Dim userFormControl As Control

  UserFormEnableEvents = False

  For Each userFormControl In Me.Controls
    If (TypeOf userFormControl Is MSForms.CheckBox And _
      userFormControl.Name <> MasterCheckBox.Name) Then
        userFormControl.Value = Not userFormControl.Value
    End If
  Next

Err_handler:
  If (Err.Number <> 0) Then MsgBox Err.Description
  UserFormEnableEvents = True
End Sub

enter image description here

3
добавлено
@Doug: спасибо, отличная статья!
добавлено автор dee, источник
+1. Если вы или кто-нибудь заинтересованы в «двухсторонних» флажках, где щелчок на одной из групповых флагов также влияет на мастера, я написал это сообщение: yoursumbuddy.com/userform-event-handler-class-multiple-contr‌ ols .
добавлено автор Doug Glancy, источник
Рад что вам понравилось.
добавлено автор Doug Glancy, источник