版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、-作者xxxx-日期xxxxVBA自定义菜单如何设置快捷键【精品文档】Static Sub AddMenu() 添加自定义菜单Dim NewMenuBar As CommandBarDim CX As CommandBarControl, JC As CommandBarControl, TB As CommandBarControl, SJ As CommandBarControl, BF As CommandBarControlDim DY As CommandBarControl, BZ As CommandBarControl, XX As CommandBarControl, USE
2、 As CommandBarControl, WH As CommandBarControlDim CW As CommandBarControl, TJ As CommandBarControl, LJC As CommandBarControl, YZ2 As CommandBarControl, YJC As CommandBarControlDim LDQ As CommandBarControl, LNB As CommandBarControl, SDQ As CommandBarControl, SNB As CommandBarControl, LAll As CommandB
3、arControlDim JSB As CommandBarControl, SAll As CommandBarControl, DDQ As CommandBarControl, DNB As CommandBarControl, CDQ As CommandBarControlDim CNB As CommandBarControl, C0 As CommandBarControl, CTZ As CommandBarControl, BF1 As CommandBarControl, BF2 As CommandBarControlDim BF8 As CommandBarContro
4、l, DY1 As CommandBarControl, DY2 As CommandBarControl, SM As CommandBarControl, FG As CommandBarControlDim KK As CommandBarControl, Bh1 As CommandBarControl, Bh2 As CommandBarControl, JB1 As CommandBarControl, JB2 As CommandBarControlDim KB As CommandBarControl, FZ As CommandBarControl, SY As Comman
5、dBarControl, CZ As CommandBarControl, Z1 As CommandBarControlDim Z2 As CommandBarControl, NH As CommandBarControl, B1 As CommandBarControl, B2 As CommandBarControl, B3 As CommandBarControl, BD As CommandBarControlDim B5 As CommandBarControl, B6 As CommandBarControl, S1 As CommandBarControl, S2 As Co
6、mmandBarControl, S3 As CommandBarControlDim S5 As CommandBarControl, S6 As CommandBarControl, D1 As CommandBarControl, D2 As CommandBarControl, D3 As CommandBarControlDim D5 As CommandBarControl, D6 As CommandBarControl, C1 As CommandBarControl, C2 As CommandBarControl, C3 As CommandBarControlDim C5
7、 As CommandBarControl, C6 As CommandBarControl, TJF As CommandBarControl, TL As CommandBarControl, CL As CommandBarControlDim ClCells As CommandBarControl, ShHL As CommandBarControl Application.ScreenUpdating = False On Error Resume Next MenuBars(MyMenuBar).Delete 定义菜单 Set NewMenuBar = CommandBars.A
8、dd(MenuBar:=True) NewMenuBar.Name = MyMenuBar NewMenuBar.Visible = True定义一级菜单项 Set CX = NewMenuBar.Controls.Add(Type:=msoControlPopup) CX.Caption = 程序设置 CX.Visible = True Set JC = NewMenuBar.Controls.Add(Type:=msoControlPopup) JC.Caption = 基础数据 JC.Visible = True Set TB = NewMenuBar.Controls.Add(Type
9、:=msoControlPopup) TB.Caption = 报表审录trols.Add(Type:=msoControlPopup) SJ.Caption = 数据处理 SJ.Visible = True Set BF = NewMenuBar.Controls.Add(Type:=msoControlPopup) BF.Caption = 报表备份 BF.Visible = True Set DY = NewMenuBar.Controls.Add(Type:=msoControlPopup) DY.Caption = 打印控制 DY.Visible = True Set BZ = Ne
10、wMenuBar.Controls.Add(Type:=msoControlPopup) BZ.Caption = 帮助信息 BZ.Visible = True定义二级菜单项 Set XX = CX.Controls.Add(Type:=msoControlButton) With XX .Caption = 企业信息 .OnAction = ShowXX .FaceId = 1016 End With Set USE = CX.Controls.Add(Type:=msoControlButton) With USE .Caption = 操作设定 .OnAction = UserSet .
11、FaceId = 1980 End With Set TIM = CX.Controls.Add(Type:=msoControlButton) With TIM .Caption = 报表时期 .OnAction = ChangeMonth .BeginGroup = True 菜单选项之间的分隔线 End With Set WH = CX.Controls.Add(Type:=msoControlPopup) With WH .Caption = 报表维护 .BeginGroup = True 菜单选项之间的分隔线 End With Set CW = JC.Controls.Add(Typ
12、e:=msoControlPopup) With CW .Caption = 财务报表 End With Set TJ = JC.Controls.Add(Type:=msoControlPopup) With TJ .Caption = 统计数据 End With Set LJC = JC.Controls.Add(Type:=msoControlButton) With LJC .Caption = 基础数据综合录入 .BeginGroup = True 菜单选项之间的分隔线 .OnAction = ShowJC .FaceId = 353 End With Set YZ2 = JC.Co
13、ntrols.Add(Type:=msoControlButton) With YZ2 .Caption = 增表二数据套用 .BeginGroup = True 菜单选项之间的分隔线 .OnAction = CountZ1 .FaceId = 211 End With Set YJC = JC.Controls.Add(Type:=msoControlButton) With YJC .Caption = 基础数据导入主表 .BeginGroup = True 菜单选项之间的分隔线 .OnAction = CountJC .FaceId = 938 End With Set LDQ = TB
14、.Controls.Add(Type:=msoControlPopup) With LDQ .Caption = 录入定期报表 End With Set LNB = TB.Controls.Add(Type:=msoControlButton) With LNB .Caption = 录入年报报表 .OnAction = ShowNB 无 .FaceId = 162 End With Set SDQ = TB.Controls.Add(Type:=msoControlPopup) With SDQ .Caption = 定期报表审核 .BeginGroup = True 菜单选项之间的分隔线
15、End With Set SNB = TB.Controls.Add(Type:=msoControlButton) With SNB .Caption = 年报报表审核 .OnAction = CheckNB .FaceId = 172 End With Set JSB = TB.Controls.Add(Type:=msoControlButton) With JSB .Caption = 表间数据计算 .OnAction = CountBB .FaceId = 283 .BeginGroup = True 菜单选项之间的分隔线 End With Set LAll = TB.Control
16、s.Add(Type:=msoControlButton) With LAll .Caption = 当期报表通录 .BeginGroup = True 菜单选项之间的分隔线 .OnAction = ShowBB .FaceId = 212 End With Set SAll = TB.Controls.Add(Type:=msoControlButton) With SAll .Caption = 当期报表全审 .OnAction = CheckBB .FaceId = 790 .BeginGroup = True 菜单选项之间的分隔线 End With Set DDQ = SJ.Contr
17、ols.Add(Type:=msoControlPopup) With DDQ .Caption = 定期数据导入 End With Set DNB = SJ.Controls.Add(Type:=msoControlButton) With DNB .Caption = 年报数据导入 .OnAction = InNB .FaceId = 237 End With Set CDQ = SJ.Controls.Add(Type:=msoControlPopup) With CDQ .Caption = 生成定期数据 .BeginGroup = True 菜单选项之间的分隔线 End With S
18、et CNB = SJ.Controls.Add(Type:=msoControlButton) With CNB .Caption = 生成年报报表数据 .FaceId = 762 .OnAction = OutNB End With Set C0 = SJ.Controls.Add(Type:=msoControlButton) With C0 .Caption = 生成全部数据 .FaceId = 721 .OnAction = OutAll .BeginGroup = True 菜单选项之间的分隔线rols.Add(Type:=msoControlButton) With CTZ .C
19、aption = 生成统计台账 .FaceId = 222 .OnAction = OutTZ End With Set BF1 = BF.Controls.Add(Type:=msoControlButton) With BF1 .Caption = 备份定期报表 .FaceId = 356 .OnAction = Copy1 End With Set BF2 = BF.Controls.Add(Type:=msoControlButton) With BF2 .Caption = 备份年报套表 .FaceId = 1665 .OnAction = Copy2 End With Set BF
20、8 = BF.Controls.Add(Type:=msoControlButton) With BF8 .Caption = 程序数据表转存 .FaceId = 749 .OnAction = CopyAll .BeginGroup = True 菜单选项之间的分隔线 If Man = 0 Then .Enabled = False End If End With Set DY0 = DY.Controls.Add(Type:=msoControlButton) With DY0 .Caption = 预览调整rols.Add(Type:=msoControlButton) With DY1
21、 .Caption = 打印当前报表 .FaceId = 4 .OnAction = Print1 End With Set SM = BZ.Controls.Add(Type:=msoControlButton) With SM .Caption = 程序说明 .FaceId = 984 .OnAction = Help End With Set FG = BZ.Controls.Add(Type:=msoControlPopup) With FG .Caption = 统计法规参考 .BeginGroup = True 菜单选项之间的分隔线 End With Set BB = BZ.Con
22、trols.Add(Type:=msoControlButton) With BB .Caption = 程序版本信息 .OnAction = ShowKK .FaceId = 809 .BeginGroup = True 菜单选项之间的分隔线 End With定义三级菜单项ols.Add(Type:=msoControlButton) With JB1 .Caption = 工作表解锁 .FaceId = 916 .OnAction = JB1 End With Set Bh1 = WH.Controls.Add(Type:=msoControlButton) With Bh1 .Capti
23、on = 锁定工作表 .FaceId = 894 .OnAction = Bh1 End With Set JB2 = WH.Controls.Add(Type:=msoControlButton) With JB2 .Caption = 工作簿解锁 .FaceId = 719 .OnAction = JB2 .BeginGroup = True 菜单选项之间的分隔线 If Man = 0 Then .Enabled = False End If End With Set Bh2 = WH.Controls.Add(Type:=msoControlButton) With Bh2 .Capti
24、on = 锁定工作簿 .FaceId = 718 .OnAction = Bh2 If Man = 0 Then .Enabled = False End If End With Set DelCell = WH.Controls.Add(Type:=msoControlButton) With DelCell .Caption = 清除本月表内数据 .FaceId = 20 .OnAction = Clear1 .BeginGroup = True分隔线 End With Set ClCells = WH.Controls.Add(Type:=msoControlButton) With C
25、lCells .Caption = 清除本表所有数据 .OnAction = ClearAll If Man = 0 Then .Enabled = False End If End With Set SHL = WH.Controls.Add(Type:=msoControlButton) With SHL .Caption = 行列编辑信息 .FaceId = 11 .OnAction = ShowRC .BeginGroup = True分隔线 If Man = 0 Then .Enabled = False End If End With Set KB = WH.Controls.Ad
26、d(Type:=msoControlButton) With KB .Caption = 查阅所有表 .FaceId = 8 .OnAction = ShowAll .BeginGroup = True分隔线 If Man = 0 Then .Enabled = False End If End With Set FZ = CW.Controls.Add(Type:=msoControlButton) With FZ .Caption = 资产负债表 .FaceId = 133 .OnAction = ShowFZ End With Set SY = CW.Controls.Add(Type:
27、=msoControlButton) With SY .Caption = 损益(利润)表 .FaceId = 136 .OnAction = ShowSY End With Set CZ = TJ.Controls.Add(Type:=msoControlButton) With CZ .Caption = 总产值计算表 .FaceId = 17 .OnAction = ShowCZ .BeginGroup = True分隔线 End With Set Z1 = TJ.Controls.Add(Type:=msoControlButton) With Z1 .Caption = 增加值计算表
28、一 .FaceId = 144 .OnAction = ShowZ1 End With Set Z2 = TJ.Controls.Add(Type:=msoControlButton) With Z2 .Caption = 增加值计算表二 .FaceId = 144 .OnAction = ShowZ2 End With Set NH = TJ.Controls.Add(Type:=msoControlButton) With NH .Caption = 能耗记录表 .FaceId = 107 .OnAction = ShowNH End With Set B1 = LDQ.Controls.
29、Add(Type:=msoControlButton) With B1 .Caption = B201表 .FaceId = 483 .OnAction = Show201 End With Set B2 = LDQ.Controls.Add(Type:=msoControlButton) With B2 .Caption = B202表 .FaceId = 481 .OnAction = Show202 End With Set B3 = LDQ.Controls.Add(Type:=msoControlButton) With B3 .Caption = B203表 .FaceId = 4
30、84 .OnAction = Show203 .BeginGroup = True分隔线 End With Set B5 = LDQ.Controls.Add(Type:=msoControlButton) With B5 .Caption = P205表 .FaceId = 482 .OnAction = Show205 End With Set B6 = LDQ.Controls.Add(Type:=msoControlButton) With B6 .Caption = P206表 .FaceId = 59 .OnAction = Show206 .BeginGroup = True分隔
31、线 End With Set BD = LDQ.Controls.Add(Type:=msoControlButton) With BD .Caption = 乡企定综1表 .FaceId = 1763 .OnAction = ShowD1 .BeginGroup = True分隔线 End With Set S1 = SDQ.Controls.Add(Type:=msoControlButton) With S1 .Caption = B201表 .FaceId = 329 .OnAction = Check201 End With Set S2 = SDQ.Controls.Add(Typ
32、e:=msoControlButton) With S2 .Caption = B202表 .OnAction = Check202 End With Set S3 = SDQ.Controls.Add(Type:=msoControlButton) With S3 .Caption = B203表 .FaceId = 107 .OnAction = Check203 .BeginGroup = True分隔线 End With Set S5 = SDQ.Controls.Add(Type:=msoControlButton) With S5 .Caption = P205表 .OnActio
33、n = Check205 End With Set S6 = SDQ.Controls.Add(Type:=msoControlButton) With S6 .Caption = P206表 .FaceId = 1715 .OnAction = Check206 .BeginGroup = True分隔线 End With Set D1 = DDQ.Controls.Add(Type:=msoControlButton) With D1 .Caption = B201表 .FaceId = 239 .OnAction = In201 .BeginGroup = True分隔线 End Wit
34、h Set D2 = DDQ.Controls.Add(Type:=msoControlButton) With D2 .Caption = B202表 .OnAction = In202 .BeginGroup = True分隔线 End With Set D3 = DDQ.Controls.Add(Type:=msoControlButton) With D3 .Caption = P203表 .FaceId = 317 .OnAction = In203 .BeginGroup = True分隔线 End With Set D5 = DDQ.Controls.Add(Type:=msoControlButton) With D5 .Caption = P205表 .OnAction = In205 End With Set D6 = DDQ.Controls.Add(Type:=msoControlButton) With D6 .Caption
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年3月上半年四川凉山美姑县招考聘用小学教师40人笔试历年典型考点解题思路附带答案详解
- 小学科学物质分离测试试题
- 如何预防网络欺凌和保护自己的个人信息
- 奥运会的起源和现代比赛项目
- 不同考试模拟模拟练习册
- 小学自我保护测试
- 中学生应该如何正确处理学习和家庭压力的关系
- 如何成为一名好学生
- 学校常见物品测验
- 塑料 粉状不饱和聚酯模塑料(UP-PMCs)第1部分:命名系统和分类基础 征求意见稿
- 2024年全国职业院校技能大赛(植物病虫害防治赛项)考试题库-上(单选题)
- 2024年北京市普通高中第一次合格性学业水平考试英语试题
- 《合格率》(教学设计)-2024-2025学年六年级上册数学北师大版
- 【曲美家居木质家具企业成本控制现状、问题及对策】11000字
- 2024届广东广州白云国际机场股份限公司管培生校园招聘(高频重点提升专题训练)共500题附带答案详解
- 2023年度学校食堂食品从业人员考核试题(附答案)
- 2024年基金应知应会考试试题及答案
- 医联体协议书范本(2024版)
- 人教版小学数学五年级上册3.3《商的近似数》说课稿
- 2024-2030年核磁共振波谱行业市场现状供需分析及重点企业投资评估规划分析研究报告
- 医院护理部压疮报表一院外带入压疮统计2023
评论
0/150
提交评论