概要：なぜFindメソッドは「突然」見つからなくなるのか
Excel VBAで特定のデータを検索する際、最も頻繁に使用されるのがRangeオブジェクトのFindメソッドです。しかし、多くの開発者がこのメソッドを「とりあえず検索対象を指定すれば動く便利なツール」として認識しており、その裏側に潜む「引数の仕様」という落とし穴を見落としています。
Findメソッドには多くの引数が存在しますが、これらを省略した場合、VBAは「前回の検索設定」をそのまま引き継ぐという挙動を示します。この「設定の永続性」こそが、実務において不可欠なはずの検索処理を、突如として不安定なものに変えてしまう元凶です。本記事では、Findメソッドの引数省略が引き起こす具体的なトラブルのメカニズムと、堅牢なコードを書くためのプロフェッショナルな作法を徹底解説します。
詳細解説：引数省略という「隠れた罠」の正体
Findメソッドには、LookIn（検索対象）、LookAt（一致形式）、SearchOrder（検索方向）、SearchDirection（検索順位）、MatchCase（大文字小文字の区別）、MatchByte（全角半角の区別）、SearchFormat（書式の有無）といった多くの引数が存在します。
Excel VBAの仕様上、これらの引数を省略した場合、VBAは「前回のFindメソッド実行時に使用された設定」をデフォルト値として再利用します。ここで問題となるのが、前回の実行が「手動操作」による検索であった場合や、別のプロシージャで異なる設定で検索を行っていた場合です。
例えば、前回の検索で「部分一致」かつ「大文字小文字を区別する」という設定が使われていたとします。次に実行するコードで、引数を省略して「完全一致」を期待して検索をかけたとしても、VBAは前回の「部分一致」の設定を引き継いで実行してしまいます。その結果、意図しないセルがヒットしたり、本来見つかるはずのデータが「見つからない（Nothingが返る）」というエラーが発生したりするのです。
特に、ユーザーフォームやアドインなど、複数のモジュールが連携する複雑なシステムにおいては、この挙動は予測不能なバグの温床となります。Findメソッドを使用する際は、原則として「全ての引数を明示的に指定する」ことが、プロフェッショナルなVBA開発における鉄則です。
サンプルコード：安全なFindメソッドの実装パターン
以下に、引数を省略せず、常に意図した通りに動作する堅牢な検索コードのサンプルを提示します。このコードは、Findメソッドの挙動を完全に制御し、予期せぬエラーを未然に防ぎます。
Public Function FindValue(ByVal targetRange As Range, ByVal searchValue As String) As Range
' 引数を全て明示的に指定することで、予期せぬ設定引き継ぎを防止する
Dim foundCell As Range
Set foundCell = targetRange.Find( _
What:=searchValue, _
After:=targetRange.Cells(targetRange.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
MatchByte:=False, _
SearchFormat:=False)
Set FindValue = foundCell
End Function
Sub ExecuteSearch()
Dim ws As Worksheet
Dim searchResult As Range
Set ws = ThisWorkbook.Sheets("Sheet1")
' 検索実行
Set searchResult = FindValue(ws.Range("A:A"), "検索対象データ")
If Not searchResult Is Nothing Then
MsgBox "セル " & searchResult.Address & " で見つかりました。"
Else
MsgBox "データが見つかりませんでした。"
End If
End Sub
このコードの肝は、`After` 引数を含め、すべての引数を明示している点です。特に `After` 引数を `targetRange.Cells(targetRange.Cells.Count)` と指定することで、範囲の最後から検索を開始するように制御し、範囲の先頭から確実に検索を回すための定石を実現しています。
実務アドバイス：Findメソッド使用時の「三つの掟」
実務の現場でVBAを保守する際、Findメソッドのバグをゼロにするために、以下の「三つの掟」を遵守してください。
1. 引数は「面倒がらずにすべて書く」
前述の通り、省略は百害あって一利なしです。`LookAt:=xlWhole` （完全一致）なのか `xlPart` （部分一致）なのか、曖昧なままにしてはいけません。コードの可読性も向上し、後からコードを読んだ同僚や未来の自分が混乱することもありません。
2. 検索結果の「Nothing判定」を怠らない
Findメソッドは、対象が見つからなかった場合に「Nothing」を返します。この状態で `.Address` や `.Value` にアクセスしようとすると、実行時エラーが発生します。必ず `If Not foundCell Is Nothing Then` で判定を行い、見つかった場合のみ処理を進める構造にしてください。
3. 「検索後のカーソル位置」を考慮する
Findメソッドを実行すると、Excelの「検索と置換」ダイアログの設定が書き換わります。これはユーザーにとって混乱を招く可能性があります。大規模なツールを作る場合は、Findメソッドの使用前後の設定を考慮するか、あるいは `Range.Find` ではなく、`Match` 関数や `Dictionary` オブジェクトを用いた検索手法への切り替えを検討することも、プロフェッショナルな判断と言えます。
まとめ：安定したVBA開発のために
Excel VBAにおけるFindメソッドは、非常に強力である反面、その「前回の設定を引き継ぐ」という仕様は、多くの初心者が陥る罠です。しかし、今回解説したように「全引数の明示」と「戻り値のNullチェック」を徹底するだけで、この不確実性は完全に排除できます。
プロフェッショナルな開発者にとって、コードが「動くこと」は通過点に過ぎません。「どのような環境でも、どのような設定状態であっても、意図した通りに正確に動作すること」こそが、堅牢なアプリケーションを構築するための要諦です。
明日からの開発において、Findメソッドを記述するたびに「引数はすべて書いたか？」と自問自答してみてください。その小さなこだわりが、長期間安定して稼働する高品質なVBAツールを生み出す大きな差となります。Excelの仕様を味方につけ、より高度な自動化の世界を目指しましょう。
