excel 自定义工具栏和菜单栏及分析统计学生成绩

《excel 自定义工具栏和菜单栏及分析统计学生成绩》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、excel自定义工具栏和菜单栏PrivateSubWorkbook_Open()Workbook_AddinInstall'AddNewCommandBarEndSubPrivateSubWorkbook_AddinInstall()DimCBAsCommandBarControlDimiAsIntegeri=1ForEachCBInApplication.CommandBars(1).ControlsIfCB.Caption="成绩处理"Then'菜单已加入，则刪除Application.CommandBars("Wor

2、ksheetMenuBar").Controls("成绩处理").Visible=TrueApplication.CommandBars("WorksheetMenuBar").Controls("成绩处理").DeleteEndIfNextDimobjCmdBrPpAsCommandBarPopupSetobjCmdBrPp=Application.CommandBars.ActiveMenuBar.Controls.Add(Type:=msoControlPopup,Temporary:=False)OnErrorRe

3、sumeNextobjCmdBrPp.Caption="成绩处理"SetobjCmdBrPp=NothingWithApplication.CommandBars("Worksheetmenubar").Controls("成绩处理").Controls.Add(Type:=msoControlButton,Before:=1).Caption="清".Controls("清").OnAction="Sheet2.清"EndWithWithApplication.CommandBars("Worksheetmenubar"

4、).Controls("成绩处理").Controls.Add(Type:=msoControlButton,Before:=1).Caption="统".Controls("统").OnAction="Sheet2.统"EndWith'建立工具栏DimxBarAsCommandBarDimxButton1AsCommandBarButtonDimxButton2AsCommandBarButtonOnErrorResumeNextApplication.CommandBars("CustomBar").DeleteSet

5、xBar=Application.CommandBars.Add(Name:="成绩处理",Position:=msoBarTop,MenuBar:=False,Temporary:=False)SetxButton1=xBar.Controls.Add(Type:=msoControlButton)SetxButton2=xBar.Controls.Add(Type:=msoControlButton)WithxButton1.Caption="清".Style=msoButtonCaption.OnAction="Sh

6、eet2.清"EndWithWithxButton2.Caption="统".Style=msoButtonCaption.OnAction="Sheet2.统"EndWithWithApplication.CommandBars("成绩处理").Visible=TrueEndWithSetxBar=NothingSetxButton1=NothingSetxButton2=Nothing'固定工具栏DimintleftAsInteger,introwAsIntegerintleft=Application.Command

7、Bars("formatting").Widthintrow=Application.CommandBars("formatting").RowIndexApplication.CommandBars("成绩处理").Left=intleftApplication.CommandBars("成绩处理").RowIndex=introwEndSubPrivateSubWorkbook_BeforeClose(CancelAsBoolean)'文件关闭，就刪除菜单DimCBAsCommandBarControlOnErrorR

8、esumeNextForEachCBInApplication.CommandBars(1).ControlsIfCB.Caption="成绩处理"ThenApplication.CommandBars("WorksheetMenuBar").Controls("成绩处理").Visible=False