F1键运行宏

NoO*_*One 2 excel vba excel-vba

如何F1在excel中为宏指定键而不是'excel help'?我看到这个问题有很多答案,但它们在excel 2013/2016中不起作用.

我需要这样的解决方案,但对于新的Excel:https : //www.extendoffice.com/documents/excel/1798-excel-disable-f1-key.html https://excel.tips.net/T002089_Disabling_the_F1_Key.html

在此先感谢您的帮助.

Vit*_*ata 5

Public Sub TestMe()

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

End Sub

Public Sub UnTestMe()

    Application.OnKey "{F1}"

End Sub


Public Sub RunMe()

    Debug.Print Now

End Sub
Run Code Online (Sandbox Code Playgroud)

如果你运行TestMe,它将分配F1RunMe.要取消分配,请运行UnTestMe.在一般情况下,您可以考虑使用F1Ctrl,ShiftAlt像这样:

Application.OnKey "^{F1}", "F1_CtrlMacro"
Application.OnKey "%{F1}", "F1_AltMacro"
Application.OnKey "+{F1}", "F1_ShiftMacro"
Application.OnKey "{F1}", "F1_OnlyMacro"
Run Code Online (Sandbox Code Playgroud)

编辑:

要从头开始分配,请在ThisWorkbook中添加以下内容:在此输入图像描述

Option Explicit

Private Sub Workbook_Open()

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

End Sub
Run Code Online (Sandbox Code Playgroud)