如何实现Excel Userform动态创建文本框的值联动更新？

我之前也碰到过类似的需求，动态控件的事件处理确实和静态控件不一样，核心得靠类模块来捕获动态控件的事件，下面是完全适配你场景的具体实现步骤：

1. 创建类模块处理动态文本框事件 #

首先右键点击VBA工程→插入→类模块，把这个类模块的名称改成clsDynamicTextBox（在属性窗口里修改），然后在类模块中输入以下代码：

Option Explicit

' 声明带事件监听的文本框变量
Public WithEvents txtBox As MSForms.TextBox

' 文本框内容变化时触发的事件
Private Sub txtBox_Change()
    Dim quantityTxtBox As MSForms.TextBox
    Dim extractedNumber As String
    Dim i As Integer
    
    ' 从当前文本框的Tag属性获取行号（后面我们会给动态控件设置这个标识）
    Dim rowNum As Integer
    rowNum = Val(Me.txtBox.Tag)
    
    ' 找到对应行的数量文本框（这里假设数量文本框命名规则是 "txtQuantity_" & 行号）
    On Error Resume Next
    Set quantityTxtBox = Me.txtBox.Parent.Controls("txtQuantity_" & rowNum)
    On Error GoTo 0
    
    If Not quantityTxtBox Is Nothing Then
        ' 提取当前文本框中的数字部分
        extractedNumber = ""
        For i = 1 To Len(Me.txtBox.Text)
            If IsNumeric(Mid(Me.txtBox.Text, i, 1)) Or Mid(Me.txtBox.Text, i, 1) = "." Then
                extractedNumber = extractedNumber & Mid(Me.txtBox.Text, i, 1)
            End If
        Next i
        
        ' 更新数量文本框的值
        If extractedNumber <> "" Then
            quantityTxtBox.Value = Val(extractedNumber)
        Else
            quantityTxtBox.Value = ""
        End If
    End If
End Sub

2. 在UserForm中管理动态控件和类实例 #

打开你的UserForm代码窗口，输入以下代码，包含动态创建文本框的逻辑，以及关联类实例的部分：

Option Explicit

' 声明一个集合来存储类实例，防止实例被VBA自动销毁
Private txtBoxCollection As New Collection

' 示例：动态创建3行文本框（你可以根据需求修改行数）
Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim txtDescription As MSForms.TextBox
    Dim txtQuantity As MSForms.TextBox
    Dim clsTxtInstance As clsDynamicTextBox
    
    ' 循环创建每行的两个文本框
    For i = 1 To 3
        ' 创建描述文本框（比如显示"30 Big Widgets"）
        Set txtDescription = Me.Controls.Add("Forms.TextBox.1", "txtDescription_" & i)
        With txtDescription
            .Top = 20 + (i - 1) * 30 ' 垂直布局位置
            .Left = 20 ' 水平布局位置
            .Width = 150
            .Tag = i ' 设置Tag为行号，用于关联对应行的数量文本框
            .Text = i * 10 & " Big Widgets" ' 初始示例文本
        End With
        
        ' 将描述文本框关联到类实例，并加入集合保存
        Set clsTxtInstance = New clsDynamicTextBox
        Set clsTxtInstance.txtBox = txtDescription
        txtBoxCollection.Add clsTxtInstance
        
        ' 创建数量文本框
        Set txtQuantity = Me.Controls.Add("Forms.TextBox.1", "txtQuantity_" & i)
        With txtQuantity
            .Top = 20 + (i - 1) * 30
            .Left = 200
            .Width = 50
            .Value = i * 10 ' 初始数量值
            .Enabled = False ' 可选：设置为只读，避免用户手动修改
        End With
    Next i
End Sub

关键细节说明 #

• 类模块的作用：动态创建的控件没法直接在UserForm里写事件过程，通过WithEvents声明的变量，我们能在类模块中捕获它的Change事件。
• 集合存储类实例：如果不把类实例存入集合，VBA会在代码执行完后销毁这些实例，导致事件完全失效，所以txtBoxCollection是必不可少的。
• Tag属性关联控件：给每个描述文本框的Tag设置行号，这样在Change事件里能快速定位到对应行的数量文本框，你也可以根据自己的命名规则调整这个关联逻辑。
• 数字提取逻辑：代码里的循环会提取文本框中的所有数字和小数点，适配类似"30 Big Widgets"或者"15.5 Small Gears"的文本格式，如果你的文本有特殊规则，可以修改这部分逻辑。

测试一下：打开UserForm，修改任意一个描述文本框的数字，对应的数量文本框会自动同步更新，完全符合你的需求~

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