vba - Application.OnKey 仅适用于一个电子表格

Question

我正在尝试使用 Application.OnKey 在按下 Enter 时启动一个功能，它工作得很好。但问题是，如果我打开了其他电子表格，它也会应用于这些电子表格。我应该把代码放在哪里，以便它只适用于预期的电子表格？

这是我在“ThisWorkbook”中的代码:

Private Sub Workbook_Open()
    Application.OnKey "~", "Set_Hyper"
    Application.OnKey "{ENTER}", "Set_Hyper"
End Sub

Answer 1

这是解决它的方法:

Private Sub Workbook_Open()
    Application.OnKey "~", "Call_Hyper"
    Application.OnKey "{ENTER}", "Call_Hyper"
End Sub

在一个模块中放置:

Sub Call_Hyper
If Activeworkbook.Name = "NAME OF YOUR WORKBOOK" Then
Call Set_Hyper
Else
Exit Sub
End If

End Sub

如果另一个工作簿需要相同的快捷方式，则两者会导致问题，因此您也可以在切换工作簿时使用以下方法将其停用:

Private Sub Workbook_DeActivate()
    Application.OnKey "~"
    Application.OnKey "{ENTER}"
End Sub

您需要将第一个宏更改为 Private Sub Workbook_Activate()而不是 Private Sub Workbook_Open()上述工作虽然