VBA用户窗体：如何精简多文本框重复的Exit事件校验代码

不需要为每个文本框单独写Exit事件过程，通过类模块+事件绑定的方式可以把校验逻辑统一收敛到一处，后续新增同规则文本框也不需要额外写代码。 #

操作步骤 #

1. 新建自定义类模块 #

在VBA编辑器中插入一个类模块，将其属性窗口中的(Name)值改为cls_TextBoxValidator，在类模块中粘贴以下代码：

' 声明带事件的文本框对象
Private WithEvents m_ValidatingTxt As MSForms.TextBox

' 绑定目标文本框的公共方法
Public Sub BindTextBox(target As MSForms.TextBox)
    Set m_ValidatingTxt = target
End Sub

' 统一写在这里的Exit校验逻辑，所有绑定的文本框都会触发
Private Sub m_ValidatingTxt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With m_ValidatingTxt
        If Not IsNumeric(.Value) Or InStr(.Value, " ") > 0 Then
            MsgBox "Only Numbers Allowed", vbExclamation
            Cancel = True ' 校验不通过阻止焦点离开
            .SelStart = 0
            .SelLength = Len(.Value) ' 选中错误内容方便用户直接修改
        End If
    End With
End Sub

2. 编写窗体初始化绑定逻辑 #

打开你的用户窗体对应的代码模块，在所有过程的最顶部声明窗体级集合（用来持久化存储类实例，避免实例被释放导致事件失效），然后在窗体Initialize事件中遍历所有控件完成自动绑定：

' 窗体级变量：存储所有文本框校验类实例
Dim colValidators As Collection

Private Sub UserForm_Initialize()
    Dim ctrl As Control
    Dim oValidator As cls_TextBoxValidator
    
    Set colValidators = New Collection
    ' 遍历窗体所有控件
    For Each ctrl In Me.Controls
        ' 筛选所有命名以txt_为前缀的文本框
        If TypeName(ctrl) = "TextBox" And Left(ctrl.Name, 4) = "txt_" Then
            Set oValidator = New cls_TextBoxValidator
            oValidator.BindTextBox ctrl
            colValidators.Add oValidator
        End If
    Next
End Sub

后续使用说明 #

• 之前复制到每个txt_*文本框私有Exit事件里的重复校验代码可以全部删除
• 后续如果要调整校验规则（比如新增长度限制、允许特定字符等），只需要修改类模块里m_ValidatingTxt_Exit过程中的逻辑，所有绑定的文本框会自动应用新规则
• 后续新增同命名规则的文本框时，不需要写任何事件代码，窗体启动时会自动完成绑定

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