Vba TabIndex工作不正常

目标：

在VBA用户窗体中切换页面时，我希望某个字段成为第一个输入值。然后我想让它们在我点击它们时按顺序切换

到目前为止我所做的：

页面被创建（在大多数情况下，他们仍然需要一个艺术头脑，使它看起来像一个工程师没有这样做），逻辑是确定的，基本上一切都完成了。输入字段tabIndex propertys的设置从20开始，按我希望的顺序递增到27。图片将附在下面

问题：

当我按下next按钮时，userform会自动转到“冷却系统”下拉列表。如果我按下tab键，它将进入下一个下拉列表。然后以奇怪但不变的顺序通过其他选项。奇怪的是，我可以打字，但没有文本出现。光标移动，但后面什么也没有。在我用tab键完成所有操作之后，若我再次按下tab键，它就会做我想让它做的事情。我已附上图片和下一步按钮的代码。感谢您在高级课程中的帮助。如果我能澄清任何事情，请告诉我

工作正常的页面：

问题页面（我试图显示当您键入时，什么都不显示，它会自动转到该下拉列表）：

“下一步”按钮的代码：

• 选择多页页面
• 单击查看->选项卡排序

这将显示“选项卡顺序”对话框

• 选择多页页面
• 单击查看->选项卡排序

这将显示“选项卡顺序”对话框

---

非常感谢您。尽管我按照要求的顺序分配了制表符索引号，但我并没有把它整理好。我只是想知道，如果标签顺序真的定义了标签索引号，那么这些标签索引号有什么用呢？非常感谢。尽管我按照要求的顺序分配了制表符索引号，但我并没有把它整理好。只是想知道如果标签顺序真的定义了标签索引号，那么这些标签索引号有什么用？

Private Sub bNextSystem1_Click() 'checks to see if all parameters are entered

If IsNumeric(Me.txtS1elec.value) = True And IsNumeric(Me.txtS1NG.value) = True And IsNumeric(Me.txtS1sqft.value) = True Then

    If Me.txtS1elec.value <> "" And Me.txtS1NG.value <> "" And Me.txtS1sqft.value <> "" And Me.ddS1Cooling.ListIndex > -1 And Me.ddS1Heating.ListIndex > -1 Then

        NextPage
        Me.txtS1elec.BackColor = vbWhite
        Me.txtS1NG.BackColor = vbWhite
        Me.txtS1sqft.BackColor = vbWhite

    Else

        MsgBox "Please check to see if all options are selected or entered."
        GoTo CleanFail

    End If

Else

    HighlightBadCells1 'checks for incorrect cell input values
    MsgBox "Please check the highlighted cells"
    GoTo CleanFail

End If

Me.txtS2elec.value = Me.txtS1elec.value
Me.txtS2NG.value = Me.txtS1NG.value

CleanFail:
End Sub

 Private Sub NextPage()

MultiPage1.Pages(MultiPage1.value + 1).Visible = True 'hides current page
MultiPage1.Pages(MultiPage1.value).Visible = False 'reveals next page

End Sub