勾选控件隐藏对应行，在多选的情况下怎么进行判断条件后实现不隐藏，求指导

gc6699

实际的需求就是：
1、勾选复选框3时，隐藏第7行；
2、分别或一起勾选复选框1、2、4时，隐藏第8行；
3、同时勾选复选框3和除3之外的任何一个或多个（即又有通讯咨询，又有其他的组织形式同时存在的情况），7、8行都不隐藏。【目前的代码实现不了第3个条件】



不知应该怎么配置写这个代码 求高人指导，万分感谢！

这是单独隐藏的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

zpy2

整行隐藏？
A,列，b列也隐藏？

tanglf188

gc6699

tanglf188 发表于 2023-3-23 10:14

厉害啊！虽然我看不懂test6啥意思？？但是实现了我说的功能感谢