临时修改返回键移动所选内容的位置

Question

我想，当我按回车键时，将选择的单元格向右移动一个

我知道这个选项可以在Excel的选项下更改。

我想以编程方式设置此选项，以便它只在加载时与一个工作簿一起工作，而不是与其他工作簿一起工作。

那么该选项将被重置回原来的"down"工作簿关闭时的动作。

Answer 1

虽然可能不完全推荐-使用TAB将是大多数人的工作方式-您可以使用MoveAfterReturnDirection属性更改选项。

所以如果你想写

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
Application.MoveAfterReturnDirection = xlDown
End Sub

在工作簿的代码中，应该完成一些您所要求的内容。

注意，这将改变任何正在使用工作簿的人的设置，如果他们设置了除Down以外的其他设置，那么设置将会改变。您可以通过使用全局变量捕获原始值来解决这个问题，但我不敢打赌它不会在某些时候弄乱某人的设置。
实际上，测试后者设法将我的设置设置为"left">

一种更糟糕的方法是使用OnKey方法完全改变Enter键的功能。按回车键返回按Tab键。方法是相同的，但使用OnKey，然后创建一个子，使用类似SendKeys的东西来返回Tab键。