VBA 見つからなかった時の処理

VBAで検索した文字が見つかったら処理をしますが、
見つからなかったらエラーになります。
見つからなかった場合に何もしない様に変えていただけないでしょうか？

Sheets("Sheet3").Range("A1") = _
Sheets("Sheet1").Cells.Find("あああ").Offset(1, 0)

No.2 ベストアンサー 回答者： mu2011 回答日時： 2011/09/03 13:15

NO1です。

前回答では見つかなかったらマクロ終了としましたが、当該マクロを続行させる場合の例です。

Set wk = Sheets("Sheet1").Cells.Find("あああ")
If Not wk Is Nothing Then
Sheets("Sheet3").Range("A1") = wk.Offset(1, 0)
End If
～以下継続

この回答へのお礼

ありがとうございます、バッチリです。
解決しました。

お礼日時：2011/09/03 14:43

No.3 回答者： imogasi 回答日時： 2011/09/03 13:55

こんなところへ質問する前に、Ｇｏｏｇｌｅででも「Ｆｉｎｄ　ＶＢＡ」などで照会すれば、沢山記事が出ますので勉強してからにすべきでしょう。

http://officetanaka.net/excel/vba/cell/cell11.htm
ＶＢＡをやるならマクロの記録、ＷＥＢ照会、手元のＶＢＡ書籍の記述参照はまず心がけなけばならないでしょう。
＞Findメソッドは、引数Whatに指定した検索値が見つかった場合は、見つかったセル(Rangeオブジェクト)を返します。ただし、見つからなかった場合はNothingという特別な状態を返します
これを検知します。
ーー
・外に該当が複数ありえる場合は、ＦｉｎｄＮｅｘｔを使う
・該当の最後まで検索されて後は、最初の該当分のセルに戻る。
ことを体験すること。後者の検知で検索は終わることになります。
＞Sheets("Sheet1").Cells.Find("あああ").Offset(1, 0)
Ｏｆｆｓｅｔ利用は、まず該当のデータがあるセルをとらえて、その後次の行に記述したほうが良いと思う。
初心者の場合は余り複数のことを複合化した記述はしないほうが良いでしょう。

No.1 回答者： mu2011 回答日時： 2011/09/03 13:03

一例です。

Set wk = Sheets("Sheet1").Cells.Find("あああ")
If wk Is Nothing Then Exit Sub
Sheets("Sheet3").Range("A1") = wk.Offset(1, 0)