Findメソッド
検索範囲.Find
セルを検索するにはFindメソッドを使います。引数Whatに検索語を指定します。
注意したいのは、「見つからなかった」ときです。Findは、検索値が見つからなかったときにNothingという特別な値を返します。返り値がNothingかどうかを判定するときは、＝」演算子ではなく「Is」演算子を使います。
右のサンプルは、FoundCellというオブジェクト型の変数を用意し、検索結果を代入します。オブジェクト型の変数にオブジェクトを格納するときは、Setステートメントを使います。次に、FoundCellに代入した結果がNothingかどうかをIf文で判定し、見つかった場合だけ、セルのアドレスを表示します。
B列で「★」を検索して該当セルを表示する
Sub Sample()
Dim FoundCell As Range
Set FoundCell = Range(“B:B”).Find(What:=”★”)
If FoundCell Is Nothing Then
MsgBox “見つかりませんでした。”
Else
Msgbox FoundCell.Address & ”セルにありました。”
End If
End Sub
実行結果
IT開発関連書とビジネス書が豊富な翔泳社の通販『SEshop』
dポイントがどんどんたまる【d払いポイントGETモール】
業界最安値宣言！高性能・低価格のパソコン通販は【UsedFun】
リラクゼーションをお得に体験!ご予約はEPARKで!
【じゃらん】国内25,000軒の宿をネットで予約OK！2％ポイント還元！
【早い者勝ち！】.com／.net／.jp ドメイン取るならお名前.com
