色付きセルの件数をカウントする　［CountColor]

Articles

色付きセルの件数をカウントする　［CountColor]

前回記事　［色付きセルのみを合計する］

SUMIFのように動かしたSumColorですが、今度はCOUNTIF版を作ってみます。
もともとこの定義関数を作るきっかけになったのは、次年度の勤務表を作成する為に休日日数をカウントしたい。というのが目的でした。
私の会社では年間休日日数というのが決まっています。その日数を大型連休につぎ込むのか、3連休を作るのか・・・・思案するのですが、カレンダーで色の付けた日＝休日なのでその休日日数を関数で合計できれば、年間カレンダーの作成が楽になるのです。

前回の問題点

前回の問題点として、縦1列しか合計できませんでした。
カレンダーのような2次元テーブルに対応できなかったのが重大な問題でした。

そこで前回のコードではRowsしか使っていなかったんですが、Columnsと組み合わせる事で対応してみます。

Rowは縦、Columnは横の意味です。
A1:C10の範囲指定の中で、Rows(3).Columns(2)　となればB3セルのことを示します。

CountColor

関数名	CountColor( 計算範囲 , 条件色セル )
機能	計算範囲の中で条件色セルと同じ色のセルをカウントする範囲指定は複数行、複数列可能


Function CountColor(計算範囲, 条件色セル)
  CountColor = 0
  For y = 1 To 計算範囲.Columns.Count
    For x = 1 To 計算範囲.Rows.Count
      If 計算範囲.Rows(x).Columns(y).Interior.ColorIndex = 条件色セル.Interior.ColorIndex Then
        CountColor = CountColor + 1
      End If
    Next
  Next
End Function