Excel VBA调用MSForm内函数报错1004：Run方法调用失败

我有一个包含多个TextBox控件的MSForm，通过前缀为Tb的属性（Getter/Setter）确保控件的格式与内容正确。当读取到错误格式的数据时，希望通过通用函数调用对应控件的HasInconsistTbXxx公共函数来标记字段状态，但使用Run方法调用同窗体的该函数时触发1004错误，尝试多种命名格式均无效，求问题原因及可行解决方案。

代码示例 #

'初始化代码
If Not CheckForInconsistData("Leader", accounts.Cells(1, 1).Value, _
       accounts.Cells(1, 2).Value, accounts.Cells(1, 3).Value, accounts.Cells(1, 4).Value) Then
  TbLeader = accounts.Cells(1, 1).Value
  ...

Private Function CheckForInconsistData(sCtrlName As String, vCtrl1 As Variant, vCtrl2 As Variant, vCtrl3 As Variant, vCtrl4 As Variant) As Boolean
  If vCtrl1 = "-" And (Not vCtrl2 = "-" Or Not vCtrl3 = "-" Or Not vCtrl4 = "-") Then
    Call SearchAndFillInBoardMember(sCtrlName, 0)
    Dim sFunctionName As String
    sFunctionName = "UF_TableBoard.HasInconsistTb" & sCtrlName
    Run (sFunctionName, True)
    Run Application.ActiveWorkbook.Name & "!" & sFunctionName, True
  End If
End Function

'对应TbLeader的属性与函数
Private Property Get TbLeader() As Variant
  TbLeader = txtBoxes(bwiTBLeader).GetValue
End Property
Private Property Let TbLeader(ByVal lNewValue As Variant)
  txtBoxes(bwiTBLeader).SetReference lNewValue
  txtBoxes(bwiTBLeader).SetValue lNewValue
End Property
Public Function HasInconsistTbLeader(ByVal bInconsist As Boolean)
  txtBoxes(bwiTBLeader).InconsistData (bInconsist)
End Function

问题原因 #

1. Run方法适用场景限制：Run方法主要用于调用标准模块中的公共过程，而非窗体类实例的成员方法。直接用窗体类名（如UF_TableBoard）加方法名调用，VBA无法识别为当前运行的窗体实例的成员，从而触发1004错误。
2. 语法错误：原代码中Run (sFunctionName, True)的括号使用错误，会导致参数被当作单个变体数组传递，而非独立参数，进一步引发调用失败。

可行解决方案 #

方案1：使用CallByName动态调用窗体实例成员（推荐） #

VBA的CallByName函数专门用于动态调用对象的属性或方法，完美适配当前窗体内部调用自身公共方法的场景，无需依赖Run。

修改CheckForInconsistData函数中的调用代码：

Private Function CheckForInconsistData(sCtrlName As String, vCtrl1 As Variant, vCtrl2 As Variant, vCtrl3 As Variant, vCtrl4 As Variant) As Boolean
  If vCtrl1 = "-" And (Not vCtrl2 = "-" Or Not vCtrl3 = "-" Or Not vCtrl4 = "-") Then
    Call SearchAndFillInBoardMember(sCtrlName, 0)
    ' 替换原Run调用为CallByName
    CallByName Me, "HasInconsistTb" & sCtrlName, vbMethod, True
  End If
End Function

• Me指代当前窗体实例，确保调用的是正在运行的窗体对象的方法
• vbMethod指定调用的是方法类型
• 最后一个参数True是传递给HasInconsistTbXxx的参数

方案2：修正Run方法的调用方式（不推荐） #

如果坚持使用Run，需要确保调用的是窗体的实例对象而非类名。假设窗体实例化时的变量名为ufTableBoard，则修改调用代码：

' 前提：窗体已通过Set ufTableBoard = New UF_TableBoard或直接Show实例化
Dim sFunctionName As String
sFunctionName = "ufTableBoard.HasInconsistTb" & sCtrlName
Run sFunctionName, True

注意：这种方式依赖窗体实例的命名，灵活性不如CallByName，且如果窗体是通过UF_TableBoard.Show默认实例化的，需确保默认实例已加载。

方案3：规范公共成员定义 #

将HasInconsistTbXxx从Function改为Sub，因为该方法没有返回值，符合Sub的使用场景，避免潜在的返回值未赋值问题：

Public Sub HasInconsistTbLeader(ByVal bInconsist As Boolean)
  txtBoxes(bwiTBLeader).InconsistData bInconsist
End Sub

内容的提问来源于stack exchange，提问作者Jo-Helge Rorvik