请问Excel VBA为菜单栏添加组或按钮就只能添加在“加载项(Add-In)”命令栏中吗?
想用代码向Excel菜单栏中新建一个命令栏,并且新建一个组,然后在里面添加一个宏按钮,请问是不是按钮只能加在Add-in(加载项)tab里?请问能否给一个最简单最简单的代...
想用代码向Excel菜单栏中新建一个命令栏,并且新建一个组,然后在里面添加一个宏按钮,请问是不是按钮只能加在Add-in(加载项)tab里?请问能否给一个最简单最简单的代码实现?或者能否一步一步来,先随便向菜单栏里面添加一个宏按钮就行,谢谢了,想实现的最终效果就像这样
展开
2个回答
展开全部
按钮不是只能加在Add-in,加载项只是为了让宏能通用到所有的表.而不是只能用在一个表上面
Private Sub auto_open()
Dim mCaidan As Menu
MenuBars(xlWorksheet).Reset
Set mCaidan = MenuBars(xlWorksheet).Menus.Add("常用工具箱")
With mCaidan.MenuItems
.Add "SHEET排序", "SH_px", "3157"
.Add "生成目录", "mulu", 11
End With
End Sub
记得将宏安全性调成低
Private Sub auto_open()
Dim mCaidan As Menu
MenuBars(xlWorksheet).Reset
Set mCaidan = MenuBars(xlWorksheet).Menus.Add("常用工具箱")
With mCaidan.MenuItems
.Add "SHEET排序", "SH_px", "3157"
.Add "生成目录", "mulu", 11
End With
End Sub
记得将宏安全性调成低
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询