Excel-VBA 検索でヒットしなかったらエラーになるので


そうか、、Searchで検索値がないとエラーでとまるのね。

なので、

 Dim strs
 Dim FoundCell As Range ''またはバリアント型(Variant)とする
Set FoundCell = Range("B1").CurrentRegion.Find(What:=Strs)

If FoundCell Is Nothing Then
MsgBox "検索値 " & Strs & " は、ありませんでした。", vbExclamation
Else
FoundCell.Select
End If

しかし、くりかえすと、エラーになる場合もあるので、
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
の引数はあんまり省略しないほうがいいらしい。

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック

  • レイバン サングラス

    Excerpt: Excel-VBA 検索でヒットしなかったらエラーになるので へぽ~仕事時々ひとりごと/ウェブリブログ Weblog: レイバン サングラス racked: 2013-07-05 19:20
  • プラダ メンズ

    Excerpt: Excel-VBA 検索でヒットしなかったらエラーになるので へぽ~仕事時々ひとりごと/ウェブリブログ Weblog: プラダ メンズ racked: 2013-07-07 04:08
  • プラダ トート

    Excerpt: Excel-VBA 検索でヒットしなかったらエラーになるので へぽ~仕事時々ひとりごと/ウェブリブログ Weblog: プラダ トート racked: 2013-07-07 07:24