色付きのセルのカウントの方法

質問

色付きのセルをカウントする方法はあるのでしょうか。
ご存知の方、ご指導お願い致します。

使用機器　Windows 8 Excel 2013 です。

下記のような表中、年齢が８０歳になれば赤色(既に関数が入っていて)になります。
赤色のセルをカウントする関数がありましたら、ご指導お願い致します。

合計数を C７に求めたいのです。

　　　A列　B列　C列
１行　NO 氏名　年齢
２行　1 　　 あ 　　 81
３行　2 　　 い　　79
４行　3　　 う　　　78
５行　4　　 え 　 　 82
６行　5　　 お　 　 79
７行　合計

回答No.4

tom04 · ベストアンサー

No.3です。

投稿後間違いに気づきました。

コード内のコメント部分
＞色がついていないセルの場合
は
＞色がついているセルの場合
の間違いです。

すなわち、「赤」に限らず他の色でもカウントされます。
「赤」限定にしたい場合は
＞If Cells(i, "C").DisplayFormat.Interior.ColorIndex = 3 Then
に変更してください。

どうも失礼しました。m（_ _）m

回答No.5

chonami

2013でしたら、色条件でオートフィルタが使えるので、subtotal関数と組み合わせてみては如何でしょうか？

回答No.3

tom04

こんばんは！

No.1さんが回答されていらっしゃるように
条件付き書式の色で判断するより、条件付き書式の条件そのものでやれば関数で対応できると思います。

参考程度で、条件付き書式で色がついているセルを判断する場合のVBAでの一例です。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, cnt As Long
For i = 2 To 6 '←2～6行目まで
If Cells(i, "C").DisplayFormat.Interior.ColorIndex <> xlNone Then '色がついていないセルの場合
cnt = cnt + 1
End If
Next i
Range("C7") = cnt
End Sub 'この行まで

※　関数でないので、データ変更があるたびにマクロを実行する必要があります。m（_ _）m

回答No.2

Safe_Mode

ANo.1です。
最初の回答では、セルを着色する際の条件式が簡単に判ってしまうので、その条件式を使ってカウントする方法を提示したのですが、着色したセル数をカウントするテクニックについては下記が参考になるかと思います。
http://veaba.keemoosoft.com/2013/02/561/

回答No.1

Safe_Mode

セルC7に下記を入力すればいいかと。
=COUNTIF(C2:C6,">=80")