为何调用VBA子程序时持续触发Error 424（需要对象）错误？

问题根源 #

你调用Approval子程序时，第三个参数传的是字符串"CheckBox1"，但子程序里直接以BoxNum.Value的方式访问属性——VBA无法将字符串识别为实际的复选框对象，因此触发“需要对象”错误。

解决方案 #

提供两种适配场景的修复方式：

方案1：直接传递复选框对象（推荐）

修改子程序参数类型，调用时直接传入复选框对象而非字符串：

Sub Approval(PF As String, Val As String, BoxNum As MSForms.CheckBox)
    If Range(PF).Value = "FAIL" Then
        If BoxNum.Value = True Then
            Dim User As String
            User = Application.UserName
            Dim Today As Date
            Today = Date
            Range(Val).Value = User & "   " & Today
        Else
            Range(Val).Value = ""
        End If
    Else
        BoxNum.Value = False
        Range(Val).Value = ""
        Exit Sub
    End If
End Sub

调用代码修改为：

Private Sub CheckBox1_Click()
    Call Approval("O28", "R28", CheckBox1)
End Sub

（去掉CheckBox1的引号，直接传递对象本身）

方案2：通过字符串名称获取复选框对象

如果需要动态传递复选框名称（比如批量处理控件），可以通过工作表的控件集合获取对象：

Sub Approval(PF As String, Val As String, BoxNum As String)
    Dim chkBox As Object
    ' 针对工作表ActiveX复选框，通过Shapes集合获取对象
    Set chkBox = Me.Shapes(BoxNum).OLEFormat.Object
    
    If Range(PF).Value = "FAIL" Then
        If chkBox.Value = True Then
            Dim User As String
            User = Application.UserName
            Dim Today As Date
            Today = Date
            Range(Val).Value = User & "   " & Today
        Else
            Range(Val).Value = ""
        End If
    Else
        chkBox.Value = False
        Range(Val).Value = ""
        Exit Sub
    End If
End Sub

调用代码保持原写法即可：

Private Sub CheckBox1_Click()
    Call Approval("O28", "R28", "CheckBox1")
End Sub

额外建议 #

• 给子程序参数和变量指定明确的类型（如As String、As Date），能提前发现类型不匹配问题，避免隐式转换错误；
• 若复选框是窗体控件，将获取对象的代码替换为Set chkBox = Me.Controls(BoxNum)即可。

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