=countで・・・

締切済

質問者：kibadasi
質問日時：2007/03/18 17:09
回答数：1件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： jobvba
回答日時：2007/03/23 11:48

私の知る限りだと、数式にはないですね・・・

しかし、その数式を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も自作関数で、指定したセルの色番号を返します
役に立ちますでしょうか？