VBA多页用户窗体文本框焦点异常跳转问题求助

制作了用于数据分析宏设置的多页VBA用户窗体，用Textbox_Exit()事件实现输入验证——用户未输入有效值离开文本框时显示警告标签。但出现异常：焦点初始在多页标签上，点击任意文本框时，焦点会先短暂跳转到首个创建的文本框，触发其警告标签，再跳转至目标文本框。

简化复现代码如下：

Option Explicit
Dim Cancel As Boolean

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1 > 5 And TextBox1 < 10 Then
        Label1.Visible = False
    Else
        Label1.Visible = True
    End If
End Sub

Private Sub Textbox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2 > 5 And TextBox2 < 10 Then
        Label2.Visible = False
    Else
        Label2.Visible = True
    End If
End Sub

窗体结构说明：包含一个多页控件（共两页，第二页为空），第一页有三个文本框和两个标签。点击另外两个文本框时，首个创建的文本框会短暂获得焦点并弹出警告标签。

一、修正焦点跳转问题 #

这是VBA多页控件的默认特性：首次激活页面时，会自动将焦点设置到页面上第一个创建的可获得焦点控件。可通过以下两种方式解决：

• 调整Tab键顺序
  1. 打开窗体设计模式，右键空白区域选择「Tab键顺序」
  2. 将一个不触发验证的控件（如标签）设为Tab顺序第一，或者把常用文本框的Tab顺序提前。这样首次激活页面时，焦点会落在该控件上，不会误触文本框的Exit事件。
• 在多页Change事件中主动设置焦点
  当切换到目标页面时，手动将焦点指向非验证控件：

  Private Sub MultiPage1_Change()
      ' 切换到第一页时，将焦点设置到标签（无Exit事件）
      If MultiPage1.Value = 0 Then
          Label1.SetFocus
      End If
  End Sub
  

二、优化验证逻辑，避免误触发 #

如果不想调整焦点，可给文本框增加焦点标记，仅当用户真正激活过文本框时才执行验证：

Option Explicit
' 标记文本框是否被用户主动激活过
Dim txt1Activated As Boolean, txt2Activated As Boolean

Private Sub TextBox1_Enter()
    txt1Activated = True
End Sub

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If txt1Activated Then
        If TextBox1 > 5 And TextBox1 < 10 Then
            Label1.Visible = False
        Else
            Label1.Visible = True
        End If
    End If
End Sub

Private Sub TextBox2_Enter()
    txt2Activated = True
End Sub

Private Sub Textbox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If txt2Activated Then
        If TextBox2 > 5 And TextBox2 < 10 Then
            Label2.Visible = False
        Else
            Label2.Visible = True
        End If
    End If
End Sub

三、替代控件方案 #

若多页控件的特性无法满足需求，可考虑以下替代实现：

• 用Frame控件模拟多页：创建多个Frame容器，将不同设置内容放入对应Frame，通过控制Visible属性切换显示，这种方式无自动焦点跳转问题。
• 拆分独立子窗体：把不同设置模块做成独立用户窗体，通过主窗体按钮调用子窗体，彻底规避多页控件的焦点异常。

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