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

 

posted @ 2014-08-27 09:03  Bluethon  阅读(1252)  评论(0)  编辑  收藏  举报