【実務・中級編】プロシージャの「引数」を省略可能にする：Optionalキーワードで柔軟なツール設計を実現する – Excel VBA解析バイブル

業務自動化の最前線で戦う諸君、今日もスパゲッティコードと格闘しているだろうか。

「このツール、機能は同じだけど保存先だけ変えたいんだよね」
現場からそんな要求が飛んできたとき、君ならどうする？ 既存のプロシージャをコピー＆ペーストして、一部だけ書き換えた「似て非なる関数」を量産してはいないか。それはエンジニアとして最も恥ずべき、「保守性の放棄」である。

今回は、プロシージャの汎用性を劇的に高め、一つのコードで多様なユースケースに対応させるための武器、`Optional`（省略可能引数）について語る。単なる文法の説明ではない。プロの現場で「バグを呼ばない、壊れない」ツールを設計するための極限の知見を叩き込む。

—

1. なぜ「引数を省略可能にする」必要があるのか

優れたコードの条件は、「DRY (Don’t Repeat Yourself) = 同じことを繰り返さない」ことにある。

例えば、ログ出力関数を考えてみよう。

• 通常は「処理完了」とだけ出したい。
• しかし、異常時には「エラー詳細」や「出力先パス」も渡したい。

これを引数の数ごとに別関数にしていたら、ログのフォーマットが変わるたびに全ての関数を修正する羽目になる。`Optional`を使いこなせば、「インターフェース（呼び出し方）は柔軟に、ロジック（中身）は堅牢に」保つことができる。

—

2. Optionalの真髄：デフォルト値とIsMissingの使い分け

`Optional`を使う際、初心者が陥る罠が二つある。「初期値の未定義」と「型判定のミス」だ。

基本構文とデフォルト値の指定

引数を省略可能にするには、引数名の前に `Optional` を付与する。この時、必ずデフォルト値を設定することを強く推奨する。

‘ 悪い例：デフォルト値がないため、数値型なら0、文字列なら””が入ってしまう
Sub ProcessData(Optional targetDate As Date)

‘ 良い例：デフォルト値が明示されており、意図しない挙動を防げる
Sub ProcessData(Optional targetDate As Date = #1/1/2023#)

IsMissing関数：Variant型の特権

もし「引数が渡されたかどうか」でロジックを厳密に分岐させたいなら、引数の型を `Variant` にし、`IsMissing` 関数を使用する。これはオブジェクトのライフサイクルを制御する上で非常に重要だ。

—

3. 実戦投入：ファイル・DB連携を見据えた堅牢なプロダクションコード

プロの現場で使える「汎用データ出力プロシージャ」の例を見てみよう。
このコードは、ファイルパスを省略すればデスクトップに、指定すればその場所に保存する。さらに、ファイル形式の指定も任意だ。

”’

”’ 出力対象のセル範囲 ”’ 保存先のフルパス（省略時はデスクトップ） ”’ 上書き許可フラグ（デフォルトはFalse） Public Sub ExportData( _
ByVal TargetRange As Range, _
Optional ByVal FilePath As String = “”, _
Optional ByVal OverWrite As Boolean = False)

Dim finalPath As String
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ — 引数解析とバリデーション —
‘ パスが省略された場合の動的デフォルト値設定
If FilePath = “” Then
finalPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\Export_” & Format(Now, “yyyymmdd_hhmmss”) & “.xlsx”
Else
finalPath = FilePath
End If

‘ — 堅牢性の確保：ファイル存在チェック —
If fso.FileExists(finalPath) And Not OverWrite Then
MsgBox “指定されたファイルは既に存在します。処理を中断します。” & vbCrLf & finalPath, vbCritical
Exit Sub
End If

‘ — 出力ロジック（本質的処理） —
On Error GoTo ErrorHandler
TargetRange.Copy

Dim newBook As Workbook
Set newBook = Workbooks.Add
newBook.Sheets(1).Paste Destination:=newBook.Sheets(1).Range(“A1”)

‘ アラートを抑制して保存
Application.DisplayAlerts = False
newBook.SaveAs Filename:=finalPath
newBook.Close SaveChanges:=False
Application.DisplayAlerts = True

Debug.Print “Success: ” & finalPath
GoTo CleanUp

ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical

CleanUp:
Set fso = Nothing
Set newBook = Nothing
End Sub

このコードの「設計思想」

1. デフォルト値の動的生成: `Optional` の宣言部で定数を持たせるだけでなく、プロシージャ内部で `If FilePath = “”` による動的なデフォルト値（デスクトップパス）生成を行っている。これが「気の利いた」ツール設計だ。
2. 型安全性: `TargetRange` は必須（Required）、それ以外は任意。「何がなければ動かないか」を型で強制するのがアーキテクトの仕事だ。
3. 副作用の最小化: `Application.DisplayAlerts` の制御など、呼び出し側の環境を汚さない配慮を徹底している。

—

4. データベース連携における注意点：Nullとの闘い

DB（SQL ServerやAccess）と連携する場合、`Optional` はさらに重要になる。
DBのフィールドには `Null` が存在するが、VBAの `String` や `Long` は `Null` を許容しない。

‘ DB検索用プロシージャ
‘ 検索条件が省略された場合は全件取得する設計
Public Sub FetchRecords(Optional ByVal CategoryID As Variant = Null)
Dim sql As String
sql = “SELECT FROM Products”

‘ IsNull関数で引数の有無を判定
If Not IsNull(CategoryID) Then
sql = sql & ” WHERE CategoryID = ” & CLng(CategoryID)
End If

‘ 以降、ADODBによる接続処理…
End Sub

DB連携では、`Optional` 引数の型を `Variant` にし、初期値を `Null` に設定する。これが「データが存在しないこと」と「引数が省略されたこと」を同義に扱うための定石だ。

—

5. 伝説のアーキテクトからの忠告

`Optional` は強力だが、使いすぎると関数のシグネチャ（引数の並び）が肥大化し、逆に可読性を損なう。

設計の指針：

• 引数が5を超えたら、そのプロシージャの責務が多すぎないか疑え。
• 引数が多い場合は、専用の「設定クラス（Class Module）」を作成し、そのオブジェクト一つを引数として渡すことを検討せよ。

君が書く一行の `Optional` が、将来の保守担当者（あるいは3ヶ月後の君自身）を救うか、あるいは混乱の渦に叩き落とすかを決める。

「動けばいい」だけのコードは卒業だ。「変更に強く、意図が明確な」プロシージャ設計を常に意識せよ。

—

次回の講義：
「クラスモジュールによるカプセル化：なぜグローバル変数は悪なのか」を予定している。さらなる高みを目指す者は、心して待て。