VBA如何将10个TextBox_Change事件子过程精简为单个通用过程？

原有代码失效原因 #

• 语法错误：.Caption后漏写赋值符号=，且直接拼接字符串"TextBox" & i.TextLength无法获取控件属性，必须通过Controls集合读取对应控件的参数
• 事件选择错误：UserForm_KeyPress仅在窗体本身获得焦点时触发，文本框处于输入状态时不会触发该事件，逻辑自然不会执行

解决方案 #

方案1：极简调用方案（无类模块，改造成本低） #

仅需编写1个公共逻辑过程，每个文本框的Change事件仅需一行调用代码即可，比原有代码精简70%以上：

' 放在用户窗体代码区域，公共逻辑只写1次
Private Sub UpdateRemainingChar(textBoxIndex As Integer)
    Dim targetTxt As MSForms.TextBox
    Set targetTxt = Me.Controls("TextBox" & textBoxIndex)
    Me.Controls("Label" & textBoxIndex).Caption = 140 - targetTxt.TextLength & " characters remaining"
End Sub

' 每个文本框的Change事件仅保留调用逻辑即可
Private Sub TextBox1_Change(): Call UpdateRemainingChar(1): End Sub
Private Sub TextBox2_Change(): Call UpdateRemainingChar(2): End Sub
Private Sub TextBox3_Change(): Call UpdateRemainingChar(3): End Sub
' 以此类推到TextBox10即可

方案2：类模块绑定方案（完全无需重复写Change事件） #

适合后续需要新增文本框的场景，只需要改一次循环参数即可适配所有文本框：

1. 在VBA编辑器点击「插入-类模块」，将类模块重命名为clsTxtBoxCharCount，在类模块中写入以下代码：

Public WithEvents txtGroup As MSForms.TextBox
Private Const MAX_INPUT_CHAR As Integer = 140

Private Sub txtGroup_Change()
    Dim index As Integer
    ' 提取文本框的数字编号
    index = CInt(Replace(txtGroup.Name, "TextBox", ""))
    ' 同步更新对应Label的剩余字符数
    txtGroup.Parent.Controls("Label" & index).Caption = MAX_INPUT_CHAR - txtGroup.TextLength & " characters remaining"
End Sub

2. 回到用户窗体代码区域，写入以下代码完成控件绑定：

' 窗体顶部声明全局集合，存储绑定了事件的文本框实例
Dim txtBoxCollection As New Collection

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim clsInstance As clsTxtBoxCharCount
    ' 循环绑定1-10号文本框的事件
    For i = 1 To 10
        Set clsInstance = New clsTxtBoxCharCount
        Set clsInstance.txtGroup = Me.Controls("TextBox" & i)
        txtBoxCollection.Add clsInstance
    Next i
End Sub

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