rozpoznať zvýraznenie interiéru - excel, vba

Dobre, tak sa snažím rozpoznať všetkozvýraznený textom Tmavo modrý 2 ľahší 60% a pre každú hodnotu, kde je jeho pravda v mojom rozsahu, chcem urobiť bunku 2 medzery napravo = 1. Mám nižšie uvedený kód, nejaké nápady?

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

odpovede:

Kliknite:
Fill Color na lište nástrojov a potom vyberte farbu
More Colors z podmenu a vlastného karty
teraz môžete vidieť tri hodnoty, ktoré tvoria objekt RGB (červená, zelená, modrá) pre zvolenú farbu
Namiesto použitia všetkých argumentov, ako ste urobili - jednoducho Použi RGB objekt s tromi hodnotami

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