アドインソフト

Excel のヘルプでは「アドインは便利なコマンドや機能を Excel に追加するプログラムです」と説明されています
アドインの存在自体は知っている方も多いのですが実際に使ってる方はあまりいないのが現状だと思います
私もなんとなく気になっている存在だったのですが試してみるまでの行動を起こしてませんでした

ブック内に作成するマクロでは別の Excel ファイルから使うことができず不便性を感じることも多々あると思います
アドインの種類には COM アドインという VB や VC などの言語で作成されたものと Excel アドインがありますが
Excel アドインについては上記の問題を解決しさらに登録制であるため起動のたびにセキュリティ確認が表示される煩わしさも
ありません

ここでは作成したマクロを Excel アドインとして登録しそれを利用する方法について説明します
呼び出されるマクロ（sample_macro）がすでに存在することを前提とします
アドインも通常の Excel ファイルとして作成しておき配布するときに配布用に拡張子を .lxa に変更するとよいでしょう

アドインも [ツール] → [マクロ] → [マクロ] から実行することはできますがマクロの一覧には表示されないため直接マクロ名を
入力する必要があります
しかし実際には Excel ファイルからも実行できるという利便性を活かすため実行用のツールボタンまたはメニューを用意するのが
一般的です

メニューを用意するタイミングは Excel を起動するタイミングではなくアドインを使い始めるときであるため記述するプロシージャは
Workbook_AddinInstall となります
まずは ThisWorkBook 内に Workbook_AddinInstall を作成します

Private Sub Workbook_AddinInstall()

    Dim o_cmdbar As CommandBarControl

    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("サンプル").Delete
    Set o_cmdbar = Application.CommandBars("Worksheet Menu Bar").Controls. _
            Add(Type:=msoControlPopup)
    o_cmdbar.Caption = "サンプル"
    With o_cmdbar.Controls.Add(Type:=msoControlButton)
        .Caption = "サンプル１"
        .OnAction = "sample_macro"
    End With

End Sub

メニューの作成を行う際最初にメニューの削除を行います
もしメニューが残っていた場合には、メニューを再構成するために削除して何もない状態から始めるためです
仮にメニューが存在しない場合でも On Error Resume Next があるためメニューの削除が無視されます

またアドインの使用を終了するときにメニューから削除するため ThisWorkBook 内に Workbook_AddinUninstall を作成します

Private Sub Workbook_AddinUninstall()

    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("メニュー").Delete

End Sub

次に作成した VBA プロジェクトを保護します
この作業は自分専用として使うアドインであれば必要ありません

最後にファイルを保存します
通常の Excel ファイルとして保存し配布用にアドインとして保存すると便利かも知れません
ファイルの種類から Microsoft Excel アドインを選択すると保存先は自動的に AddIns フォルダになります

ここまでの作業でアドインは完成となります
アドインの名前は保存したファイル名の .xla を除いた部分の名前となりますのでファイル名もよく考えてつけましょう

続けてアドインを使えるようにするための登録（インストール）を行います

メニューから [ツール] → [アドイン] を選択しアドインダイアログボックスを表示します
アドインの一覧内に登録するアドインが表示されていれば対象アドインの左側にあるボックスをチェックすることで登録したことにな
りますが対象のアドインが表示されていない場合には参照ボタンをクリックして対象アドインの .xla ファイルを選択します

アドインを削除したい場合にはチェックを外せば完了となります
またファイルが削除されている場合にはここの一覧からも削除されます

アドインが正常に登録されていれば Excel のメニューに下図のように表示されアドインの機能を利用できるようになります