Excel VBA 如何使 Enter 键的行为类似于 Tab 键

Question

我想要 function 的输入键，就像使用工作表输入值时的制表键一样。 我不确定这是否足以帮助您帮助我，所以如果不是，请提出问题。

输入后，我能够在工具>选项>编辑移动选择中找到一个设置 - 正确。 我想要相同的功能，但仅适用于一个特定的工作表。

Answer 1

使用Application.MoveAfterReturnDirection属性 - 最好在Workbook_Open()中设置。

例如

Application.MoveAfterReturn = True  ' here we say thou shallst move
Application.MoveAfterReturnDirection = xlToRight  ' here we say move right

希望对你有帮助 祝你好运 MikeD

编辑：

如果您在同一个应用程序中打开了多于 1 本书，则最好使用 Workbook 和 Sheet Activate 和 Deactivate 触发器以及将效果限制在尽可能窄的范围内

编辑2：

您可以将原始状态保存在ThisWorkbook模块的触发器中

Dim OldDirection As Long

Private Sub Workbook_Open()
    OldDirection = Application.MoveAfterReturnDirection
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturnDirection = OldDirection
End Sub

并依靠Sheet_Activate和Sheet_Deactivate将属性实际设置为xlToRight并将其重置为OldDirection （因此无论用户选择什么作为标准行为）。 使用多个打开的工作簿进行测试，来回跳转； 这些触发器并不总是在明显的时候表现得很明显......