シート内データの検索方法その１
Excelシート内に於けるデータ検索は、データを取り扱っている中でしばしば行う事があります。方法、状況としては、色々あると思いますが、今回は、数あるパターンの1パターンを紹介したいと思います。
１ ある指定のセルに検索値を入力する
２ シート内の指定範囲を検索する
３ 検索されたら、そのセルにセレクトする
４ 検索されなかったらメッセージを表示する
それでは、サンプルです。
Dim FoundCell As Variant
With Worksheets(“〇〇”)
Set FoundCell = ActiveSheet.Range(“B1:M1”).Find(Range(“A1”))
If FoundCell Is Nothing Then
MsgBox Range(“A1”) & “は、見つかりません”, vbExclamation
Else
FoundCell.Select
End If
End With
自動化していく中で、役に立つコードになると思います。
検索方法はいろいろな方法がありますので今後紹介していきます。