VBA中如何在TextBox_Change过程中引用自身名称实现数值验证？

可行，但你写的带#的动态过程名在VBA中不被支持，无法直接用编号调用对应控件的处理过程。针对70个TextBox的场景，推荐两种高效的实现方式：

方法一：类模块批量处理（最优选择） #

这种方式无需为每个TextBox单独编写Change事件代码，一次性绑定所有TextBox的验证逻辑：

1. 插入类模块：在VBA编辑器中右键点击项目 → 插入 → 类模块，将类模块命名为clsTextBoxHandler。
2. 编写类模块代码：

Public WithEvents txtBox As MSForms.TextBox

Private Sub txtBox_Change()
    '判断输入是否为数值
    If Not IsNumeric(txtBox.Value) Then
        MsgBox "请输入数值型数据", vbOKOnly, "错误"
        txtBox.Value = ""
        txtBox.SetFocus '可选：让光标停留在当前文本框，方便重新输入
    End If
End Sub

3. 编写UserForm代码：

Private colTextBoxes As New Collection

Private Sub UserForm_Initialize()
    Dim ctrl As MSForms.Control
    Dim txtHandler As clsTextBoxHandler
    
    '遍历表单所有控件，绑定TextBox到类模块的事件处理
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            Set txtHandler = New clsTextBoxHandler
            Set txtHandler.txtBox = ctrl
            colTextBoxes.Add txtHandler
        End If
    Next ctrl
End Sub

表单初始化时，所有TextBox会自动绑定验证逻辑，无需手动逐个设置。

方法二：通用验证过程（无需类模块） #

如果不想使用类模块，可以编写一个通用的验证过程，将TextBox对象作为参数传递：

1. 编写通用验证过程：

Private Sub ValidateTextBox(txtBox As MSForms.TextBox)
    If Not IsNumeric(txtBox.Value) Then
        MsgBox "请输入数值型数据", vbOKOnly, "错误"
        txtBox.Value = ""
        txtBox.SetFocus
    End If
End Sub

2. 为每个TextBox绑定Change事件：

Private Sub TextBox1_Change()
    ValidateTextBox Me.TextBox1
End Sub

Private Sub TextBox2_Change()
    ValidateTextBox Me.TextBox2
End Sub
'... 依次为剩余68个TextBox编写上述Change事件代码

这种方式需要手动为每个TextBox添加事件调用，适合控件数量较少的场景，70个控件的话推荐用方法一。

原思路的问题说明 #

VBA不支持动态命名的过程（如WrongDataType#这种带变量后缀的过程名），无法通过传递编号来定位对应TextBox。直接传递控件对象或使用类模块批量绑定事件，是更符合VBA语法规范的实现方式。

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