Excel2007に関する質問です。

質問

列内の赤い文字（※セルは塗りつぶされていません）がついているセルの個数を数えたいのですが、その文字の色は条件付き書式（ルールを組んでいます）で色をつけています。

通常、セルの書式設定から色を変えた場合には、それらのセルの個数を数えるマクロは、過去の質問では以下のようになるそうです。

Function COUNTCOLOR(data As Range, color As Integer)
Application.Volatile
Count = 0
For Each c In data
If c.Font.ColorIndex = color Then
Count = Count + 1
End If
Next c
COUNTCOLOR = Count
End Function

それで使うときは
=COUNTCOLOR(A:A,3）

この場合だと赤文字のセルを数えることができるそうです。

ですが、ルールによって文字の色が変わっているセルをカウントできません。あくまでルールであり、書式上は通常の黒色になっています。どうしたら、ルールで色を付けたセルの個数を数えるマクロを組めるのでしょうか？？

よろしくお願いします！！

回答No.1

web2525 · ベストアンサー

ルールによって色が変わってるセル
と考えずに
条件付き書式に設定された条件に一致するセルを拾い出せばいいのではないですか？

お礼

遅くなりましたが、ありがとうございます。