Excel：在KeyUp上运行另一个宏

Question

我正在尝试创建一个用户表单，并且有一个宏来显示这个。我希望这个宏（显示用户表单）在我按下（keyUp）键时运行，只需按 Shift 或 Capslock 键。

我在下面找到了相同的帖子，但是当我运行它时显示错误。

https://stackoverflow.com/a/14209798/1279872

请参阅附图以获取错误消息：

https://www.dropbox.com/s/8thupki17ajqde7/Picture1.png?dl=0

我使用的vba代码是（两个程序在同一张纸上）

Private Sub Workbook_Open()
    Application.OnKey "{CAPSLOCK}", "testing"
    MsgBox ("test2")
End Sub

Sub testing()
    MsgBox ("test1")
End Sub

可以从以下链接下载excel（如果您想看到相同的内容）：

https://www.dropbox.com/s/c277skeywsrkbzy/Book1.xlsm?dl=0

Answer 1

在ThisWorkbook中你需要放置：

Private Sub Workbook_Open()
    Application.OnKey "{CAPSLOCK}", "testing"
    MsgBox ("test2")
End Sub

子testing应该在一个模块中。