識別室內亮點

Question

好吧，所以我試圖識別深藍色文本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

Answer 1

點擊：
在工具欄上Fill Color圖標，然后選擇顏色
子菜單和“自定義”選項卡中的More Colors
現在，您可以看到組成您所選擇顏色的RGB（紅色，綠色，藍色）對象的三個值
無需像使用完一樣使用所有參數- 只需將RGB對象與這三個值一起使用

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