如何用vba给vbe内置菜单命令栏添加自定义命令? - VBA - ExcelOffice

如何用vba给vbe内置菜单命令栏添加自定义命令?





如何用vba在单元格右键快捷菜单中添加自定义的菜单命令? 一文中介绍了用vba给单元格右键快捷菜单添加自定义菜单命令的方法。

类似的,也可以在vbe内置菜单命令栏添加自定义命令。

如下代码所示

当运行上述代码后可以在代码窗口的右键快捷菜单中添加自定义的命令“测试”,如下图所示

VBE1

但是单击“测试”后无法运行“xyf”子过程。

在vbe中添加自定义菜单命令与在excel 中添加自定义菜单命令有所不同,在vbe中添加的自定义菜单按钮控件需要通过单击事件来触发它的OnAction。

为此需要添加一个类模块,名称改为“clsCMB”,然后定义一个带事件的对象变量。具体代码如下

然后插入一个标准模块,在标准模块中添加以下代码

最后执行”QQ1722187970″子过程,单击代码窗口的右键快捷菜单中的“测试”命令,将执行”xyf“子过程。

打赏

发表评论