[已解决]EXCEL VBA 中复选框问题, 见图

qf_199002

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-8-25 07:30

你在过程里嵌套过程了，上面的两个sub行删除一个先。

跳转到最佳答案楼层

hwc2ycy

你在过程里嵌套过程了，上面的两个sub行删除一个先。

hwc2ycy

1. Sub demo1()
   
2.     Dim shp As OLEObject
   
3.     Dim i&
   
4.     For Each shp In ActiveSheet.OLEObjects
   
5.         With shp.Object
   
6.             If InStr(.Caption, "CheckBox") Then
   
7.                 If .Value Then i = i + 1
   
8.             End If
   
9.         End With
   
10.     Next
    
11.     MsgBox i
    
12. End Sub

复制代码

su45

代码直接粘贴在帖子中，不要用图片的格式，不方便他人查看及修改！

qf_199002

谢谢