使用.Tag属性在VBA用户窗体间传递数据的故障排查

原代码问题分析 #

1. 事件触发时机错误：UserForm_Initialize事件在窗体首次加载时立即执行，此时你还未设置UserformB.Tag，所以Me.Tag始终为空。
2. 代码笔误：UserformB的Case "UserformA2"分支错误引用了UserformA1.Textbox1.Value，应该是UserformA2.Textbox1.Value。

修正方案 #

方案一：修复Tag属性的使用逻辑 #

通过先加载窗体再设置Tag，改用UserForm_Activate事件读取Tag值：

UserformA1的代码：

Private Sub CmdButton_Click()
    ' 先加载UserformB（此时会触发Initialize，但还没设置Tag）
    Load UserformB
    ' 设置Tag标识来源窗体
    UserformB.Tag = "UserformA1"
    ' 显示窗体，此时会触发Activate事件
    UserformB.Show
End Sub

UserformB的代码：

Private Sub UserForm_Activate()
    Dim Origin As String
    Origin = Me.Tag
    Select Case Origin
        Case "UserformA1"
            Me.Textbox1.Value = UserformA1.Textbox1.Value
        Case "UserformA2"
            Me.Textbox1.Value = UserformA2.Textbox1.Value
    End Select
End Sub

方案二：直接传递文本框值（更简洁高效） #

给UserformB添加公共方法，直接接收来源窗体的文本框值，无需依赖Tag：

UserformB的代码：

' 定义公共方法用于接收外部传值
Public Sub SetTargetValue(inputVal As String)
    Me.Textbox1.Value = inputVal
End Sub

UserformA1的代码：

Private Sub CmdButton_Click()
    Load UserformB
    ' 直接将当前窗体的文本框值传递给UserformB
    UserformB.SetTargetValue Me.Textbox1.Value
    UserformB.Show
End Sub

UserformA2的代码：

Private Sub CmdButton_Click()
    Load UserformB
    UserformB.SetTargetValue Me.Textbox1.Value
    UserformB.Show
End Sub

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