[[20030713203845]]　『色分けしたデータの個数を色別に個数をカウント』（ぽんぽこ）　ページの最後に飛ぶ

『色分けしたデータの個数を色別に個数をカウント』（ぽんぽこ）

Ａ１赤色
Ａ２青色
Ａ３緑色
Ａ４赤色
Ａ５黄色
Ａ６空白
とセルを塗りつぶして色分けしています。
これをデータの範囲ないで色別に個数をカウントするにはどうしたらいいでしょうか?
あと空白のセルにどれかの色が追加された場合、自動的にカウントが足されるというようなことは出来るのでしょうか？

 Function ColorCnt(HRange As Range, myColor As Range)
     Dim myRange As Range
     Application.Volatile
     For Each myRange In HRange
         If myRange.Interior.ColorIndex = myColor.Interior.ColorIndex Then
             ColorCnt = ColorCnt + 1
         End If
     Next myRange
 End Function

 これを標準モジュールにコピーして、普通の関数と同じように使います
 たとえば、A1からA6のセル範囲でA1と同じ色で塗りつぶされている
 セルの個数を数えるには =colorcnt(A1:A6,A1) とします
 [F9]で再計算しますが、自動でしたい場合
 Private Sub Workbook_SheetSelectionChange _
     (ByVal Sh As Object, ByVal Target As Range)
 Application.Calculate
 End Sub
これをThisworkbookモジュールにコピーすれば選択セル範囲を変更したとき自動で
 再計算されます。もっといい方法があるのかもしれませんが、私にはわかりません (りな)

りなさん　回答ありがとうございます。
早速、試してみたいと思います。

コメント返信：

[ 一覧(最新更新順) ]

[[20030713203845]] 『色分けしたデータの個数を色別に個数をカウント』（ぽんぽこ） ページの最後に飛ぶ

[[20030713203845]]　『色分けしたデータの個数を色別に個数をカウント』（ぽんぽこ）　ページの最後に飛ぶ