excelvba如何设置自定义只有一级菜单名称

你可以使用VBA编程实现添加只有一级菜单名称，具体步骤如下：

1. 在VBA编辑器中，右键点击“工作表”或“标签”选择“插入”；

2. 运行语句CommandBars("Worksheet Menu Bar").Controls("功能").Controls("宏").Delete；

3. 用Add方法添加一级菜单，Add方法的参数的说明，可以参考MSDN中对应的API文档；

4. 添加完一级菜单以后，再使用Add方法添加子菜单；

5. 最后，在子菜单中添加宏。

Application.CommandBars(1).Controls(CtrButton).Caption = "常用工具（彭希仁）" 这个语句有错误！

不会报错的原因是：On Error Resume Next 语句将错误忽略掉啦，将此语句去除或注释，然后单步执行，就可看到哪出错啦！如下图：（建议调试程序时尽量不要使用此语句）

---