【VBA编程技巧】给宏程序设置快捷键，提高工作效率。

deer332025-09-08技术文章32

关注我，每天分享高效办公技巧及免费自动化模版，从此告别加班

引言

日常工作中，有时我们因工作需要，同一个工作簿中，写了很多个宏程序，正常操作流程，每次需要运行某个宏程序，都需要点菜单：

操作步骤还是比较多的，如果宏程序比较多，操作还是有点不方便。

如果能给每个程序设置对应的快捷键，需要运行时，按一下快捷键就能运行就很方便了。

今天，老师就把自己的VBA开发工作习惯分享给大家，教大家如何给VBA程序设置运行的快捷键。

良好的程序命名

如果你的工作簿有多个VBA程序，那程序的命名就很重要了，一般老师有以下规范习惯：

具体命名规则可看本期文章第二篇

如果多个程序间运行有先后顺序，可以给程序前加一个字母编号

可以按工作流程顺序给程序设置一下编号，这样让人一看就知道先运行哪个程序。但前面不能加数字编号，数字不符合规则规则。

给程序设置快捷键

如果想更快捷地运行程序，可以给程序加上对应快捷键，给程序设置快捷键的方法，一般有两种：

在宏菜单中，选择要设置快捷键的宏程序，点选项，就可以设置快捷键。

注意设置快捷键，不要和EXCEL中默认的快捷键冲突；

但这样设置，只能设置“CTRL+*”这样的组合键，比较单一，有时我们可能需要设置类似CTRL+SHIFT+*这样的组合，就需要我们第二种方法了。

2.代码设置方法ONKEY

通过ONKEY方法，可以设置按下指定组合的快捷键时，自动运行指定的过程。APPLICATION.ONKEY方法参数如下：

Application.OnKey "快捷键代码", "调用过程名称"

快捷键代码这里有点特殊，不是手动输入键盘名称，是要按下面的代码规则输入：

举例：设置SHIFT+R快捷键运行“ONKEY调用过程”程序

Sub ONKEY方法()
Application.OnKey "+R", "ONKEY调用过程"
End Sub

Sub ONKEY调用过程()
MsgBox "程序运行完成"
End Sub

如何取消快捷键

如果要取消快捷键，一般遵循“怎么设置怎么取消”的原则，如果是通过菜单设置，在菜单中删除就行。

如果是通过代码设置的，把运行的程序删除就行了。

'设置快捷键
Sub ONKEY方法()
Application.OnKey "+R", "ONKEY调用过程"
End Sub

'取消快捷键
Sub ONKEY方法()
Application.OnKey "+R"
End Sub

不过有一点要注意，使用ONKEY设置的，不只是在代码所在工作簿中有效，在所有打开工作簿中都有效.

为了避免造成使用障碍，当不需要快捷键后，应取消。

一般情况下，我们会在关闭使用ONKEY方法的工作簿前，通过WORKBOOK对象的BEFORECLOSE事件来取消ONKEY设置的快捷键。

#办公技能#办公软件#职场技能#职场办公#Excel#wps#VBA

分享高效办公技巧及免费自动化模版，避免以后需要找不到，请您持续关注哦

迪三三百科