EXCEL VBA应用教程-菜单程序设计.docVIP

EXCEL VBA应用教程----第12讲 菜单程序设计 第12讲??? 菜单程序设计 12.1 独立菜单的设计 1.建立菜单 在Thisworkbook 中输入建立菜单的程序。 Private Sub Workbook_Open() 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.Add Caption:=月度汇总, OnAction:=月度汇总 增加第三个菜单选单项查询打印 MenuBars(MyMenu).Menus.Add Caption:=查询打印 MenuBars(MyMenu).Menus(查询打印).MenuItems.Add Caption:=查询工资表, OnAction:=查询工资表 MenuBars(MyMenu).Menus(查询打印).MenuItems.Add Caption:=查询部门汇总表, OnAction:=查询部门汇总表 根据业务需要增加相应的菜单选项 激活自定义选单 MenuBars(MyMenu).Activate Application.Caption = 星月软件有限公司 End Sub 本程序执行后，原来EXCEL的菜单已经不再显示出来。如果要启动VBE，可直接按Alt+F11。 ????? 2.子程序的编制 ????? （1）退出 在“模块1”中输入如下程序。本模块程序的功能是删除已经建立的菜单，退出系统。 Private Sub 退出() On Error Resume Next 忽略错误 Application.Caption = excel MenuBars(MyMenu).Delete Application.Quit End Sub 12.2 在EXCEL上增加菜单的设计 在EXCEL已经有的菜单上增加菜单，也是常用的方式之一，这在EXCEL的基础上，可根据专用需要增加必要的功能。 在ThisWorkbook中增加如下程序： Private Sub Workbook_Open() ???? Dim myCmd As Object, myCtr As Object ???? Application.CommandBars(1).Reset ???? Set myCmd = Application.CommandBars(1).Controls(2).Controls 2代表EXCEL的第二个菜单编辑 ???? With myCmd.Add(msoControlButton, , , , True) ??????? .Caption = 显示窗口 ??????? .OnAction = FormShow FormShow 表示选择该菜单后，执行FormShow 过程，此过程要放到模块中 ???? End With End Sub ???? 在模块中增加如下子程序： Sub FormShow() ????? UserForm1.Show End Sub 这段程序的作用就是显示UserForm1用户窗口