清除EXCEL中选项框的内容

2019独角兽企业重金招聘Python工程师标准>>>

在EXCEL中，单选框 Option Button和复选框 Check Box；初始化批量将期初值清除

Sub Initail_ControlButton()
For Each Cp1 In ActiveSheet.Shapes
    If Cp1.Name Like "Option Button*" Or Cp1.Name Like "Check Box*" Then
        Cp1.Select
        Selection.Value = -4146
    End If
Next
End Sub

 

开始可能控件有值，如下：

执行程序后，结果如下；所有选值已被清除。

转载于:https://my.oschina.net/tedzheng/blog/2254110