识别室内亮点

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