Question

怎样在EXCEL中创建自定义菜单 vb源代码

Answer 1

新建工具栏实例
Sub 新建工具栏()
Application.CommandBars.Add(Name:="我的工具栏").Visible = True '新建一个自定义工具栏，名为我的工具栏，并可见。
Application.CommandBars("我的工具栏").Controls.Add Type:=msoControlButton, ID:=3, Before:=1 '添加保存按钮，在第一个位置
Application.CommandBars("我的工具栏").Controls.Add Type:=msoControlButton, ID:=1849, Before:=2 '添加查找按钮，在第二个位置
Application.CommandBars("我的工具栏").Controls.Add Type:=msoControlButton, ID:=295, Before:=3 '添加插入单元格按钮
Application.CommandBars("我的工具栏").Controls.Add Type:=msoControlButton, ID:=395, Before:=4 '添加货币样式按钮
End Sub

Answer 2

Sub 创建自定义菜单()
Dim aa$, app$
aa = InputBox("输入新菜单名称")
If aa = "" Then Exit Sub
Application.CommandBars.Add(Name:=aa).Visible = True
End Sub