インテリアハイライトを認識する - エクセル、vba

さて、私はすべてを認識しようとしていますダークブルーのテキスト2で60％の明るさで強調表示され、各値に対して、私の範囲内で真であるところで、セルを右に2スペース= 1にしたいと思います。

Sub findcolor()
Dim cl As Range

For Each cl In Workbooks("Report").Worksheets("sheet1").Range("A1:B10")
If cl.Interior.Pattern = xlSolid And cl.Interior.PatternColorIndex = xlAutomatic And cl.Interior.ThemeColor = xlThemeColorLight2 And cl.Interior.TintAndShade = 0.599993896298105 And cl.Interior.PatternTintAndShade = 0 Then
cl.Offset(0, 2).Value = "1"
End If
Next cl
End Sub

回答：

クリック：
Fill Color ツールバーのアイコンをクリックし、色を選択してください
More Colors サブメニューとカスタムタブから
今度は、選択した色のRGB（赤、緑、青）オブジェクトを構成する3つの値を見ることができます
あなたがしたようにすべての引数を使用する代わりに - 単に 使用 RGB 3つの値を持つオブジェクト

Sub findcolor()
Dim cl As Range
For Each cl In Worksheets("Sheet1").Range("A1:B10")
If cl.Interior.Color = RGB(141, 180, 226) Then
cl.Offset(0, 2).Value = "1"
End If
Next cl
End Sub