主複選框，使其他複選框

Question

你好，我不知道該怎麼做了複選框是激活 anothers檢查框在Excel 2010中

我的意思是如果我檢查的第一複選框使其他複選框失效。

Answer 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