求解，是VBA关于Checkbox控件相互控制的代码？有什么关联么

Question

我不是很懂VBA，现在是有三个checkbox控件，要实现一个功能：如果checkbox1被选中，checkbox2、checkbox3、checkbox4都选中如果checkbox2、checkbox3、checkbox4都选中，checkbox1也自动选中如果checkbox2、checkbox3、checkbox4不是都选中状态，checkbox1也自动不选中有点像checkbox1体现另外三个的总的状态，在VBE里如果写代码？求助

Answer 1

一.在checkbox1的更新后事件：

if checkbox1=-1 then  checkbox2=-1  checkbox3=-1  checkbox4=-1else  checkbox2=0  checkbox3=0  checkbox4=0end if

二.在checkbox2、3、4的更新后事件：

if checkbox2=-1 and  checkbox3=-1 and   checkbox4=-1 then   checkbox1=-1else  checkbox1=0end if

Answer 2

Private Sub CheckBox1_Click()    If CheckBox1 Then        CheckBox2.Value = True        CheckBox3.Value = True        CheckBox4.Value = True    Else        CheckBox2.Value = False        CheckBox3.Value = False        CheckBox4.Value = False    End IfEnd SubPrivate Sub CheckBox2_Click()    If CheckBox2 Then        If CheckBox3 And CheckBox4 Then CheckBox1.Value = True    Else        If Not CheckBox3 And Not CheckBox4 Then CheckBox1.Value = False    End IfEnd SubPrivate Sub CheckBox3_Click()    If CheckBox3 Then        If CheckBox2 And CheckBox4 Then CheckBox1.Value = True    Else        If Not CheckBox2 And Not CheckBox4 Then CheckBox1.Value = False    End IfEnd SubPrivate Sub CheckBox4_Click()    If CheckBox4 Then        If CheckBox3 And CheckBox2 Then CheckBox1.Value = True    Else        If Not CheckBox3 And Not CheckBox2 Then CheckBox1.Value = False    End IfEnd Sub