如何在按enter键后移到Excel中的右侧单元格，而不更改；选项“；设置

我正试图弄清楚如何在按下enter键后移动到正确的单元格中，而不必在“选项”设置中更改它。或者，如果没有，当我按Enter键时，如何让工作簿中的每个工作表朝不同的方向移动。（即，第1页：当您点击Enter键时，它会进入右侧单元格，第2页：当您点击Enter键时，它会下降）。

按TAB键向右移动

按TAB键向右移动

您可以使用VBA更改激活工作表时（单击选项卡时）Enter键的行为

要执行此操作，请转到VBE（Ctrl+F11）并查找工作簿的代码：

然后双击“ThisWorkbook”向工作簿对象添加代码

在这里，您可以使用以下内容：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Sheet1" Or Sh.Name = "Sheet3" Then
        Application.MoveAfterReturnDirection = xlToRight
    ElseIf Sh.Name = "Sheet2" Or Sh.Name = "sheet4" Then
        Application.MoveAfterReturnDirection = xlDown
    End If
End Sub

---

这将在激活工作表/选项卡时运行。它将翻转输入键的行为，类似于您手动进入“选项”并自己更改它。

您可以使用VBA在激活工作表时（单击选项卡时）更改输入键的行为

要执行此操作，请转到VBE（Ctrl+F11）并查找工作簿的代码：

然后双击“ThisWorkbook”向工作簿对象添加代码

在这里，您可以使用以下内容：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Sheet1" Or Sh.Name = "Sheet3" Then
        Application.MoveAfterReturnDirection = xlToRight
    ElseIf Sh.Name = "Sheet2" Or Sh.Name = "sheet4" Then
        Application.MoveAfterReturnDirection = xlDown
    End If
End Sub

---

这将在激活工作表/选项卡时运行。它将翻转Enter键的行为，类似于您手动进入选项并自己更改它。

您也可以使用[ctrl]+shift]在第一个单元格中开始+[→] 然后键入并点击[enter]↵].也可以使用[ctrl]+shift]在第一个单元格中开始+[→] 然后键入并点击[enter]↵].值得一提的是，如果您不确定如何VBA属性，您通常可以记录自己更改选项。检查记录的代码将显示正确的语法。有关完整列表，请参阅。@jnevil这是我在代码中输入的内容，但它没有正确移动。Private Sub Workbook\u SheetActivate（ByVal Sh As Object）如果Sh.Name=“Sheet3”，则Application.MoveAfterReturnDirection=xlToRight ElseIf Sh.Name=“Sheet1”或Sh.Name=“sheet2”或Sh.Name=“sheet4”或Sh.Name=“sheet5”或Sh.Name=“sheet6”或Sh.Name=“sheet7”然后Application.MoveAfterReturnDirection=xlDown End If End sub值得一提的是，如果您不确定如何使用VBA访问属性，通常可以记录自己更改选项。检查记录的代码将显示正确的语法。有关完整列表，请参阅。@jnevil这是我在代码中输入的内容，但它没有移动右。如果Sh.Name=“Sheet3”则激活私有子工作簿（ByVal Sh作为对象），然后Application.MoveAfterReturnDirection=xlToRight ElseIf Sh.Name=“Sheet1”或Sh.Name=“sheet2”或Sh.Name=“sheet4”或Sh.Name=“sheet5”或Sh.Name=“sheet6”或Sh.Name=“sheet7”然后Application.MoveAfterReturnDirection=xlDown End如果End Sub