多个复选框联动方法

lomita2003

帮我看一下~多谢大神路过，赐予我代码。

autohotey

给复选框加个点击事件：[B2:C2] = [D2]

lomita2003

autohotey 发表于 2024-10-16 16:24
给复选框加个点击事件： = [D2]

比如有很多行的数据，函数可以下拉，代码却不可以。vba果然很难。怎么批量弄下拉多列呢？

autohotey

lomita2003 发表于 2024-10-16 16:29
比如有很多行的数据，函数可以下拉，代码却不可以。vba果然很难。怎么批量弄下拉多列呢？

相互关联代码 参考
代码是可以直接把答案输出出来的，自然也不需要人工去拉，
如果想要函数那样下拉，宏表函数可以做到。

1. 
   
2. Sub 出门_Click()
   
3.     Dim a1 As Boolean
   
4.     a1 = CBool(Range("B2").Value) And CBool(Range("C2").Value)
   
5.     Range("D2").Value = a1
   
6. End Sub
   
7. 
   
8. 
   
9. Sub 买菜_Click()
   
10.     Dim a2 As Boolean
    
11.     a2 = CBool(Range("B2").Value) And CBool(Range("C2").Value)
    
12.     Range("D2").Value = a2
    
13. End Sub
    
14. 
    
15. 
    
16. Sub 完成_Click()
    
17.     [B2:C2] = [D2]
    
18. End Sub
    

复制代码

饮冰e士

由于点击复选框可以改变单元格的值，却不触发工作表事件，因此处理起来可能比较繁琐：
第一步：给所有的复选框添加点击事件；
第二步：判断哪3个复选框在一组（可以根据左上角单元格，或者通过规范命名来识别）；
第三步：根据想要的效果切换复选框的状态。

xjl565135022

这样么？

1. Private Sub CheckBox1_Click()
   
2. If CheckBox1.Value = True And CheckBox2.Value = True Then
   
3.     CheckBox3.Value = True
   
4. End If
   
5. End Sub
   
6. Private Sub CheckBox2_Click()
   
7. If CheckBox1.Value = True And CheckBox2.Value = True Then
   
8.     CheckBox3.Value = True
   
9. End If
   
10. End Sub
    
11. Private Sub CheckBox3_Click()
    
12. If CheckBox3.Value = True Then
    
13.     CheckBox1.Value = True
    
14.     CheckBox2.Value = True
    
15. Else
    
16.     CheckBox1.Value = False
    
17.     CheckBox2.Value = False
    
18. End If
    
19. End Sub
    

复制代码

lomita2003

xjl565135022 发表于 2024-10-16 17:24
这样么？

高手~我赶紧试一下。~!

lomita2003

autohotey 发表于 2024-10-16 16:40
相互关联代码 参考
代码是可以直接把答案输出出来的，自然也不需要人工去拉，
如果想要函数那样下拉， ...

高手请教一下，如果有多行这个，要怎么实现快速多行呢？每一个按钮写一个事件吗？？？

dragonthree

这个不是CheckBox1，是表单复选框

lomita2003

dragonthree 发表于 2024-10-17 16:38
这个不是CheckBox1，是表单复选框

是的，所以我现在也只能折中一下，用函数应付一下。达不到互联互通。但是可以单向打钩处罚反选。