作者：乔山办公网日期：
返回目录：excel表格制作
引用已定义的宏:
Sub NowToolbar()
Dim arr As Variant
Dim id As Variant
Dim i As Integer
Dim Toolbar As CommandBar
On Error Resume Next
Application.CommandBars("MyToolbar").Delete
Application.CommandBars("MyToolbar").Name = "三星方案配置工具栏"
arr = Array("选择修改模版", "设置方案项目", "审核", "保存方案到本地", "另存e799bee5baa6e58685e5aeb9330为", "退出")
arr1 = Array("选择修改模版宏名", "设置方案项目宏名", "审核宏名", "保存方案到本地宏名", "另存为宏名", "退出宏名")
id = Array(9893, 284, 9590, 9614, 707, 986)
Set Toolbar = Application.CommandBars.Add("MyToolbar", msoBarTop)
With Toolbar
.Protection = msoBarNoResize
.Visible = True
For i = 0 To 5
With .Controls.Add(Type:=msoControlButton)
.Caption = arr(i)
.OnAction = arr1(i)
.FaceId = id(i)
.BeginGroup = True
.Style = msoButtonIconAndCaptionBelow
End With
Next
End With
Set Toolbar = Nothing
End Sub
功能区选项卡的名称VBA好像不能进行修改。
'主菜单上添加自定义按钮抄
Sub addbtn()
Set myMenu = Application.CommandBars("worksheet menu bar")
Set Button = myMenu.Controls.Add(Type:=msoControlButton)
Button.Caption = "按钮" '按钮上的文字，填写你需要的
Button.Style = msoButtonIconAndCaption
Button.FaceId = FaceId '按钮图标,数字比袭如8，系统存在的
Button.OnAction = "OnAction" '按钮执行的宏名，填写你自己编写的宏的zd宏名
End Sub
Sub test()
Dim str1$
str1 = InputBox("请输入度要查找知的姓名道", "姓名查找")
If str1 = "" Then Exit Sub
i = Cells.Find(str1).Row
Rows(i).Interior.ColorIndex = 6
End Sub
运行此代码专得到你要的结果属
1、工具-->自定义-->命令-->新菜单版-->将右边的“新菜单”拖到EXCEL菜单上产生菜单（可自命名）
2、将在左边选择“宏”-->右边选择“自定义按钮”拖到“新菜单”下（可自命名)
3、然后指定菜单要运行权的vba过程