VBA运行时错误1004：检查表单控件类型时出现应用程序定义错误

嘿，我来帮你搞定这个报错！你遇到的1004错误大概率是因为代码里的对象引用或者类型判断没做周全，咱们一步步来修复：

错误原因分析 #

• 工作表名称不匹配：Tabelle1是德语版Excel的默认工作表名，如果你的Excel是中文/英文等其他语言版本，这个名称就不对，会导致找不到工作表引发错误。
• 未判断形状类型：工作表里的形状不一定都是表单控件复选框（比如可能是ActiveX控件、图片、文本框），直接访问.FormControlType会因为非表单控件没有这个属性而报错。

修正后的表单控件统计代码 #

Option Explicit
Public Sub Count_CheckBoxes()
    Dim counter As Integer
    Dim shpBox As Shape
    
    ' 替换成你实际的工作表名称（右键工作表标签查看）
    With ThisWorkbook.Worksheets("Sheet1")
        For Each shpBox In .Shapes
            ' 先确认是表单控件，再判断是否为复选框
            If shpBox.Type = msoFormControl Then
                If shpBox.FormControlType = xlCheckBox Then
                    If shpBox.ControlFormat.Value = xlOn Then
                        counter = counter + 1
                    End If
                End If
            End If
        Next
        ' 将统计结果写入C29单元格
        .Cells(29, 3).Value = counter
    End With
End Sub

关键修改说明 #

1. 工作表引用优化：用ThisWorkbook.Worksheets("Sheet1")代替Tabelle1，你只需要把"Sheet1"改成你实际的工作表名称（比如中文的“Sheet1”或者自定义名称），这样不受Excel语言版本影响。
2. 增加类型判断：先通过shpBox.Type = msoFormControl筛选出表单控件，再判断是否为复选框，避免非表单控件触发错误。

如果是ActiveX控件复选框的统计代码 #

如果你的复选框是从「开发工具→ActiveX控件」里插入的，用下面的代码更合适：

Option Explicit
Public Sub Count_ActiveX_CheckBoxes()
    Dim counter As Integer
    Dim oleObj As OLEObject
    
    With ThisWorkbook.Worksheets("Sheet1")
        For Each oleObj In .OLEObjects
            If TypeName(oleObj.Object) = "CheckBox" Then
                If oleObj.Object.Value = True Then
                    counter = counter + 1
                End If
            End If
        Next
        .Cells(29, 3).Value = counter
    End With
End Sub

额外排查小技巧 #

• 右键工作表标签，确认工作表的实际名称，确保代码里的名称和它完全一致（区分大小写）。
• 快速判断控件类型：表单控件复选框右键会显示「设置控件格式」，ActiveX控件右键会显示「属性」，根据类型选择对应的代码就行。

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