Excel VBA中如何为动态生成的TextBox绑定事件？

方案一：通过类模块绑定动态控件的Change事件 #

这种方法可以精准绑定动态生成TextBox的事件，也能将逻辑复用至默认控件。

1. 新建类模块
   右键工程资源管理器→插入→类模块，将其命名为clsTextBoxEvents，写入以下代码：

   Public WithEvents txtBox As MSForms.TextBox
   
   Private Sub txtBox_Change()
       txtBox.Value = UCase(txtBox.Value)
   End Sub
   

2. 在用户窗体模块声明集合
   在用户窗体代码模块顶部，声明一个集合用于保存类实例（避免实例被自动回收）：

   Private txtEventsCollection As New Collection
   

3. 修改动态生成TextBox的代码
   生成每个动态TextBox后，将其与类实例绑定并加入集合：

   Dim clsTxtEvent As clsTextBoxEvents
   For X = 1 To n
        Set TextBoox1 = MultiPage1.Pages(2).Controls.Add("Forms.TextBox.1", "extrabox" & (X), 1)
                
        With TextBoox1
            .Width = textbox5.Width
            .Height = textbox5.Height
            .Top = textbox5.Top + (X * (textbox5.Top - textbox4.Top))
            .Left = textbox5.Left
            .Visible = False
        End With
        
        ' 绑定事件到类实例
        Set clsTxtEvent = New clsTextBoxEvents
        Set clsTxtEvent.txtBox = TextBoox1
        txtEventsCollection.Add clsTxtEvent
   Next X
   

4. 可选：绑定默认TextBox的事件
   若希望默认TextBox也共享该逻辑，在用户窗体初始化事件中遍历绑定：

   Private Sub UserForm_Initialize()
       Dim ctl As MSForms.Control
       Dim clsTxtEvent As clsTextBoxEvents
       
       For Each ctl In MultiPage1.Pages(2).Controls
           If TypeName(ctl) = "TextBox" Then
               Set clsTxtEvent = New clsTextBoxEvents
               Set clsTxtEvent.txtBox = ctl
               txtEventsCollection.Add clsTxtEvent
           End If
       Next ctl
   End Sub
   

方案二：统一处理所有TextBox输入转大写 #

如果仅需实现输入自动转大写的功能，可通过通用函数简化处理：

1. 编写通用转换函数
   在用户窗体模块中添加以下函数：

   Private Sub ConvertToUpperCase(txt As MSForms.TextBox)
       txt.Value = UCase(txt.Value)
   End Sub
   

2. 绑定默认TextBox事件
   给每个默认TextBox的Change事件调用该函数：

   Private Sub TextBox1_Change()
       ConvertToUpperCase Me.TextBox1
   End Sub
   Private Sub TextBox2_Change()
       ConvertToUpperCase Me.TextBox2
   End Sub
   ' 其他默认TextBox的Change事件同理
   

3. 动态控件结合类绑定
   动态生成的TextBox仍通过方案一的类模块绑定，确保统一触发转换逻辑。

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