色に応じて個数を数える(ユーザー定義関数)

例えば下表のように、何色のセルが何個あるのか数えたい場合がある。そんな時の為にユーザー定義の関数を作ってみた。
e0080122_12184232.gif

Function CCOUNTIF(範囲 As Range, 色 As Range) As Integer

Dim myrange As Range
Dim iro As Integer
Dim i As Integer
 iro = 色.Interior.ColorIndex
 i = 0
   For Each myrange In 範囲
     If myrange.Interior.ColorIndex = iro Then
        i = i + 1
     End If
   Next
     CCOUNTIF = i
End Function

セルに直接この関数を入力してもいいが、関数のダイアログを表示させてもいいと。
e0080122_12211847.gif

今回は範囲の部分を絶対参照にしたが、場合に応じて・・・ということで。
また、引数の『色』の部分にはその色が表示されていセルをクリックすればよい。
関数名はCOUNTIFをまねてCCOUNTIFとしてみた。
[PR]
by slayer0210 | 2005-12-22 12:23 | マクロ


<< CHOOSE関数でデータを選択 塗りつぶされたセル数を数える(... >>