erkennen Sie ein Interieur Highlight - Excel, VBA

Okay, ich versuche alles zu erkennenhervorgehoben mit dem dunkelblauen Text 2 um 60% heller und für jeden Wert, bei dem es in meinem Bereich stimmt, möchte ich die Zelle um 2 Leerzeichen nach rechts = 1 machen. Ich habe den untenstehenden Code, irgendwelche Ideen?

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

Antworten:

Klicken:
Fill Color Symbol in der Werkzeugleiste und wählen Sie dann Ihre Farbe aus
More Colors aus dem Untermenü und der benutzerdefinierten Registerkarte
Jetzt können Sie die drei Werte sehen, aus denen ein RGB-Objekt (Rot, Grün, Blau) für die von Ihnen gewählte Farbe besteht
Anstatt alle Argumente zu verwenden, wie Sie es getan haben - einfach benutze die RGB Objekt mit den drei Werten

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