=countで・・・

質問

エクセルの数字でなく色をカウントする式はないでしょうか？

回答No.1

jobvba

私の知る限りだと、数式にはないですね・・・
しかし、その数式をVBAで作成したことがあります
Function icount(irohani As Range, iro As Integer) As Double
Dim hani As Range
For Each hani In irohani
If hani.Interior.ColorIndex = iro Then icount = icount + 1
Next
End Function
Function iro(irohani As Range) As Integer
iro = irohani.Interior.ColorIndex
End Function
上記を標準モジュールに貼り付けて、
セルには
=icount(A1:G10,iro(A1))
を入力してみてください
icountは自作関数で範囲の中の指定した番号の色セルを数えます
iroも自作関数で、指定したセルの色番号を返します
役に立ちますでしょうか？