背景を条件付きで色を付けたい

質問

Sub test()
Dim Rng As Range
For Each Rng In Range("I7:I756")
If Rng.Interior.ColorIndex = xlNone Then
Cells(Rng.Row, 1).Resize(, 6).Interior.ColorIndex = 35
End If
Next
End Sub

上記のコードだとうまくいきません＞＜
データベースがＡ7：Ｋ756まであり、Ｉ 列の背景が何もない場合のみ
その行のＡからＦまでのセルを薄い緑の背景にしたいのです。

例えばＩ10の背景がない場合はＡ10.Ｂ10.Ｃ10.Ｄ10.E10.F10のセルを薄い緑する

といった感じにしたいのですがＶＢＡはあまり詳しくないので
詳しい方ぜひアドバイスお願いします。

エクセル2010を使っています。
補足 Ｉ列の背景は条件付き書式で色付けしています。

回答No.1

jin34 · ベストアンサー

条件つき書式で変えたセルの色の値が返ってきませんね。
エクセルの仕様だと思います。
ためしに以下のマクロを実行すると
条件を満たしていても-4142（=xlNone)が戻ってきます。

Sub test3()
Dim Rng As Range
For Each Rng In Range("I7:I756")
Debug.Print Rng.Address & " " & Rng.Interior.ColorIndex
Next
End Sub

対応方法としては、

If Rng.Interior.ColorIndex = xlNone Then　のところを
If Rngの条件=True Then にすればよいでしょう。

お礼

詳しい説明ありがとうございました。
教えていただいたどうり変更して試したいと思います。

回答No.2

mu2011

>I列の背景が何もない場合その行のＡからＦまでのセルを薄い緑の背景にしたいのです。
　⇒I列が条件付き書式でセル背景が変化している場合、このコードでは確認できません。
　　よって、I列の色の有無を判定ではなく、色付けされる条件で判定すべきですね。

お礼

ご指摘ありがとうございました。
考えてやってみます。