按钮不是只能加在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
记得将宏安全性调成低
用VBA命令只能加在加载项里,要想实现你截图里的功能,得会XML语言进行RIBBON功能区的编辑...