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

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).ActivateApplication.Caption = 星月软件有限公司End Sub本程序执行后，原来EXCEL的菜单已经不再显示出来。如果要启动VBE，可直接按Alt+F11。 2.子程序的编制 （1）退出在“模块1”中输入如下程序。本模块程序的功能是删除已经建立的菜单，退出系统。Private Sub 退出()On Error Resume Next 忽略错误Application.Caption = excelMenuBars(MyMenu).DeleteApplication.QuitEnd Sub12.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 WithEnd Sub在模块中增加如下子程序：Sub FormShow() UserForm1.ShowEnd Sub这段程序的作用就是显示UserForm1用户窗口。然后再增加一个用户窗口，用户窗口的名称是UserForm1。执行结果，在EXCEL的“编辑”菜单的最后，显示一个“显示窗口”