Question

Excel vba 中利用模块自定义菜单的编程，求大神找错指点，急急急急急！！！！

Dim mymenuobject As CommandBarPopup
Dim mymenuitem As Object
Dim mysubmenuitem As Object
Public Sub 自定义菜单()
On Error Resume Next
Application.CommandBars(1).Controls("销售管理子系统").Delete
Set mymenuobject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, before:=11, Temporary:=True)
With mymenuobject
.Caption = "销售管理子系统"
.Width = 150
.BeginGroup = True
End With
Call 主菜单("注册")
Call 子菜单("登录", "登录")
Call 子菜单("注销", "注销")
Call 主菜单("系统管理")
Call 子菜单("修改密码", "修改密码")
Call 主菜单("登记")
Call 子菜单("销售记录", "销售记录")
Call 子菜单("退货记录", "退货记录")
Call 主菜单("查询")
Call 子菜单("销售记录", "销售记录")
Call 子菜单("退货记录", "退货记录")
Call 子菜单("库存", "库存")
Call 主菜单("数据分析")
Call 子菜单("分类汇总", "分类汇总")
Call 子菜单("比较分析", "比较分析")
Call 主菜单("输出打印")
Call 子菜单("数据输出", "数据输出")
Call 子菜单("打印", "打印")
Call 主菜单("数据备份及恢复")
Call 子菜单("数据备份", "数据备份")
Call 子菜单("数据恢复", "数据恢复")
End Sub
Public Sub 主菜单(mycaption As String)
Set mymenuitem = mymenuobject.Controls.Add(Type:=msoControlPopup)
With mymenuitem
.Caption = mycaption
.BeginGroup = True
End With
End Sub
Public Sub 子菜单(mycaption As String, myonaction As String)
Set mysubmenuitem = mysubmenuitem.Controls.Add(Type:=msoControlButton)
With mysubmenuitem
.Caption = mycaption
.onaction = myonaction
.BeginGroup = True
End With
End Sub
这个编码的时候没有提示我有问题，可是运行的时候子菜单没有了，就是点击主菜单的时候什么也显示不了。

Answer 1

这有个员工考勤系统，你可以参考一下。应该不是直接用Call调取子程序

追问

请问这个系统在哪儿？我找不到

追答

左边的菜单,你随便点一个,就可以看到代码了.你看下模块1

追问

好的，谢谢~