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 = .Controls.Add(Type:=msoControlButton)
With mysubmenuitem
.Caption = mycaption
.onaction = myonaction
.BeginGroup = True
End With
End Sub
调试的时候系统弹出“参数不可选”的对话框，对象是前面的“call 子菜单”，这到底是因为什么？

Answer 1

子菜单这个函数需要两个参数，第一个是显示的名称，第二个是按钮指定的宏名称，也就是点击按钮要执行的宏名称。
你缺少第二个参数。

追问

不是有myonaction As String这个了吗？这个不是第二个参数吗？

追答

调用的时候需要两个，Call 子菜单("登录") 这样只有一个参数而已，第二个参数没有。

追问

那么能请问一下怎么改吗？

追答

这个就要你自己改了。
你设置一个按钮，本意就是要实现一个功能嘛。要实现功能就得写代码实现啊，总不能凭空用意念实现是不是？

追问

好吧，谢谢啦~