VBA无模式表单停止功能键

我想在我的Excel程序中有自己的帮助文件。

在里面

Private Sub Workbook_Open()

我有

Application.OnKey "{F1}", "Help"

当我在Excel工作表上但我的应用程序基于无模式显示的全屏主用户窗体时，该方法有效。

当用户窗体可见时，它将以某种方式阻止F1键，并且宏不会触发。

我认为无模式形式不会阻止代码执行。

有什么提示可以使我工作吗？

最佳答案

您需要在UserForm本身上捕获keyDown事件。当用户窗体得到焦点时，无论您按什么键，都将转到用户窗体。

'/UserForm1 is a sample name.

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
     If KeyCode = 112 Then '/ F1
        Call Help
     End If
End Sub