如何指定用户窗体中文本框的光标移动顺序？

方法一：手动调整TabIndex属性（无代码方案） #

这是最直接的方式，通过设置控件的TabIndex定义焦点跳转顺序：

• 打开用户窗体设计视图，选中第一列第一个需要输入的文本框，在右侧属性窗口找到TabIndex，设置为0
• 依次选中第一列的下一个文本框，将TabIndex设为1、2……直到第一列所有文本框设置完成
• 切换到第二列，选中第一个文本框，将TabIndex设为第一列最后一个控件的TabIndex值+1，再依次设置第二列剩余文本框的TabIndex
• 完成后，按Tab键或回车键（需配合窗体KeyPreview属性将回车转为Tab），光标就会按先纵向填完当前列，再切换到下一列的顺序跳转

方法二：代码控制跳转逻辑（灵活适配方案） #

如果控件数量多或布局经常调整，用代码定义跳转顺序更高效：

步骤1：设置窗体属性 #

在用户窗体设计视图中，找到窗体的KeyPreview属性，设置为True，让窗体优先捕获键盘事件。

步骤2：定义跳转顺序数组 #

在用户窗体的代码模块中，预先按纵向列顺序定义文本框数组：

Private txtInputOrder As Variant

Private Sub UserForm_Initialize()
    ' 按「第一列从上到下→第二列从上到下」的顺序添加文本框
    txtInputOrder = Array(TextBox1, TextBox3, TextBox5, TextBox2, TextBox4, TextBox6)
End Sub

步骤3：编写回车跳转逻辑 #

为所有文本框添加KeyDown事件处理（可通过类模块批量绑定，避免重复代码）：

Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim currentIndex As Integer
    If KeyCode = vbKeyReturn Then
        ' 找到当前文本框在数组中的位置
        For currentIndex = LBound(txtInputOrder) To UBound(txtInputOrder)
            If txtInputOrder(currentIndex) = Me.ActiveControl Then
                ' 跳转到下一个控件，最后一个控件则回到第一个
                If currentIndex < UBound(txtInputOrder) Then
                    txtInputOrder(currentIndex + 1).SetFocus
                Else
                    txtInputOrder(LBound(txtInputOrder)).SetFocus
                End If
                KeyCode = 0 ' 取消默认回车行为
                Exit For
            End If
        Next currentIndex
    End If
End Sub

提示：如果控件较多，可创建类模块批量绑定所有文本框的KeyDown事件，避免逐个添加事件过程。

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