VBA 自定义Add-in

1. 通过下面的链接下载工具：OfficeCustomUIEditorFiles

    VBA Ribbon - Microsoft Download

2.将上面下载的ZIP文件解压缩后，运行其中的 “CustomUIEditor.exe”，
   打开事先准备好的.xlsm文件，例如：self.xlsm。

    2-1.点击“Insert”，选择“Office 2007 Custom UI Part”，生成“customUI.xml”。

    2-2.点击“Insert”，选择“Sample XML”下的“Custom Tab”。

    2-3.点击对号图标的“Validate”按钮，检查修改的XML文件是否正确。

           例如：

    2-4.保存后退出。

3.打开self.xlsm文件，新建标准模块，插入回调函数。
   例如：

'Callback for btnSave onAction
Sub sbSave(control As IRibbonControl)
    Dim sFirstSheetName As String
    Dim bFirstSheetFlg As Boolean
    Dim ws As Worksheet
    
    
    bFirstSheetFlg = False
    For Each ws In ActiveWorkbook.Worksheets
        If bFirstSheetFlg = False And ws.Visible = True Then
            sFirstSheetName = ws.Name
            bFirstSheetFlg = True
        End If
        
        If ws.Visible = xlSheetVisible Then
            ws.Activate
            ActiveSheet.Range("A1").Select
        End If
    Next
    
    Sheets(sFirstSheetName).Select
    ActiveWorkbook.Save
End Sub

4.将“self.xlsm”另存为扩展名为“.xlam”到
   默认Add-in路径“C:\Users\用户名\AppData\Roaming\Microsoft\AddIns”下，
   选择“开发”TAB，再选择“Excel Add-In”，勾选Self，“ToolBox”TAB被显示出来，就可以使用啦。
   如下图：