VBA:application.onkey不工作

我使用VBA编写了一个简单的代码，试图创建一个按Enter键触发的事件。 下面是我在工作簿中的代码：

Option Explicit

Private Sub Workbook_Open()

    Application.OnKey "", "pressEnter"

End Sub

在模块中应该发生什么：

Public Sub pressEnter()

    ThisWorkbook.Worksheets(1).Cells(1, 1).Value = 20

End Sub

但是，当我按下回车键时，什么也没有发生。与正常输入一样，它选择的单元格低于活动单元格。我尝试使用其他键，例如

^+b

或

^+a

，但我遇到了相同的问题

---

有人看到解决方案了吗？

您需要指定一个密钥：

• 要在数字键盘上输入，请使用

  Application.OnKey“{Enter}”，“按Enter”

• 对于正常输入，请使用

  Application.OnKey“~”，“按Enter”

看

---

请注意，其他键如

^+b

表示ctrl+shift+b。确保

Public Sub-press enter（）

在模块中，而不是在

本工作簿中。如果它在
工作簿\u Open（）
中不起作用，请尝试
工作簿\u Activate（）
。
您需要指定一个键：


要在数字键盘上输入，请使用
Application.OnKey“{Enter}”，“按Enter”
对于正常输入，请使用
Application.OnKey“~”，“按Enter”

看

请注意，其他键如
^+b
表示ctrl+shift+b。确保
Public Sub-press enter（）
在模块中，而不是在
本工作簿中。如果在
工作簿\u Open（）
中无效，请尝试
工作簿\u Activate（）
。
@Joliba请将此答案标记为解决方案，以便其他人可以看到此问题已解决。@Joliba请将此答案标记为解决方案，以便其他人可以看到此问题已解决。