Excel VBAハイライト検索

Question

私は1つのセルで単語を使用しようとしている、別のシートに移動し、別のセルでその単語を見つける。難しいのは、2番目のシートにはこの言葉がたくさんあるということです。私は、強調表示された単語が青色になっているセルだけが必要です。

私は以下を試しましたが、ループは青い強調表示された単語の上を通って継続し続けます。私は間違って何をしていますか？

Sub TryingIt() 

Dim r As Excel.Range 
Dim strName As String 
Dim strFirstFound As String 

strName = ActiveCell.Text 

Sheets("Waiting For").Select 

Range("A1").Select 

Cells.Find(What:=strName, After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

Set r = ActiveCell 

If r.Interior.color = vbBlue Then 
r.Offset(1, 0).Select 
Else: 
    Do 
    Cells.Find(What:=strName, After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

    Set r = ActiveCell 

    Loop While r.Interior.color <> vbBlue 

r.Offset(1, 0).Select 

End If 

End Sub 

Answer 1

はここに答えます：

あなたは色についてのより具体的なことは注意する必要があります。私の場合、vbBlueだけでなく、RGB(0,176,240)でした。