検索編-エクセルのＶＢＡ集

---

検索編

完全一致で検索して一致するもののセルを表示するには？

'A列で「文字」というキーワードを完全一致で探し、セルのアドレスをダイアログで表示します。
Sub 文字を検索する1()
　　　　Dim R As Range
　　　　Set R = Range("A:A").Find("文字", LookAt:=xlWhole)
　　　　If R Is Nothing Then
　　　　　　　　MsgBox "見つかりませんでした"
　　　　Else
　　　　　　　　MsgBox R.Address & "にありました"
　　　　End If
End Sub

完全一致で検索して一致するものを色表示するには？

'A列で「文字」というキーワードを完全一致で探し、見つかったもの全てを赤色にします。
Sub 文字を検索する2()
　　　　Dim R As Range, F As String
　　　　Set R = Range("A:A").Find("文字", LookAt:=xlWhole)
　　　　If Not R Is Nothing Then
　　　　　　　　F = R.Address
　　　　　　　　Do
　　　　　　　　　　　　R.Font.ColorIndex = 3
　　　　　　　　　　　　Set R = Range("A:A").FindNext(R)
　　　　　　　　Loop Until F = R.Address
　　　　End If
End Sub

コメントにキーワードが含まれるセルを表示するには？

'セル全体で「文字」というキーワードが含まれるコメントを探し、ダイアログで表示します。
Sub コメントの文字を検索する()
　　　　Dim R As Range
　　　　Set R = Cells.Find("文字", LookIn:=xlComments, LookAt:=xlPart)
　　　　If R Is Nothing Then
　　　　　　　　MsgBox "見つかりませんでした"
　　　　Else
　　　　　　　　MsgBox R.Address & "にありました"
　　　　End If
End Sub

ページトップ

---