vba - 仅适用于一张工作表的 OnKey

Question

我正在尝试添加代码，使“Enter”键的作用类似于一个( protected )工作表的“Tab”键，但在任何其他工作表中则不然。我在 ThisWorkbook 模块中有这段代码:

Private Sub Workbook_Open()
 Application.OnKey "~", "MoveThruForm"
 Application.OnKey "{enter}", "MoveThruForm"
End Sub

在一个单独的模块中我尝试过:

Private Sub MoveThruForm()
Select Case ActiveSheet.CodeName
    Case "Calculator"
    SendKeys "{tab}"
    Exit Sub

    Case "Lists"
    Application.OnKey "~" 'wanted this to set 'enter' key to be normal 'enter' key but it doesn't!
    'SendKeys "{down}" 'This works but is very much a workaround!

End Select
End Sub

这在“计算器”表中工作正常，但在“列表”表中则不然。

关于如何让“输入”键在“列表”表中“正常”发挥作用，有什么建议吗？

(我使用的是 Excel 2013 和 2010。)

Answer 1

为此，您不需要 OnKey :) Excel 允许您更改 Enter 键移动方向。

您也可以通过代码更改它。

在模块中，输入此内容

Public PreState As Long

将此代码放入工作簿代码区

Private Sub Workbook_Open()
    '~~> Store ENTER Key move behaviour
    PreState = Application.MoveAfterReturnDirection
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    '~~> Check here which sheet is active and then
    '~~> decide where the ENTER key should move
    If Sh.Name = "Calculator" Then
        Application.MoveAfterReturn = True
        Application.MoveAfterReturnDirection = xlToRight
    Else
        Application.MoveAfterReturnDirection = PreState
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    '~~> Reset ENTER Key behaviour
    Application.MoveAfterReturnDirection = PreState
End Sub