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

认识到内部亮点

1 个答案: