如何在vba中使用用户窗体文本框和组合框中的tab键移动？

我确实有4个文本框、4个通讯盒和3个命令按钮，我希望用户能够使用tab键通过它们进行更改，我如何为整个用户框架编程，而不单独编码每个框？

要启用tab键功能：

Sub TabKeys()
Dim i as Long

For i = 1 to 4
    UserformName.Controls("TextBox" & i).TabStop = True
    UserformName.Controls("Combobox" & i).Tabstop = True
        If i<4 Then
        UserformName.Controls("CommandButton" & i).TabStop = True
Next i

End Sub

---

谢谢Dan，但是我应该在哪里写代码（在模块中，calss…）？我如何调用sub？它应该放在UserForm的模块中。您可以从事件（如

Userform1\u Activate

）调用这些子事件，也可以将代码直接放入事件子事件中。我建议您进一步学习VBA的基础知识。

Sub TabIndexChange()
Dim i as Long

For i = 1 to 4
    UserformName.Controls("TextBox" & i).TabIndex = i
    UserformName.Controls("Combobox" & i).TabIndex = i+4
        If i<4 Then
        UserformName.Controls("CommandButton" & i).TabStop = i+8
Next i

End Sub