认识一个内部的亮点

好，所以我试图识别深蓝色文本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工具栏上的Fill Color图标，然后select你的颜色
子菜单和自定义选项卡中的More Colors
现在，您可以看到为您select的颜色组成了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