[已解决]看不到新建的自定义选单

mqr66

我编了一个程序，用来新建自定义选单，但是我在excel里没有找到，请高手指点一点，怎样才能看到自己新建的自定义选单。代码如下：
Sub OpenMyMenu() '自定义多级选单函数
On Error Resume Next '忽略错误
MenuBars("MyMenu").Delete '删除自定义选单
MenuBars.Add ("MyMenu") ′自定义选单项
Sheets("sheet1").Select
MenuBars("MyMenu").Menus.Add Caption:="金融"
′增加第一个选单项“金融”
′以下三句为在“金融”选单下增加“银行法、货币政策和条例”三项选单项
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="银行法", OnAction:="银行法"
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="货币政策", OnAction:="货币政策"
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="条例", OnAction:="条例"
'以下为创建如图所示的多级选单
MenuBars("MyMenu").Menus.Add Caption:="经济" '建立选单项“经济”
′以下三句为在“经济”选单下增加“农业、工业和第三产业”三项选单项
MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="农业", OnAction:="农业"
MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="工业", OnAction:="工业"
MenuBars("MyMenu").Menus("经济").MenuItems.AddMenu Caption:="第三产业"
′以下三句为在“第三产业”选单下增加“概况、范畴”二项选单项和“饮食服务业”子选单
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="概况", OnAction:="概况"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="范畴", OnAction:="范畴"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.AddMenu Caption:="饮食服务业"
′以下二句为在“饮食服务业”选单下增加“酒店1、酒店2”二项选单项
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.Add Caption:="酒店1", OnAction:="酒店1"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.Add Caption:="酒店2", OnAction:="酒店2"
MenuBars("MyMenu").Activate '激活自定义选单
End Sub
Sub auto_open() ′系统自动打开运行宏
OpenMyMenu  '调用用户选单函数
End Sub
Sub auto_close() ′系统自动关闭运行宏
On Error Resume Next ′忽略错误
MenuBars("MyMenu").Delete '删除自定义选单
End Sub

最佳答案

月排行榜 / 总排行榜

安贤

2011-10-3 16:27

Sub OpenMyMenu() '自定义多级选单函数
On Error Resume Next '忽略错误
MenuBars("MyMenu").Delete '删除自定义选单
MenuBars.Add ("MyMenu") ''自定义选单项
Sheets("sheet1").Select
MenuBars("MyMenu").Menus.Add Caption:="金融"
'增加第一个选单项“金融”
'以下三句为在“金融”选单下增加“银行法、货币政策和条例”三项选单项
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="银行法", OnAction:="银行法"
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="货币政策", OnAction:="货币政策"
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="条例", OnAction:="条例"
'以下为创建如图所示的多级选单
MenuBars("MyMenu").Menus.Add Caption:="经济" '建立选单项“经济”
'以下三句为在“经济”选单下增加“农业、工业和第三产业”三项选单项
MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="农业", OnAction:="农业"
MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="工业", OnAction:="工业"
MenuBars("MyMenu").Menus("经济").MenuItems.AddMenu Caption:="第三产业"
'以下三句为在“第三产业”选单下增加“概况、范畴”二项选单项和“饮食服务业”子选单
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="概况", OnAction:="概况"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="范畴", OnAction:="范畴"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.AddMenu Caption:="饮食服务业"
'以下二句为在“饮食服务业”选单下增加“酒店1、酒店2”二项选单项
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.Add Caption:="酒店1", OnAction:="酒店1"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.Add Caption:="酒店2", OnAction:="酒店2"
MenuBars("MyMenu").Activate '激活自定义选单
End Sub

Sub auto_open() '系统自动打开运行宏
OpenMyMenu  '调用用户选单函数
End Sub

Sub auto_close() '系统自动关闭运行宏
On Error Resume Next '忽略错误
MenuBars("MyMenu").Delete '删除自定义选单
End Sub

跳转到最佳答案楼层

安贤

Sub OpenMyMenu() '自定义多级选单函数
On Error Resume Next '忽略错误
MenuBars("MyMenu").Delete '删除自定义选单
MenuBars.Add ("MyMenu") ''自定义选单项
Sheets("sheet1").Select
MenuBars("MyMenu").Menus.Add Caption:="金融"
'增加第一个选单项“金融”
'以下三句为在“金融”选单下增加“银行法、货币政策和条例”三项选单项
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="银行法", OnAction:="银行法"
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="货币政策", OnAction:="货币政策"
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="条例", OnAction:="条例"
'以下为创建如图所示的多级选单
MenuBars("MyMenu").Menus.Add Caption:="经济" '建立选单项“经济”
'以下三句为在“经济”选单下增加“农业、工业和第三产业”三项选单项
MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="农业", OnAction:="农业"
MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="工业", OnAction:="工业"
MenuBars("MyMenu").Menus("经济").MenuItems.AddMenu Caption:="第三产业"
'以下三句为在“第三产业”选单下增加“概况、范畴”二项选单项和“饮食服务业”子选单
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="概况", OnAction:="概况"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="范畴", OnAction:="范畴"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.AddMenu Caption:="饮食服务业"
'以下二句为在“饮食服务业”选单下增加“酒店1、酒店2”二项选单项
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.Add Caption:="酒店1", OnAction:="酒店1"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.Add Caption:="酒店2", OnAction:="酒店2"
MenuBars("MyMenu").Activate '激活自定义选单
End Sub

Sub auto_open() '系统自动打开运行宏
OpenMyMenu  '调用用户选单函数
End Sub

Sub auto_close() '系统自动关闭运行宏
On Error Resume Next '忽略错误
MenuBars("MyMenu").Delete '删除自定义选单
End Sub

安贤

′增加第一个选单项“金融”
′以下三句为在“金融”选单下增加“银行法、货币政策和条例”三项选单项
′以下三句为在“经济”选单下增加“农业、工业和第三产业”三项选单项
′以下三句为在“第三产业”选单下增加“概况、范畴”二项选单项和“饮食服务业”子选单
′以下二句为在“饮食服务业”选单下增加“酒店1、酒店2”二项选单项






你的这些备前面用的符号用的不对

mqr66

回复 安贤 的帖子

知道了，多谢指点