特定の色で塗りつぶされたセルの数をカウントするには？ | EXCELトピックス

色のついたセルをカウントするには？

Excelでは、条件付き書式や手動で色付けされたセルの数をカウントすることができます。

標準機能だけでは直接カウントできないため、VBAを使用して特定の色のセルをカウントする方法も解説します。

方法1: フィルター機能で色付きセルをカウントする方法

Excelのフィルター機能を使用して色付きセルをフィルター表示し、セルの個数を確認することができます。

手順

1. 色を付けたセルがある範囲（例：A2:A20）を選択します。
2. 「データ」タブから「フィルター」をクリックして、フィルター機能を有効にします。
3. フィルターメニューを開き、「フィルターオプション」から「セルの色でフィルター」を選択し、カウントしたい色を指定します。
4. 表示されたセルの数を確認します。

注意点

フィルターでカウントする場合、指定した色のセルを視覚的に確認できますが、自動でカウントされるわけではないため、表示された行数を確認して数える必要があります。

方法2: VBAマクロで特定の色のセルをカウントする方法

特定の色のセルのみをカウントするには、VBAマクロを使用することで、簡単にカウント結果を取得できます。

VBAコード

1. 「開発」タブから「Visual Basic」をクリックし、VBAエディタを開きます。
2. 「挿入」→「標準モジュール」を選択し、以下のコードを貼り付けます。

VBAコード:

Function CountColorCells(rng As Range, colorCell As Range) As Long
    Dim cell As Range
    Dim count As Long
    count = 0
    
    For Each cell In rng
        If cell.Interior.Color = colorCell.Interior.Color Then
            count = count + 1
        End If
    Next cell
    
    CountColorCells = count
End Function

VBAコードの説明

• rng As Range: カウントするセル範囲を指定します。
• colorCell As Range: カウント対象の色を持つセルを指定します。
• CountColorCells = count: 指定した範囲内で指定色と一致するセルの数を返します。

使い方

1. VBAエディタを閉じ、Excelシートに戻ります。
2. セル範囲（例：A2:A20）に色のついたセルがある場合、カウント結果を表示するセル（例：B2）に次の数式を入力します。

=CountColorCells(A2:A20, A1)

ここで、A1セルにカウントしたい色を設定（A1セルを塗りつぶせばよい）しておくと、その色のセルだけがカウントされます。

例

以下の表では、A列に色のついたセルがあり、B列にカウント結果が表示されます。A1セルには、カウント対象の色を設定しています。

A1セルの色で塗りつぶされたA2～A10の数をカウントします。

結果

• B2セルに、A2～A10の範囲内でA1の色のセル数が表示されます。上記の場合は「3」と表示されます。

色のついた全てのセルをカウントしたい場合

色で塗りつぶされた全てのセルの数をカウントするには？ | EXCELトピックス

全ての色のついたセルをカウントするには？Excelでデータの中に色のついたセル（塗りつぶしがあるセル）の数をカウントしたい場合、VBAを使用して色を問わず塗りつぶしのあるセルのみをカウントすることができます。この記事では、どの色でも塗りつぶしがあるセルをすべてカウントするVBAコードを解説します。方法: VBAマクロで...

programming-cafe.com

まとめ

Excelで色のついたセルをカウントするには、フィルター機能を使って視覚的に数える方法と、VBAマクロを使って特定の色をカウントする方法があります。VBAマクロを使うことで、自動的に色付きセルの数を取得できるため、大量のデータを扱う場合に便利です。

開発タブが表示されていないとき

開発タブを表示させるには？ VBAやマクロの設定のために | EXCELトピックス

開発タブが表示されず、VBAやマクロの設定ができない場合の対処法ExcelでVBAやマクロを使用するためには、「開発」タブが必要ですが、初期設定では表示されていません。「開発」タブを表示する設定方法を以下にご紹介します。開発タブを表示させる方法「開発」タブは、Excelのオプション設定で表示することができます。以下の手...

programming-cafe.com