1. はじめに

ＡＲアドバンストテクノロジ株式会社（ＡＲＩ）の鈴木タクヤです。

今回はExcelフィルタリングツールのソースコード解説第2回です。

（ツールの詳細については以下の記事を、「Excelフィルタリングツール解説シリーズ」タグの記事一覧については以下の記事下部「5. 解説記事のリンク」をご参照ください。）

解説第1回 は中級者向けのマクロ高速化についての記事でしたが、今回からは初心者向け。第2回のテーマはExcelのマクロで避けては通れない「Subプロシージャ」です。

2. Subプロシージャとは

Subプロシージャとは、「Sub」と「End Sub」で挟まれた部分のことです。マクロの処理内容は、この中に記述されます。

上の画像は「マクロの記録」機能で、①A1セルを選択し、②「a」を入力し、③A1セルを選択し、④コピーし、⑤B2セルを選択し。⑥ペーストする、という操作を記録したものです。

「マクロの記録」について知らない方もいると思いますが、これだけでも簡単な自動化ツールが作れて、VBAの学習にも使えるので、本記事のおまけとして最後に紹介します。

Excelフィルタリングツールにおいては、
exeCommonProc()
copyHeader()
filter()
clearFilter()
activateSheet(ByVal sheetName As String, ByVal wb As Workbook)
showFormatErrorMessage(ByVal NoFromTheBeginning As Integer)
endMacro()
という7つのSubプロシージャが存在します。厳密には括弧の前までがSubプロシージャ名で、括弧の中はSubプロシージャを呼び出す際の引数¹です。

Sub プロシージャ名(引数)
    ～何かしらの処理～
End Sub

という書き方になります。
引数については 次回の解説第3回 にて解説します。

ちなみにSubプロシージャを別のSubプロシージャなどから呼び出す時は、以下のように記述します。

Subプロシージャの呼び出し方

Call プロシージャ名　　　　　'引数がない場合
Call プロシージャ名(引数)　　'引数がある場合

Call は省略可能ですが、その場合は引数を括弧で囲みません。Excelフィルタリングツールでは、以下のような呼び出しの記述が登場します。

Excelフィルタリングツールより抜粋

（前略）
 '対象シートの存在確認/活性化
    Call activateSheet(targetSheetName, targetBook)
（中略）
 'マクロ終了処理の呼び出し
    Call endMacro
（後略）

3. ExcelフィルタリングツールにおけるSubプロシージャの役割

3-1 exeCommonProc

「copyHeader」「clearFilter」から呼ばれる共通処理について記述されたSubプロシージャです。「filter」からも間接的に呼ばれます。（名前はexecute Common Procedure のつもり）

第1回 で紹介した「処理高速化のおまじない」の後は、主にフィルタリング対象シートに対する情報をツールに入力されたセルの値から読み取り、 対象ファイルが開いていなければ開き、セルの入力内容に誤りがないか、各種フォーマットチェックを実行します。

そう、実は対象ファイルを開いていなくても、ツールの処理を実行することができます！
ツールの初回実行時は対象シート名や表見出しの両端セルの指定を空白セルのまま「処理中ポインタ解除」以外のマクロ実行ボタン押下で、対象ファイルを開くという裏ワザが使えます。

3-2 copyHeader

「表見出しのコピー」ボタンに割当てた、フィルタリング対象の表見出しをツール側にコピーするSubプロシージャです。

「exeCommonProc」を呼び出した後、表見出しのリセットのためにシートの7行目から10行目を削除します。その後指定された情報に基づき、表見出しをコピーします。

3-3 filter

「フィルタリング」ボタンに割当てた、このツールの肝である、フィルターを適用するためのSubプロシージャです。

後述の「clearFilter」を呼び出した後、二重の forループ処理 で、指定されたフィルター抽出条件を配列に格納し、AutoFilterメソッドに配列を渡す処理を繰り返します。

ループ処理 や配列等についても、この解説記事シリーズで取り上げる予定です。

3-4 clearFilter

「フィルタのクリア」ボタンに割当てた、対象の表を含むシートのフィルターを解除するためのSubプロシージャです。「filter」の処理冒頭にも呼び出されます。

対象の表を含むシートがフィルタリング済みの場合はフィルターを解除し、「filter」から間接的に呼び出されている場合には処理を継続、「フィルタのクリア」ボタン押下で呼び出されている場合には処理を終了するために後述の「endMacro」を呼び出します。

3-5 endMacro

ソースコードに登場する順番は前後しますが、「処理中ポインタ解除」ボタンに割当てた、事後処理のためのSubプロシージャです。

こちらは 第1回 の「4. 注意点」で紹介したものです。マクロの処理完了後や、エラーで処理を中止した場合に「処理高速化のおまじない解除」を呼び出します。ボタンの登録は、ソースコード内でキャッチできなかった実行時エラーで処理が中断した場合に「処理高速化のおまじない解除」を実行するためのものです。

3-6 activateSheet

ここからはエラー対処用のSubプロシージャです。

「activateSheet」は「exeCommonProc」から呼ばれます。 指定されたワークブック に、 指定された文字列 と名前が一致するシートが存在すれば当該シートを活性化し、存在しなければ以下のようなエラーメッセージを表示し、「endMacro」を呼び出します。マクロ名の後の(ByVal sheetName As String, ByVal wb As Workbook)の部分が引数で、sheetNameが 指定された文字列、wbが 指定されたワークブック を表します。

3-7 showFormatErrorMessage

こちらは「checkFormat」というFunctionプロシージャから呼ばれるSubプロシージャです。

checkFormat？何なん？という顔をされたそこのあなた。その反応が正解です。こちらについては解説第3回（Functionプロシージャ編、Comming Soon!）で解説予定です。

指定されたセル番地を表す文字列のフォーマットチェックがNGだった場合、以下のエラーメッセージを表示します。マクロ名の後の(ByVal NoFromTheBeginning As Integer)の部分が引数で、NoFromTheBeginningはセル番地を表す文字列の 先頭から何文字目 でエラーとなったかを表します。
（以下のキャプチャでは NoFromTheBeginning = 3）