[已解决]用VBA怎么实现一键清除复选框里的“√”？

qixueli001

各位前辈，请教用VBA怎么实现一键清除复选框里的“√”？
附件如下：

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-18 18:48

1. Sub test()
   
2.     Dim item1 As Object
   
3.     For Each item1 In ActiveSheet.OLEObjects   '控件遍历
   
4.         With item1
   
5.             Select Case TypeName(.Object)
   
6.                 Case "CheckBox"
   
7.                     .Object.Value = False
   
8.             End Select
   
9.         End With
   
10.     Next
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

代码吧。

hwc2ycy

1. Sub test()
   
2.     Dim item1 As Object
   
3.     For Each item1 In ActiveSheet.OLEObjects   '控件遍历
   
4.         With item1
   
5.             Select Case TypeName(.Object)
   
6.                 Case "CheckBox"
   
7.                     .Object.Value = False
   
8.             End Select
   
9.         End With
   
10.     Next
    
11. End Sub
    

复制代码

qixueli001

hwc2ycy 发表于 2013-7-18 18:48

版主果真是牛人，一下就解决我的问题，非常感谢！