【Excel】エクセルで色のついたセルをカウントする方法

こんばんは

またたびです。

今回は、またまたExcelより、

「色のついたセルをカウントする方法」について

ご紹介します！

今回も『開発』タブを使用しますので、

入れてないよ～～という方は別の記事で紹介してますので

追加してみてくださいね✨

セルの色をカウントする

空白のセルや、文字があるセルの数をカウントする方法はありますが、

色付きのセルをカウントする方法ってご存じでしょうか？

例えば、

このように、黄色セルは1つ、オレンジセルは3つ、

ピンクセルは4つと数える方法です。

上の画像は実際にカウントした数を表示しています。

以降ではカウントする方法についてご紹介します(^^♪

Visual Basicにコードを入力する

①『開発』タブ→『Visual Basic』を選択します。

②『挿入』タブ→『標準モジュール』を選択します。

③Module1（コード）に以下コードを入力します。

（空白がうまくいかず左詰めになっていますが、

そのままコピペして正常に動作することは確認済です(_ _)）

Function ColorCnt(rng As Range) As Double
Dim RngObj As Range
For Each RngObj In rng
If RngObj.Interior.Color = RGB(255, 255, 0) Then
ColorCnt = ColorCnt + 1
End If
Next
End Function

★RGB（255,255,0）→カウントしたい色のRGB値を入力します。今回は黄色なので、(255,255,0）です。

★コード中の「ColorCnt」は任意の関数を指定します。

つまり、後々Excelシートで自分で入力する関数を作成してあげます。

④『ファイル』タブ→『終了してMicrosoftExcelへ戻る』を選択します。

Excelで関数を入力する

実際に先ほど作成した関数を入力してみましょう！

上記では、『ColorCnt』関数で黄色セルの数を求めるコードを作成しました。

①セルに関数を入力します。

②コード設定した色のカウントが完了します。

おまけ1：複数の色をカウントしたいときは『関数を変える』だけ！

今回は黄色セル1色の場合で説明しましたが、

冒頭のように1色以上の場合は、関数のパターンを増やすだけです！

3色ならば、ひとまとまりのコードをコピペして、

これでOKです(^^♪

冒頭の3色のコードの例を貼っておきます。

おまけ2：セルに色を塗ってもカウントされない場合

色付きのセルをカウントしたいけど、

先に関数を作った後、色を塗っただけではカウントされません。

例えば、下のように範囲D2:G11に色を塗り、黄色のセルだけ数えたい場合。

コードを作り、セルB2で関数を入れておきます。

まだ何も塗っていないので、セルB2には「0」と表示されます。

次に、範囲D2:G11に適当に色を付けてみます。

最後に空いたセルに黄色を塗ってみます。

しかし、セルB2は「0」のままです。

ここからは、解決方法を説明します。

セルB2に黄色のセルの数を表示させる方法の一つに、

関数を入れているセルB2を入力状態にする→Enterキーを押す方法があります。

結論から言うと、この方法はおススメしません！理由は面倒だからです。

セルB2をダブルクリックもしくはF2を押して入力状態に。

Enterキーを押すと、ちゃんと「11」と表示されました。

せっかく関数を入れたのに、いちいちこんな操作したくないですよね…

またたびが使っている方法は、

Ctrlキー＋Altキー＋F9

を押す方法です！

では実際にやってみます。

この状態から、「Ctrl+Alt+F9」を押してみます。

「Ctrl+Alt+F9」を押すと、ちゃんと「11」と表示されました！

さいごに

いかがだったでしょうか？

ほかにも便利なExcelのワザがあれば教えてください✨

ならばい！👋