Excel VBA 快捷键 代码

一.　　在ThisWorkbook中

1 Private Sub Workbook_Open()

2     '%对应alt键 宏不能加()

3     Application.OnKey "%q", "Test"

4 End Sub

利用open事件触发

二.　　在Sub中

Sub auto_open()

    Application.OnKey "1", "test.模块1.Test "

End Sub

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

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