追加したいんです

質問

お世話になります。
現在以下のようなexcelマクロを使用しています。
このマクロにヒットした文字列の色が変わるように追加するには
どこにどのようなコードを記述したらいいでしょうか？
検索範囲にあたる部分が変化してほしいのですが。。。
現在のマクロです
Sub 検索()
Dim 検索範囲 As Range
Dim 検索完了数 As Integer
Dim 検索回数 As Integer
Dim 検索文字列 As String
Dim 検索結果 As Object
Dim 二週目確認 As String

Set 検索範囲 = Range("A1", Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
検索完了数 = Cells(Rows.Count, 2).End(xlUp).Row

Do
検索回数 = 検索回数 + 1
検索文字列 = Cells(検索回数, 2)
Set 検索結果 = 検索範囲.Find(検索文字列)

If Not 検索結果 Is Nothing Then
二週目確認 = 検索結果.Address
Do
If Cells(検索回数, 3) = "" Then
Cells(検索回数, 3) = 検索結果.Address
Else
Cells(検索回数, 3) = Cells(検索回数, 3) & "," & 検索結果.Address
End If

Set 検索結果 = 検索範囲.FindNext(検索結果)

If 二週目確認 = 検索結果.Address Then
Exit Do
End If
Loop
End If

If 検索回数 = 検索完了数 Then
Exit Do
End If
Loop

Set 検索範囲 = Nothing
Set 検索結果 = Nothing
Columns("C:C").Replace What:="$", Replacement:=""
Range("A1").Select
MsgBox "検索完了"
End Sub

応用が利かずに人に頼ってばかりでだめだとは思うのですが、
取り急ぎ知りたく
投稿させていただきます。
何卒、宜しくお願い致します。

回答No.2

xls88 · ベストアンサー

追加です。
Set 検索範囲 = Range("A1", Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
は
Set 検索範囲 = Range("A1", Cells(Rows.Count, 1).End(xlUp))
で良いはずです。

Findメソッドのヘルプに、参考になるコードが載っています。
一度、読まれたらどうでしょうか。
VBEの画面で、Find文字列の中にキャレット（文字カーソル）を置いてF1キーを押せばヘルプにジャンプします。

お礼

おぉぉぉ～。
ありがとうございます。
参考まで記載していただき感謝です。
よく読んでみますね。
御手数おかけしました。

回答No.1

xls88

例えば
検索結果.Interior.ColorIndex = 6
を
FindNextした後に、入れてやれば良いです。

＃余談ですが
Addressプロパティに、RowAbsolute と ColumnAbsolute という引数があります。
それぞれを、Falseにすれば$マークの付かないセル番地が返されます。
検索結果.Address(False, False)
あるいは
検索結果.Address(0, 0)
としても良いです。
結果、
Columns("C:C").Replace What:="$", Replacement:=""
が不要になります。