色付きセルの件数をカウントする ［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

アレンジすればいろいろな事が出来そうですね。こんなのに使えた！という報告いただければ嬉しいです。



前回記事　［ 色付きセルのみを合計する ］
関連記事　［ 自分で関数を作ってみる ］