[已解决]子菜单代码如何写？

qkhhlmy · 发表于 2011-11-12 22:00

帅老师！来帮忙解决。。。

人力资源管理系统(VBA)(菜单)A.rar (19.97 KB, 下载次数: 34)

hytsky · 发表于 2011-11-12 22:55

第二个问题我可以回答你,在workopen里面添加
Worksheets("表的名称").Select
这样每次重新打开表时就默认显示这张子表

zjdh · 发表于 2011-11-16 10:10

本帖最后由 zjdh 于 2011-11-16 10:15 编辑

Sub 宏1() '数据保存
ThisWorkbook.Save
End Sub
Sub 宏2() '数据另存
Application.Dialogs(5).Show
End Sub
Sub 宏3() '打印预览
ActiveSheet.PrintPreview
End Sub
Sub 宏4() '打印本表
Application.Dialogs(8).Show
'或ActiveSheet.PrintOut
End Sub
Sub 宏5() '退出系统
ThisWorkbook.Close False
End Sub
Sub auto_open()
Worksheets("sheet1").Select
End Sub

复制代码

qkhhlmy · 发表于 2011-11-16 12:47

zjdh 发表于 2011-11-16 10:10

谢谢！等下试试，
再问个问题！恢复Excel菜单的代码什么写。
我用这个代码提示编辑错误：缺少函数或变量。。。。
Sub 恢复菜单()  '恢复Excel菜单
a = MsgBox("确定要恢复Excel菜单?", vbYesNo + vbQuestion, "恢复Excel菜单")
If a = vbYes Then
On Error Resume Next
MenuBars("MyMenu").Delete '删除自定义选单
With Application
      .CommandBars("Worksheet Menu Bar").Enabled = True
      .CommandBars("Standard").Visible = True
      .CommandBars("Formatting").Visible = True
End With
Application.CommandBars("MyMenu").Delete
Application.DisplayFormulaBar = True
Application.Caption = "Microsoft Excel"
End If
End Sub

qkhhlmy · 发表于 2011-11-16 12:50

hytsky 发表于 2011-11-12 22:55
第二个问题我可以回答你,在workopen里面添加
Worksheets("表的名称").Select
这样每次重新打开表时就默认 ...

可以写完整一句代码？

zjdh · 发表于 2011-11-16 12:59

本帖最后由 zjdh 于 2011-11-16 13:04 编辑

我3楼回复，不是2个问题都解决了吗？！！

恢复菜单：

Sub 恢复菜单()
If MsgBox("确定要恢复Excel菜单?", vbYesNo + vbQuestion, "恢复Excel菜单") = vbYes Then
On Error Resume Next
Application.CommandBars("MyMenu").Delete
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Formula Bar").Reset
Application.Caption = "Microsoft Excel"
End If
End Sub

复制代码

qkhhlmy · 发表于 2011-11-16 13:53

zjdh 发表于 2011-11-16 12:59
我3楼回复，不是2个问题都解决了吗？！！
恢复菜单：

谢谢你！！搞定了。回完这个设最佳答案了。。

Sub 自定义菜单() '自定义多级选单
Application.ScreenUpdating = False '操作时不进行刷屏
Application.DisplayAlerts = False '禁用所有事件
On Error Resume Next       '忽略错误
MenuBars("MyMenu").Delete '删除自定义选单
MenuBars.Add ("MyMenu")    '自定义选单项
MenuBars("MyMenu").Menus.Add "首页"（如果我只要菜单，不了显示子菜单，代码要怎么改？）
MenuBars("MyMenu").Menus("系统文件").MenuItems.Add "数据保存", "数据保存"
MenuBars("MyMenu").Menus("系统文件").MenuItems.Add "数据另存为", "数据另存为"
MenuBars("MyMenu").Menus("系统文件").MenuItems.Add "打印预览", "打印预览"
MenuBars("MyMenu").Menus("系统文件").MenuItems.Add "打印本表", "打印本表"
MenuBars("MyMenu").Menus("系统文件").MenuItems.Add "恢复Excel菜单", "恢复菜单"

MenuBars("MyMenu").Activate '激活自定义选单
Application.Caption = "**系统"
Application.DisplayAlerts = True    '    启用所有事件
Application.ScreenUpdating = True          '打开屏幕刷新
End Sub

zjdh · 发表于 2011-11-16 15:30

不明白！
是把这些命令排成一行？

qkhhlmy · 发表于 2011-11-16 16:30

zjdh 发表于 2011-11-16 15:30
不明白！
是把这些命令排成一行？

意思是说，如果我自做的菜单栏，点击后不会出现子菜单。
例如：鼠示点击菜单“目录”直接链接到我的“目录”工作表里。（不会出现空白的子菜单）
我用了这一句MenuBars("MyMenu").Menus.Add "首页" ' 有空白的子菜单

zjdh · 发表于 2011-11-16 16:54

越说越糊涂了！！

到底要直接执行宏还是超级链接？？

		自动登录	找回密码
密码			注册