如何在VBA子程序中遍历UserForm的UFtime系列文本框？

直接通过循环生成每个文本框的Exit事件在VBA里不可行，推荐两种实用方案：

方案一：类模块动态绑定（推荐，自动化程度高） #

这种方法能自动给所有命名以UFtime开头的文本框绑定统一的格式校验逻辑，新增符合规则的文本框也无需修改代码。

步骤1：创建类模块 #

1. 打开VBA编辑器，右键点击项目 → 插入 → 类模块
2. 将类模块命名为TimeTextBoxHandler（在属性窗口修改Name属性）
3. 在类模块中写入以下代码：

Option Explicit
WithEvents TargetTextBox As MSForms.TextBox

Private Sub TargetTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim dTime As String
    On Error Resume Next
    dTime = TargetTextBox.Value
    TargetTextBox.Text = Format(dTime, "hh:mmAM/PM")
    If IsDate(TargetTextBox.Value) Then Exit Sub
    Cancel = True
    TargetTextBox.Value = Null
End Sub

步骤2：在UserForm代码中初始化绑定 #

打开你的UserForm代码模块，写入以下代码：

Option Explicit
Private timeTextBoxes As Collection

Private Sub UserForm_Initialize()
    Dim ctrl As MSForms.Control
    Dim textBoxHandler As TimeTextBoxHandler
    
    Set timeTextBoxes = New Collection
    
    ' 遍历所有控件，筛选UFtime开头的文本框并绑定事件
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" And Left(ctrl.Name, 6) = "UFtime" Then
            Set textBoxHandler = New TimeTextBoxHandler
            Set textBoxHandler.TargetTextBox = ctrl
            timeTextBoxes.Add textBoxHandler
        End If
    Next ctrl
End Sub

方案二：通用子程序+手动调用（适合固定数量文本框） #

如果文本框数量固定，可写一个通用处理子程序，再让每个文本框的Exit事件调用它：

步骤1：编写通用处理子程序 #

在UserForm代码模块中写入：

Private Sub HandleTimeTextBoxExit(txtBox As MSForms.TextBox, ByVal Cancel As MSForms.ReturnBoolean)
    Dim dTime As String
    On Error Resume Next
    dTime = txtBox.Value
    txtBox.Text = Format(dTime, "hh:mmAM/PM")
    If IsDate(txtBox.Value) Then Exit Sub
    Cancel = True
    txtBox.Value = Null
End Sub

步骤2：给每个文本框绑定Exit事件 #

为每个UFtime1、UFtime2等文本框添加Exit事件，调用通用子程序：

Private Sub UFtime1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    HandleTimeTextBoxExit Me.UFtime1, Cancel
End Sub

Private Sub UFtime2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    HandleTimeTextBoxExit Me.UFtime2, Cancel
End Sub

' 其他UFtime文本框的Exit事件按此格式编写

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