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

《EXCEL VBA应用教程-菜单程序设计.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、EXCELVBA应用教程----第12讲菜单程序设计第12讲   菜单程序设计12.1独立菜单的设计1.建立菜单在Thisworkbook中输入建立菜单的程序。PrivateSubWorkbook_Open()OnErrorResumeNext'忽略错误MenuBars("MyMenu").Delete'删除自定义选单MenuBars.Add("MyMenu")Sheets("sheet1").Select'增加第一个菜单选单项"项目初始"MenuBars("MyMenu").Menus.AddCaption:

2、="项目初始"'以下在一级菜单下增加几个级连子菜单                                                                                                                   MenuBars("MyMenu").Menus("项目初始").MenuItems.AddCaption:="变动项目初始化",OnAction:="变动项目初始化"MenuBars("MyMenu").Menus("项目初始").M

3、enuItems.AddCaption:="其他项目初始化",OnAction:="其他项目初始化"MenuBars("MyMenu").Menus("项目初始").MenuItems.AddCaption:="退出",OnAction:="退出"'增加第二个菜单选单项"工资计算"MenuBars("MyMenu").Menus.AddCaption:="工资计算"MenuBars("MyMenu").Menus("工资计算").MenuItems.AddCaption:="计算应发和实发工资",OnActio

4、n:="计算应发和实发工资"MenuBars("MyMenu").Menus("工资计算").MenuItems.AddCaption:="部门汇总",OnAction:="部门汇总"MenuBars("MyMenu").Menus("工资计算").MenuItems.AddCaption:="月度汇总",OnAction:="月度汇总"'增加第三个菜单选单项"查询打印"MenuBars("MyMenu").Menus.AddCaption:="查询打印"MenuBars("MyMenu").Menus("查询

5、打印").MenuItems.AddCaption:="查询工资表",OnAction:="查询工资表"MenuBars("MyMenu").Menus("查询打印").MenuItems.AddCaption:="查询部门汇总表",OnAction:="查询部门汇总表"'根据业务需要增加相应的菜单选项'激活自定义选单MenuBars("MyMenu").ActivateApplication.Caption="星月软件有限公司"EndSub本程序执行后，原来EXCEL的菜单已经不再显示出来。如果要启动VBE，

6、可直接按Alt+F11。     2.子程序的编制     （1）退出在“模块1”中输入如下程序。本模块程序的功能是删除已经建立的菜单，退出系统。PrivateSub退出()OnErrorResumeNext'忽略错误Application.Caption="excel"MenuBars("MyMenu").DeleteApplication.QuitEndSub12.2在EXCEL上增加菜单的设计在EXCEL已经有的菜单上增加菜单，也是常用的方式之一，这在EXCEL的基础上，可根据专用需要增加必要的功能。在T

7、hisWorkbook中增加如下程序：PrivateSubWorkbook_Open()    DimmyCmdAsObject,myCtrAsObject    Application.CommandBars(1).Reset    SetmyCmd=Application.CommandBars(1).Controls(2).Controls'2代表EXCEL的第二个菜单"编辑"    WithmyCmd.Add(msoControlButton,,,,True)       .Caption="显示窗口"

8、       .OnAction="FormShow"'FormShow表示选择该菜单后，执行FormShow过程，此过程要放到模块中    EndWithEndSub    在模块中增加如下子程序：SubFormShow()     UserForm1.ShowEndSub这段程序的作用就是显示UserForm1用户窗口。然后再增加一个用户窗口，用户窗口的名称是UserForm1。执