Question

vb中弹出式菜单怎么编写子菜单？

Answer 1

1、按下组合键ALT+F11，打开vba代码编辑窗口。

2、VBA单元格中生成弹出式菜单第二步，在左侧的vba工程窗口空白区域上右击鼠标，弹出菜单中选择“插入”——“模块”。

3、VBA单元格中生成弹出式菜单第三步，在新建的模块中，输入以下代码。

4、定义一个CommandBar对象类型，用来保存单元格右键快捷菜单命令项。

5、再定义了一个菜单项对象，指向CommandBar对象类型的一个新增菜单项，并指定单击新增的命令时执行的子过程名称为test，显示为测试。

6、再定义一个子过程test，用来响应菜单的动作。

7、VBA单元格中生成弹出式菜单第四步，将光标定义在第一个过程中，按F5运行该过程。

8、最终效果如图所示。