VBA抽离UserForm代码触发错误438，如何传递具体UserForm实例？

问题背景 #

在单个UserForm的UserForm_Initialize事件中直接交换Tag和Caption的代码运行正常：

Private Sub UserForm_Initialize()
    Dim t As String
    t = Me.Tag
    Me.Tag = Me.Caption
    Me.Caption = t
End Sub

但将逻辑抽离到通用模块的子过程，以UserForm类型接收参数时，访问frm.Tag会触发错误438（对象不支持该属性或方法）：

Public Sub swap_form_tag(ByRef frm As UserForm)
    Dim cap As String
    cap = frm.Caption
    frm.Caption = frm.Tag
    frm.Tag = cap
End Sub

核心原因：VBA的通用UserForm对象没有Tag属性，但每个具体的UserForm子类（如UserForm1、UserForm2）都自带Tag属性。

解决方法 #

方法1：使用Variant类型接收参数 #

将子过程的参数类型改为Variant，利用后期绑定解析实际对象的属性：

Public Sub swap_form_tag(ByRef frm As Variant)
    Dim temp As String
    temp = frm.Tag
    frm.Tag = frm.Caption
    frm.Caption = temp
End Sub

调用方式保持不变：

Private Sub UserForm_Initialize()
    swap_form_tag Me
End Sub

方法2：使用Object类型接收参数 #

和Variant逻辑一致，用Object作为参数类型更明确地表示对象类型：

Public Sub swap_form_tag(ByRef frm As Object)
    Dim temp As String
    temp = frm.Tag
    frm.Tag = frm.Caption
    frm.Caption = temp
End Sub

调用方式无变化，后期绑定会自动识别子类的Tag和Caption属性。

方法3：定义接口类（强类型方案） #

如果需要编译时的类型检查，可通过接口类实现强类型约束：

1. 插入一个类模块，命名为ITaggedForm，添加属性声明：

Public Property Get Tag() As String
End Property
Public Property Let Tag(ByVal RHS As String)
End Property
Public Property Get Caption() As String
End Property
Public Property Let Caption(ByVal RHS As String)
End Property

2. 在每个需要复用逻辑的UserForm代码模块顶部添加接口实现声明：

Implements ITaggedForm

3. 实现接口的属性，直接映射到UserForm自身的属性：

Private Property Get ITaggedForm_Caption() As String
    ITaggedForm_Caption = Me.Caption
End Property

Private Property Let ITaggedForm_Caption(ByVal RHS As String)
    Me.Caption = RHS
End Property

Private Property Get ITaggedForm_Tag() As String
    ITaggedForm_Tag = Me.Tag
End Property

Private Property Let ITaggedForm_Tag(ByVal RHS As String)
    Me.Tag = RHS
End Property

4. 修改通用子过程的参数类型为ITaggedForm：

Public Sub swap_form_tag(ByRef frm As ITaggedForm)
    Dim temp As String
    temp = frm.Tag
    frm.Tag = frm.Caption
    frm.Caption = temp
End Sub

调用方式不变，编译时会自动检查参数是否符合接口规范。

方法4：TypeOf判断+强制转换（适用于少量表单） #

如果表单数量固定，可在子过程中判断具体类型并转换：

Public Sub swap_form_tag(ByRef frm As UserForm)
    Dim temp As String
    If TypeOf frm Is UserForm1 Then
        With frm As UserForm1
            temp = .Tag
            .Tag = .Caption
            .Caption = temp
        End With
    ElseIf TypeOf frm Is UserForm2 Then
        With frm As UserForm2
            temp = .Tag
            .Tag = .Caption
            .Caption = temp
        End With
    End If
End Sub

缺点是扩展性差，新增表单时需要修改子过程代码。

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