嘿，我太懂你这种痛苦了——34个TextBox写嵌套If，光是想想都头大！换成For Each循环却没达到预期效果，其实问题出在你没搞清楚循环的执行逻辑。

原循环代码的问题 #

你写的ValidarForm5会遍历所有TextBox，就算找到第一个空的设置了焦点，循环还会继续往下走，后面如果还有空的TextBox，焦点会被一次次覆盖，最后落在最后一个空TextBox上，这就导致你以为代码没生效。

修正后的核心代码 #

解决思路很简单：找到第一个符合条件的空TextBox后，立刻退出循环，不让后续控件抢焦点。这里还优化了空值判断，避免用户输入空格的情况：

Sub ValidateForm()
    Dim ctrl As Control
    
    ' 遍历窗体上的每一个控件
    For Each ctrl In UserForm1.Controls
        ' 先确认当前控件是TextBox
        If TypeName(ctrl) = "TextBox" Then
            ' 用Trim过滤掉空格，判断是否真的没输入内容
            If Trim(ctrl.Text) = Empty Then
                ctrl.SetFocus ' 把焦点定位到第一个空TextBox
                Exit For ' 找到目标就立刻停止循环，防止后续控件覆盖焦点
                ' 可选：加个提示框告诉用户哪里没填
                ' MsgBox "请填写" & ctrl.Name & "对应的内容哦！"
                Exit Sub ' 如果需要直接退出整个过程，也可以用Exit Sub
            End If
        End If
    Next ctrl
End Sub

进阶优化：遍历嵌套容器里的TextBox #

如果你的TextBox放在Frame或者MultiPage这类容器控件里，上面的代码只会遍历窗体根目录的控件，找不到容器里的TextBox。这时候可以写个递归函数来遍历所有层级的控件：

' 递归遍历所有控件（包括容器里的）
Sub ValidateAllTextBoxes(ParentCtrl As Object)
    Dim ctrl As Control
    
    For Each ctrl In ParentCtrl.Controls
        ' 如果是容器控件，递归进去遍历内部控件
        If TypeName(ctrl) = "Frame" Or TypeName(ctrl) = "MultiPage" Then
            ValidateAllTextBoxes ctrl
        ' 如果是TextBox，检查是否为空
        ElseIf TypeName(ctrl) = "TextBox" Then
            If Trim(ctrl.Text) = Empty Then
                ctrl.SetFocus
                Exit Sub ' 找到第一个就直接退出整个校验过程
            End If
        End If
    Next ctrl
End Sub

' 调用递归函数的入口
Sub ValidateForm()
    ValidateAllTextBoxes UserForm1
End Sub

额外小技巧 #

• 用Len(Trim(ctrl.Text)) = 0代替Trim(ctrl.Text) = Empty，判断空值的逻辑会更严谨
• 如果需要按特定顺序校验（比如按TextBox1到TextBox34的顺序），可以通过控件的TabIndex属性来排序遍历，确保按你想要的顺序找到第一个空TextBox：

Sub ValidateFormByTabOrder()
    Dim i As Integer
    Dim ctrl As Control
    
    ' 按TabIndex从小到大遍历（也就是你设置的输入顺序）
    For i = 0 To UserForm1.Controls.Count - 1
        Set ctrl = UserForm1.Controls(i)
        If TypeName(ctrl) = "TextBox" Then
            If Trim(ctrl.Text) = Empty Then
                ctrl.SetFocus
                Exit Sub
            End If
        End If
    Next i
End Sub

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