Excel VBA 快捷键代码

2023-08-16 08:51:04

一.　　在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好像为固定命名的宏, 使用此名称的宏内容会自动执行一次

码农公寓