VBAでFindを使ってセルを検索する
Findメソッドを使用して、指定した条件に当てはまるセルを検索する方法です。
書式は、
Range(探す範囲).Find(探し方)
となります。
探す範囲は、Rangeプロパティを使用して指定します。
探し方の指定には、いろいろなプロパティがあります。こちらのページに詳しくのっています。
例えば、
このような内容で、
Sub test()
Dim mituketa_cell As Range
Set mituketa_cell = ActiveSheet.Range("A1", "E3").Find("f")
If Not mituketa_cell Is Nothing Then
Debug.Print "見つけたセルの行は"; mituketa_cell.Row
Debug.Print "見つけたセルの列は"; mituketa_cell.Column
End If
End Sub
のプログラムを実行すると、
となります。
非常に便利ですが、上のページの説明にあるとおり、省略できるオプションを省略してしまうと、前回操作した（手動で検索したときも含む）オプションを自動的に継続してしまうので、全てのオプションを指定しないと、希望する動作を行わない可能性があります。
