如何在 Excel 中选择特定的表单控件复选框？

Question

我正在使用 Excel 2010。

我在我的工作表中设置了 10 个表单控件复选框，我想自动选择一组复选框。我之前看到的关于这个主题的所有帖子都包括选择所有复选框或取消选择所有复选框。

这是以前帖子中用于取消选中所有复选框的 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 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