VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB

VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VBAコードを教えて下さい。セルの範囲は、H8:W40です。
よろしくお願いします。

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2022/04/06 21:54

こんばんは

Dim r As Range
Dim n As Integer: n = 0
Dim n1 As Integer: n1 = 0
For Each r In Range("H8:W40")
If r.DisplayFormat.Interior.ColorIndex <> -4142 Then n = n + 1
If r.Interior.ColorIndex <> -4142 Then n1 = n1 + 1
Next
Debug.Print "条件書式セル色：＝"; n - n1; "セル色"; n

条件書式のみ、すべてのセル色設定

この回答へのお礼

ありがとうございました。
できました。助かりました。

お礼日時：2022/04/07 08:55

No.1 回答者： mygoonickname 回答日時： 2022/04/06 21:47

こんばんは

検索した記事ですが、DisplayFormatを使うと色情報などを取れる様です。
セル範囲をループして、DisplayFormatで色が塗られているかを確認する
という感じになるのでは？と思います。

【VBA】条件付き書式の色を取得【DisplayFormatを使う】
https://daitaideit.com/vba-displayformat/

この回答へのお礼

ありがとうございます。
サイト参考にしました。

お礼日時：2022/04/07 08:56