ExcelVba.rar_Excel VBA_VBa_excel_excelvba_vba 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:="消耗品", OnAction:="消耗品" MenuBars("MyMenu").Menus("资产管理").MenuItems("固定资产管理").MenuItems("办公用品管理").MenuItems.Add Caption:="非消耗品", OnAction:="非消耗品" MenuBars("MyMenu").Activate '激活自定义选单 End Sub