プロシージャの「引数」を省略可能にする：Optionalキーワードで柔軟なツール設計を実現する
皆さん、こんにちは！Excel VBAの世界へようこそ。マクロの記録から一歩踏み出し、自分でコードを書いてみよう！という意欲に燃えている皆さんを、温かく、そして時には厳しく（笑）サポートしていきたいと思っています。
今日は、VBAプログラミングにおいて、プロシージャ（SubやFunctionのことですね）の「引数」を、呼び出す側が指定したり、しなかったりできるようにする、とっても便利なテクニックをご紹介します。「Optional」キーワードという魔法のようなものを使うのですが、これを知っているだけで、皆さんが作るVBAツールは格段に使いやすく、汎用性の高いものになりますよ。
そもそも「引数」って何だっけ？
まずは基本の基本からおさらいしましょう。プロシージャを呼び出すとき、そのプロシージャに「情報」を渡したい場合がありますよね。例えば、「このセルの値を変更してほしい」とか、「この条件でデータを集計してほしい」といった具合です。
その「情報」のことを「引数（ひきすう）」と呼びます。プロシージャの定義で、カッコの中に変数を指定することで、引数を受け取ることができます。
例えば、こんなコードがあったとしましょう。
Sub Greeting(name As String)
MsgBox “こんにちは、” & name & “さん！”
End Sub
この `Greeting` プロシージャは、`name` という引数（文字列型）を受け取ります。呼び出すときは、このように名前を指定してあげます。
Sub CallGreeting()
Greeting “太郎” ‘ “こんにちは、太郎さん！” と表示される
End Sub
ここで、もし `name` を指定せずに `Greeting` とだけ呼び出そうとすると、VBAは「あれ？名前が足りないよ！」とエラーになってしまいます。
「Optional」キーワードで、引数を「なくてもいいよ」にする！
さて、ここで今日の主役、「Optional」キーワードの登場です。このキーワードを引数の前に付けてあげると、その引数は「省略可能」になります。つまり、呼び出す側で値を指定しても良いし、指定しなくても良い、ということになるんです。
先ほどの `Greeting` プロシージャを `Optional` を使って書き換えてみましょう。
Sub GreetingOptional(Optional name As String = “ゲスト”)
MsgBox “こんにちは、” & name & “さん！”
End Sub
ポイントは2つです。
1. `Optional` キーワードの追加: `name` の前に `Optional` を付けました。
2. 初期値の設定: `= “ゲスト”` のように、省略された場合に使うデフォルト値（初期値）を設定しました。これは必須ではありませんが、設定しておくと非常に便利です。
この `GreetingOptional` プロシージャを呼び出す場合、いくつかのパターンが考えられます。
パターン1：引数を指定して呼び出す
Sub CallGreetingOptional1()
GreetingOptional “花子” ‘ “こんにちは、花子さん！” と表示される
End Sub
これは、先ほどの `Greeting` プロシージャと同じように使えますね。
パターン2：引数を省略して呼び出す
Sub CallGreetingOptional2()
GreetingOptional ‘ “こんにちは、ゲストさん！” と表示される
End Sub
なんと！引数を指定しなくてもエラーにならず、あらかじめ設定しておいたデフォルト値「ゲスト」が使われました。これが `Optional` の力です！
なぜ「Optional」が重要なのか？ 柔軟なツール設計への道
「へぇ、便利そうだけど、なんでわざわざ省略できるようにするんだろう？」と思ったあなた、鋭い！
`Optional` キーワードを使うことで、以下のようなメリットがあり、より洗練された、汎用性の高いVBAツールを作成できるようになります。
- ユーザーの利便性向上: ユーザーが毎回同じ値を入力する必要がなくなり、操作が簡単になります。特に、よく使う設定値などはデフォルト値にしておくと喜ばれます。
- コードの簡潔化: 呼び出し元で、引数を渡す場合と渡さない場合で、異なるプロシージャを用意する必要がなくなります。一つのプロシージャで、複数のシナリオに対応できるのです。
- 保守性の向上: 後から機能追加や変更が必要になったときに、引数が `Optional` であれば、既存の呼び出しコードを修正せずに済む場合があります。
例えば、ファイル操作を行うマクロを考えてみましょう。特定のフォルダにあるファイルを処理する際、通常はフォルダパスを引数で渡すことが多いですが、もし「いつも使う決まったフォルダ」があるなら、それをデフォルト値にしておけば、ユーザーはフォルダパスを指定する手間を省けます。
実践！ファイル操作を `Optional` で柔軟に
ここでは、指定されたフォルダ内のテキストファイル（.txt）をすべて読み込み、そのファイル名を表示するVBAコードを例に見てみましょう。デフォルトでは、カレント（現在開いているブックと同じ場所）のフォルダを対象とします。
Sub ReadTextFiles(Optional targetFolderPath As String = “”)
Dim folderPath As String
Dim fileName As String
Dim fileList As Variant
Dim i As Long
‘ デフォルトのフォルダパスを設定
If targetFolderPath = “” Then
‘ カレントフォルダ（VBAコードが保存されている場所）を指定
folderPath = Application.Path ‘ Application.Path はExcelファイルのあるパスを返す
‘ または、ActiveWorkbook.Path でも同じ
Else
‘ 指定されたフォルダパスを使用
folderPath = targetFolderPath
End If
‘ フォルダパスの末尾に “\” がない場合は追加
If Right(folderPath, 1) <> “\” Then
folderPath = folderPath & “\”
End If
‘ 指定されたフォルダにファイルが存在するか確認
If Dir(folderPath & “.txt”) = “” Then
MsgBox “指定されたフォルダにテキストファイルが見つかりませんでした。”, vbInformation, “ファイルなし”
Exit Sub
End If
‘ Dir関数でファイルリストを取得（最初のファイル）
fileName = Dir(folderPath & “.txt”)
‘ ファイルが見つかる限りループ
Do While fileName <> “”
‘ ファイル名を表示（ここではMsgBoxで、実際はログファイルに書き出すなど応用可能）
Debug.Print fileName ‘ イミディエイトウィンドウに表示
‘ MsgBox “処理対象ファイル: ” & fileName ‘ 必要であればMsgBoxで確認
‘ 次のテキストファイルを取得
fileName = Dir
Loop
MsgBox “テキストファイルの読み込み処理が完了しました。詳細はイミディエイトウィンドウをご確認ください。”, vbInformation, “完了”
End Sub
‘ — 呼び出し例 —
‘ 例1: デフォルトのフォルダ（カレントフォルダ）を対象にする
Sub CallReadTextFilesDefault()
MsgBox “カレントフォルダのテキストファイルを読み込みます。”, vbInformation, “開始”
ReadTextFiles
End Sub
‘ 例2: 特定のフォルダを指定して対象にする
Sub CallReadTextFilesSpecificFolder()
Dim myFolderPath As String
myFolderPath = “C:\Users\YourUserName\Documents\MyTextFiles” ‘ ここをご自身のフォルダパスに変更してください
‘ もしフォルダが存在しない場合はエラーになるので、事前に作成しておくか、存在チェックを追加するとより丁寧です。
MsgBox “指定フォルダ (” & myFolderPath & “) のテキストファイルを読み込みます。”, vbInformation, “開始”
ReadTextFiles myFolderPath
End Sub
‘ 例3: 空文字を指定して、デフォルト動作を明示的に呼び出す
Sub CallReadTextFilesExplicitDefault()
MsgBox “デフォルトフォルダを明示的に指定して読み込みます。”, vbInformation, “開始”
ReadTextFiles “” ‘ 空文字を指定することで、デフォルト値が使われることを明示
End Sub
コードのポイント解説
- `Optional targetFolderPath As String = “”`: `targetFolderPath` という引数を `Optional` にし、デフォルト値を空文字列 `””` としました。
- `If targetFolderPath = “” Then … Else … End If`: 引数が指定されなかった場合（空文字列の場合）は、`Application.Path` でカレントフォルダを取得しています。`Application.Path` は、Excelファイルが保存されているフォルダのパスを返してくれる便利なプロパティです。`ActiveWorkbook.Path` も同様に使えます。
- `folderPath = folderPath & “\”`: フォルダパスの最後に必ず `\` を付けることで、ファイル名との連結が正しく行われるようにしています。
- `Dir(folderPath & “.txt”) = “” Then`: `Dir` 関数は、指定したパターンに一致する最初のファイル名を返します。ファイルが存在しない場合は空文字列 `””` を返します。これを利用して、フォルダ内にファイルがあるかどうかのチェックを行っています。
- `Debug.Print fileName`: VBAには「イミディエイトウィンドウ」というデバッグ用のウィンドウがあります（`Ctrl+G` で表示できます）。ここに `Debug.Print` で出力した内容は、プログラムの実行結果を確認するのに非常に役立ちます。今回の例では、見つかったファイル名をここに表示しています。
陥りやすいエラーと対策
- フォルダパスの末尾の `\` 忘れ: ファイル名と連結する際に、パスの区切り文字 `\` がないと、意図しないファイル名になってしまうことがあります。`If Right(folderPath, 1) <> “\” Then` のようなチェックで対応しましょう。
- 指定したフォルダが存在しない: `targetFolderPath` に存在しないパスを指定すると、`Dir` 関数が正しく動作しなかったり、エラーが発生したりします。実際の運用では、`FileSystemObject` を使ってフォルダの存在チェックを行うと、より堅牢なコードになります。
- `Optional` 引数の型: `Optional` で指定できるのは、Variant型、または特定のデータ型（String, Long, Booleanなど）です。オブジェクト型（Range, Workbookなど）を `Optional` にする場合は、注意が必要です。通常は `Optional obj As Variant` とし、呼び出し側で `If TypeName(obj) = “Object” Then …` のように型をチェックすることが多いです。
まとめ：Optionalキーワードは、あなたのVBAコードに「賢さ」と「優しさ」をもたらす
いかがでしたでしょうか？ `Optional` キーワードを使うことで、プロシージャはより柔軟になり、呼び出す側はより簡単に、そして開発者はより効率的にコードを書くことができるようになります。
今回ご紹介した `Optional` キーワードは、VBAで実用的なツールを作成していく上で、まさに「必須」と言えるテクニックです。ぜひ、皆さんがこれから作成するマクロや関数に積極的に取り入れてみてください。
ここをクリアすれば、Excel VBAの「引数」という概念はバッチリ掴めたも同然ですよ！ 次回は、さらに進んだVBAのテクニックについてお話しできるのを楽しみにしています。
それでは、Happy Coding！
