如何在VBA中循环获取工作表ActiveX CheckBox的值？

在VBA里没法像JS那样直接用CheckBox(i)的方式访问ActiveX复选框，得通过工作表的OLEObjects集合来操作，给你两种可行的实现方式：

1. 按控件名称循环（适合已知命名规则的情况） #

如果你的复选框是按CheckBox1到CheckBox6命名的，直接循环索引拼接名称就行：

Sub GetCheckBoxValues()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("MyWorksheet")
    
    Dim i As Integer
    For i = 1 To 6
        ' 通过名称获取OLE对象，再访问控件本身的Value属性
        Dim chkVal As Boolean
        chkVal = ws.OLEObjects("CheckBox" & i).Object.Value
        
        ' 这里可以替换成你需要的处理逻辑，比如打印值
        Debug.Print "CheckBox" & i & ": " & chkVal
    Next i
End Sub

注意：ActiveX控件属于OLEObject容器，必须通过.Object才能访问到复选框的Value属性。

2. 遍历所有ActiveX复选框（适合不确定数量或命名的情况） #

如果不想依赖命名规则，可以遍历工作表里所有OLE对象，筛选出复选框类型：

Sub LoopAllCheckBoxes()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("MyWorksheet")
    
    Dim obj As OLEObject
    For Each obj In ws.OLEObjects
        ' 判断当前对象是否是ActiveX复选框
        If TypeName(obj.Object) = "CheckBox" Then
            Debug.Print obj.Name & ": " & obj.Object.Value
        End If
    Next obj
End Sub

另外提下你之前代码的问题：

• VBA里变量声明和赋值不能写在一行，正确写法是Dim Src1 As Boolean: Src1 = Worksheets("MyWorksheet").CheckBox1.Value
• 你最后用了MsgBox Src & i，但Src根本没定义，应该是Src1

内容的提问来源于stack exchange，提问作者kattp