如何在Excel中select特定的表单控件checkbox？

我在Excel 2010中工作。

我在工作表中设置了10个窗体控件checkbox，我想自动select一组checkbox。 之前所有关于此主题的post都涵盖了选中所有checkbox或取消选中所有checkbox。

下面是从以前的post中取消选中所有checkbox的VBA代码：

Sub clearcheck() Dim sh As Worksheet For Each sh In Sheets On Error Resume Next sh.CheckBoxes.Value = False On Error GoTo 0 Next sh End Sub 

这里是基于这个链的更新的代码，但它仍然遇到一个语法问题以及一个未知的sub：

 Sub highengagedonline() Dim cb As CheckBox, sht As Worksheet Set sht = Worksheets("Graph") For Each cb In sht.CheckBoxes If cb.Name = "Check Box 35" or _ cb.Name = "Check Box 36" or _ cb.Name = "Check Box 37" or _ cb.Name = "Check Box 38" or _ cb.Name = "Check Box 39" Then cb.Value = 1 Else: cb.Value = 0 End If Next cb End Sub 

Answer 1

尝试一下：

 Sub ClearCheck() Dim cb As CheckBox, sht As Worksheet Set sht = Worksheets("Sheet1") For Each cb In sht.CheckBoxes If cb.Name = "Check Box 1" Then cb.Value = 1 Else if cb.Name = "Check Box 2" Then cb.Value = 0 End If Next cb End Sub