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

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

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

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

今回は範囲の部分を絶対参照にしたが、場合に応じて・・・ということで。
また、引数の『色』の部分にはその色が表示されていセルをクリックすればよい。
関数名はCOUNTIFをまねてＣＣＯＵＮＴＩＦとしてみた。