1

好的，所以我试图识别用深蓝色文本突出显示的所有内容 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
4

1 回答 1

2

单击
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
于 2013-05-17T08:54:03.390 回答