遍历复选框的方法

cums

一个页面中有多个复选框，遍历检查其中的一部分，比如6~10个，如果已经被勾选，则取消勾选。
试了几个方法都不行
请指点。请见附件
谢谢。

liulang0808

bl = False
    For Each shp In ActiveSheet.Shapes
        MsgBox shp.Name
        If InStr(shp.Name, "Check") > 0 Then shp.ControlFormat.Value = bl
    Next shp
插入是表单控件，看看通过空间名称能够实现把

cums

liulang0808 发表于 2020-2-14 16:14
bl = False
    For Each shp In ActiveSheet.Shapes
        MsgBox shp.Name

谢谢，但是我没有成功，您再帮忙给看下？附件加上了
谢谢

chxw68

下面两种方法都能实现楼主要求。

1. Sub test()
   
2.   With Worksheets("sheet1")
   
3.     For Each shp In .Shapes
   
4.       If shp.DrawingObject.Name Like "CheckBox*" Then
   
5.         shp.DrawingObject.Object.Value = Not shp.DrawingObject.Object.Value
   
6.       End If
   
7.     Next
   
8.   End With
   
9. End Sub
   
10. Sub test2()
    
11.   With Worksheets("sheet1")
    
12.     For Each shp In .OLEObjects
    
13.       If shp.Name Like "CheckBox*" Then
    
14.         shp.Object.Value = Not shp.Object.Value
    
15.       End If
    
16.     Next
    
17.   End With
    
18. End Sub
    
19. 
    

复制代码

chxw68

详见附件。

liulang0808

cums 发表于 2020-2-15 09:39
谢谢，但是我没有成功，您再帮忙给看下？附件加上了
谢谢

插入控件有表单控件跟activex控件，二者处理有出入的。
之前的代码是针对表单控件的，

chxw68

完善了一下。

1. Sub test1()
   
2.   With Worksheets("sheet1")
   
3.     For Each shp In .Shapes
   
4.       If shp.Type = 12 Then
   
5.         If shp.DrawingObject.progID = "Forms.CheckBox.1" Then
   
6.           shp.DrawingObject.Object.Value = Not shp.DrawingObject.Object.Value
   
7.         End If
   
8.       End If
   
9.     Next
   
10.   End With
    
11. End Sub
    
12. Sub test2()
    
13.   With Worksheets("sheet1")
    
14.     For Each shp In .OLEObjects
    
15.       If shp.progID = "Forms.CheckBox.1" Then
    
16.         shp.Object.Value = Not shp.Object.Value
    
17.       End If
    
18.     Next
    
19.   End With
    
20. End Sub
    
21. 
    

复制代码

cums

chxw68 发表于 2020-2-15 10:33
完善了一下。

非常感谢。再多请教下，如果选择其中的一部分，怎么写？比如10个复选框，选中第4~8个执行该操作。

cums

liulang0808 发表于 2020-2-15 10:15
插入控件有表单控件跟activex控件，二者处理有出入的。
之前的代码是针对表单控件的，

谢谢！没有系统学习过，自己看着别人写的，写一些简单代码凑合用，理解的不深，没能领会您的意思。
用表单控件的话，应怎么写？

chxw68

cums 发表于 2020-2-15 16:41
非常感谢。再多请教下，如果选择其中的一部分，怎么写？比如10个复选框，选中第4~8个执行该操作。

这个一般要根据名称操做。