マクロを使った検索ツール

マクロを使った検索ツール

下記コードを記載します。
Sub Data_Find()
Dim 検索対象セル As Range
Dim 最初のセル As String
Dim 検索件数 As Long

Cells.Interior.ColorIndex = xlNone

If ActiveCell.Value = "" Then
Exit Sub
End If

Set 対象セル = Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlValues, Lookat:=xlWhole)
'what=検索ワード、After=検索開始位置、LookIn=（xlValues値）、Lookat=（xlWhole完全一致）（xlPart部分一致）
最初のセル = 検索対象セル.Address
Do
検索対象セル.Interior.ColorIndex = 37
検索件数 = 検索件数 + 1

Set 検索対象セル = Cells.FindNext(検索対象セル)
Loop While 検索対象セル.Address

アクティブセルの文字列を検索し、該当するセルに色が付きます。
部分一致、完全一致は、「Lookat」の部分を変更して下さい。

アクティブセルに色をつける

アクティブセルに色をつける

wookbook内に下記コードを記載します。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

そして、色をつけたい範囲の対象セルの条件付書式に下記を記載します。
=OR(CELL("row")=ROW(), CELL("col")=COLUMN())