Excel VBA 快捷键 代码

一.　　在ThisWorkbook中

 Private Sub Workbook_Open()
     '%对应alt键 宏不能加()
     Application.OnKey "%q", "Test"
 End Sub

利用open事件触发

二.　　在Sub中

Sub auto_open()
    Application.OnKey "", "test.模块1.Test "
End Sub

设置快捷键为大键盘部分数字1, 宏中test为VBAProject修改的名称+模块名称+宏名

auto_open好像为固定命名的宏, 使用此名称的宏内容会自动执行一次