已传附件，控件勾选隐藏行，在多选的情况下显示不正确，求指导

gc6699

插入的ActiveX 控件勾选隐藏行，在多选的情况下显示不正确，求指导
vba进行控制勾选哪个控件，对应的隐藏哪一行。单独勾选没有问题，可是在多项勾选的情况下，隐藏行逻辑不对，求教怎么进行优化，感谢！


Private Sub CheckBox1_Click()
ActiveSheet.Rows("8:8").Hidden = CheckBox1
End Sub
Private Sub CheckBox2_Click()
ActiveSheet.Rows("8:8").Hidden = CheckBox2
End Sub
Private Sub CheckBox3_Click()
ActiveSheet.Rows("7:7").Hidden = CheckBox3
End Sub
Private Sub CheckBox4_Click()
ActiveSheet.Rows("8:8").Hidden = CheckBox4
End Sub

3190496160

不明白你的具体需求，但是，看目前的代码，
CheckBox1，CheckBox2，CheckBox4都是控制同一行，就是第八行的，既然三个控件都是控制同一行，还用是三个控件干嘛呢

gc6699

3190496160 发表于 2023-3-21 11:20
不明白你的具体需求，但是，看目前的代码，
CheckBox1，CheckBox2，CheckBox4都是控制同一行，就是第八行 ...

就是当组织形式是通讯咨询时，工作量处隐藏其他三种形式，只填通讯咨询的信息，当勾选非通讯咨询的其他三种组织形式时，隐藏工作量中的通讯咨询，只填这三种的信息，当同时有通讯咨询和其他任意一种组合时，工作量处全部显示。

老师请看下能明白意思吗？

gc6699

3190496160 发表于 2023-3-21 11:20
不明白你的具体需求，但是，看目前的代码，
CheckBox1，CheckBox2，CheckBox4都是控制同一行，就是第八行 ...

三个控件的目的是让大家是这三个的情况分别勾选对应的组织形式。