遍历复选框的方法

chxw68

按楼主要求修改的。

1. Sub test1()
   
2.   Dim n%
   
3.   With Worksheets("sheet1")
   
4.     n = 0
   
5.     For Each shp In .Shapes
   
6.       If shp.DrawingObject.Name Like "CheckBox*" Then
   
7.         n = n + 1
   
8.         If n >= 4 And n <= 8 Then
   
9.           shp.DrawingObject.Object.Value = Not shp.DrawingObject.Object.Value
   
10.         End If
    
11.       End If
    
12.     Next
    
13.   End With
    
14. End Sub
    
15. Sub test2()
    
16.   Dim n%
    
17.   n = 0
    
18.   With Worksheets("sheet1")
    
19.     For Each shp In .OLEObjects
    
20.       If shp.Name Like "CheckBox*" Then
    
21.         n = n + 1
    
22.         If n >= 4 And n <= 8 Then
    
23.           shp.Object.Value = Not shp.Object.Value
    
24.         End If
    
25.       End If
    
26.     Next
    
27.   End With
    
28. End Sub
    

复制代码

chxw68

修改好了。

chxw68

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

复选框的顺序可能不是楼主预期的，所以一般不这么做。

cums

chxw68 发表于 2020-2-15 16:54
按楼主要求修改的。

非常非常感谢！！！