excel宏-复选框以选择其他复选框

Question

i'm trying to have a selection of optoins via checkboxes. I want to have one specific box automatically check a few other boxes. I'm getting Object required (Error 424) when i click the box in question after assigning the macro below:

any help would be much appreciated

Public Sub CheckBox1_Click()
If CheckBox21.Value = True Then
    CheckBox2.Value = True
    CheckBox5.Value = True
    CheckBox6.Value = True
    CheckBox18.Value = True
    CheckBox19.Value = True
    CheckBox20.Value = True
    CheckBox22.Value = True
    CheckBox23.Value = True
    CheckBox2.Enabled = False
    CheckBox5.Enabled = False
    CheckBox6.Enabled = False
    CheckBox18.Enabled = False
    CheckBox19.Enabled = False
    CheckBox20.Enabled = False
    CheckBox22.Enabled = False
    CheckBox23.Enabled = False
Else
    CheckBox2.Enabled = True
    CheckBox5.Enabled = True
    CheckBox6.Enabled = True
    CheckBox18.Enabled = True
    CheckBox19.Enabled = True
    CheckBox20.Enabled = True
    CheckBox22.Enabled = True
    CheckBox23.Enabled = True
End If

End Sub

Answer 1

Does this work for you?

Private Sub CheckBox21_Change()

If CheckBox21.Value = True Then
    CheckBox2.Value = True
    CheckBox5.Value = True
    CheckBox6.Value = True
    CheckBox18.Value = True
    CheckBox19.Value = True
Else
    CheckBox2.Value = False
    CheckBox5.Value = False
    CheckBox6.Value = False
    CheckBox18.Value = False
    CheckBox19.Value = False
End If

Answer 2

i figured out how to do it with editing the cells, not the check boxes

Public Sub CheckBox1_Click()
If Range("AF3").Value = True Then
    Range("AA3").Value = True
    Range("AC3").Value = True
    Range("AE3").Value = True
    Range("AG3").Value = True
    Range("AD3").Value = True
    Range("AI3").Value = True
    Range("AH3").Value = True
    Range("AK3").Value = True
Else
    Range("AA3").Value = False
    Range("AC3").Value = False
    Range("AE3").Value = False
    Range("AG3").Value = False
    Range("AD3").Value = False
    Range("AI3").Value = False
    Range("AH3").Value = False
    Range("AK3").Value = False
End If

End Sub

Answer 3

you can collapse your routine down to:

Public Sub CheckBox1_Click()
    Range("AA3,AC3:AE3,AG3:AI3,AK3").Value = Range("AF3").Value
End Sub