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

Question

我希望使用输入键可以像使用工作表输入值时的Tab键一样运行。我不确定是否有足够的信息可以帮助我，所以只要问问题就可以了。

我可以在输入 - 右键之后在工具＆gt;选项＆gt;编辑移动选择中找到设置。我想要相同的功能，但仅限于一个特定的工作表。

Answer 1

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

e.g。

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

希望有所帮助 祝好运 拾音

修改

如果您在同一个应用程序中打开了超过1本书，则最好使用工作簿和工作表激活和取消激活触发器以将效果限制为尽可能窄的

编辑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（因此无论用户选择哪种标准行为）。使用多个打开的工作簿进行测试，来回跳跃;这些触发器并不总是在明显的时候显而易见......