Excelファイル内の検索マクロがエラーになってしまいますので、その解

質問

Excelファイル内の検索マクロがエラーになってしまいますので、その解決方法を教えて戴きたいと思います。
（ExcelのVer.はＰＣによって異なり2002と2003です）

現在３つのExcelシートがありまして、内訳は
・検索.xls　：　検索文字列入力用、マクロ実行用
・文字列が含まれない.xls　：　データベース（検索文字列が含まれない）
・文字列が含まれる.xls　：　データベース（検索文字列が含まれる）
となっております。
（デバッグの為にデータベースは意図的に作成しております）

ここで『検索.xls』のマクロで以下のように作成をしてみました。

Sub 検索()

Dim SearchWord As String

Workbooks("検索.xls").Activate
SearchWord = Worksheets("Sheet1").Cells(1, 1)　' 検索.xlsのSheet1のA1に検索文字入力

Workbooks.Open Filename:="D:\文字列が含まれない.xls"
Windows("文字列が含まれない.xls").Activate
Cells.Find(What:=SearchWord).Activate

Workbooks.Open Filename:="D:\文字列が含まれる.xls"
Windows("文字列が含まれる.xls").Activate
Cells.Find(What:=SearchWord).Activate

End Sub

しかし、このマクロを実行しますと『文字列が含まれない.xls』の処理でエラーになってしまいます。

この『文字列が含まれない.xls』の処理をコメントアウトしますと『文字列が含まれる.xls』の処理はちゃんと実行してくれますので、データベースに検索文字が無かった場合の処理のさせかたが問題だとは思うのですけど、ネット検索をしても、上手なキーワードが思い浮かばずに欲しい情報がヒットしてくれません。

なにか単純な問題だと思うのですけれども、Excelにお詳しいかたがいらっしゃいましたら、回避策を教えて戴きたいと思います。

回答No.1

Koba5 · ベストアンサー

kadunoさん　

下記、URLを参考にしたらどうでしょうか？
http://excelvba.pc-users.net/fol7/7_1.html

※例
Set Obj = Worksheets("Sheet1").Cells.Find("りんご")
If Obj Is Nothing Then　<-------------------このように存在チェック！！
MsgBox "りんごは見つかりませんでした。"
Else
lngYLine = Worksheets("Sheet1").Cells.Find("りんご").Row
intXLine = Worksheets("Sheet1").Cells.Find("りんご").Column
MsgBox "りんごは、" + CStr(lngYLine) + "行目の" _
+ CStr(intXLine) + "列目にあります"
End If

お礼

ありがとうございます。

私もネット検索でIf文まではたどり着いたのですけど、それも動いてくれませんで…

結局、戴きました例を参考に

Workbooks.Open Filename:="D:\文字列が含まれない.xls"
Windows("文字列が含まれない.xls").Activate
Set Obj = Cells.Find(What:=SearchWord)
If Obj Is Nothing Then
MsgBox "見つかりませんでした"
Else
Cells.Find(What:=SearchWord).Activate
End If

としたら動いてくれました。