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 (赤、緑、青) オブジェクトを構成する 3 つの値が表示されます
。あなたが行ったような引数 - 3つの値で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 に答える