Excel のヒント：色（背景、フォント、条件付き書式を使用する）でセルをカウント／合計する

日常業務では、重要なデータを素早く識別・強調表示するために、色分けが広く活用されています。しかし、特定の色（塗りつぶし色、フォント色、または条件付き書式で設定された色）に基づいてセルのデータをカウントしたり合計したりするには、どうすればよいでしょうか？ 実は、Excel には色に基づくカウントや合計の機能が標準で備わっていません。ただし、いくつかのテクニックや間接的な方法を使えば、このタスクを実現することが可能です。本記事では、色に基づいてデータをカウントまたは合計する方法を詳しく解説します。

背景色に基づいてセルをカウントおよび合計

• ユーザー定義関数を使用して
• 強力な機能「Kutools for Excel」を使用して
• フィルターと SUBTOTAL 関数を使用して

フォント色に基づいてセルをカウントおよび合計

• ユーザー定義関数を使用して
• 簡単な機能「Kutools for Excel」を使用して

条件付き書式を使用するの色に基づいてセルをカウントおよび合計

• VBA コードを使用して
• スマート機能「Kutools for Excel」を使用して

動画：色に基づいてセルをカウントおよび合計

背景色に基づいてセルをカウントおよび合計

たとえば、下のスクリーンショットのように、さまざまな背景色で塗りつぶされたデータ範囲があり、特定の色のセルだけをカウントしたり合計したりしたいとします。Excel には、セルの背景色に基づいて直接カウントや合計を行う機能は備わっていません。しかし、ちょっとした工夫と便利なテクニックを活用すれば、このタスクをしっかりこなすことができます。ここでは、そんな役立つ方法をいくつかご紹介します。

ユーザー定義関数で背景色に基づいてセルをカウントおよび合計

ここでは、Excel でこのタスクを解決するためのユーザー定義関数の作成・使用方法をご紹介します。以下の手順に従ってください。

手順1：VBA モジュールエディターを開き、コードをコピー

1. Alt + F11キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。
2. 開いたウィンドウで、［挿入］＞［標準モジュール］をクリックして、新しい空白のモジュールを作成しましょう。
3. 次に、以下のコードを空白のモジュールにコピー＆ペーストします。
   VBA コード：セルのカウントおよび合計を背景色に基づいて実行

   Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean = False) As Variant
   'Updateby Extendoffice
       Dim rCell As Range
       Dim lCol As Long
       Dim vResult As Double
       lCol = rColor.Interior.ColorIndex
       vResult = 0
       If SUM Then
           For Each rCell In rRange
               If rCell.Interior.ColorIndex = lCol Then
                   vResult = vResult + rCell.Value
               End If
           Next rCell
       Else
           For Each rCell In rRange
               If rCell.Interior.ColorIndex = lCol Then
                   vResult = vResult + 1
               End If
           Next rCell
       End If
       ColorFunction = vResult
   End Function
   

手順2：数式を作成で背景色に基づいてセルをカウントおよび合計

上記のコードを貼り付けたら、モジュールウィンドウを閉じて次の数式を適用してください。

• 特定の背景色に基づいてセルをカウントする：
  以下の数式を目的のセルにコピーまたは入力して結果を取得してください。その後、フィルハンドルを下方向にドラッグして他の結果を表示させます。スクリーンショットを参照してください：
  

  =colorfunction(G2,$B$2:$E$12,FALSE) 

  注：この数式において、G2は一致させたい特定の背景色を持つ参照セルです。$B$2:$E$12は G2 と同じ背景色のセルをカウントする範囲です。FALSEは背景色が一致するセルをカウントするために使用されます。
  
• 特定の背景色に基づいてセルを合計する：
  以下の数式を目的のセルにコピーまたは入力して結果を取得してください。その後、フィルハンドルを下方向にドラッグして他の結果を表示させます。スクリーンショットを参照してください：
  

  =colorfunction(G2,$B$2:$E$12,TRUE)  

  注：この数式において、G2は一致させたい特定の背景色を持つ参照セルです。$B$2:$E$12は G2 と同じ背景色のセルを合計したい範囲です。TRUEは背景色が一致するセルの値を合計するために使用されます。
  

強力な機能で背景色に基づいてセルをカウントおよび合計

プログラミングに不慣れな方にとって、VBA は非常に複雑に感じられるかもしれません。そこでご紹介するのが、強力なツールKutools for Excelとその色でカウント機能です。この機能を使えば、わずか数回のクリックで背景色に基づいて（個数、合計、平均など）簡単に計算が可能！さらに驚くべきことに、色でカウント機能は背景色だけでなく、フォント色や条件付き書式に基づいてもセルを区別・計算できます。

Kutools for Excel をダウンロードしてインストールした後、まず、特定の背景色に基づいてセルの個数や合計を求めたいデータ範囲を選択します。次に、KUTOOLS PLUSタブに移動し、色でカウントをクリックしてください。

色でカウントダイアログボックスで、以下の操作を指定してください：

1. 標準の書式設定を、カラーモードのドロップダウンリストから選択してください。
2. 背景色を統計タイプドロップダウンリストから選択すると、ダイアログボックス内で各背景色の集計結果をリアルタイムでプレビューできます。
3. 最後に、レポートを生成をクリックすると、計算結果が新しいワークブックにエクスポートされます。

結果：

これで、統計情報を含む新しいワークブックが表示されます。スクリーンショットをご確認ください。

フィルターと SUBTOTAL 関数を使って背景色ごとにセルをカウントおよび合計する

以下のような果物の販売表があり、金額列の色付きセルをカウントしたり合計したりすると仮定します。

手順1：SUBTOTAL 関数を適用する

SUBTOTAL 関数を入力するための空白セルを選択してください。

• 同じ背景色を持つすべてのセルをカウントするには、次の数式を入力してください：

  =SUBTOTAL(102, F2:F16)

• 同じ背景色を持つすべてのセルを合計するには、次の数式を入力してください：

  =SUBTOTAL(109, F2:F16)

• 注：上記の数式において、102はフィルターされたリスト内で非表示セルを除外して数値をカウントすることを表します。109はフィルターされたリスト内で非表示セルを除外して値を合計することを表します。F2:F16はカウントまたは合計の対象となる範囲です。
• 

手順2：特定の色に基づいてセルをフィルターする

1. テーブルのヘッダーを選択し、データ > フィルターをクリックしてください。スクリーンショットを参照ください：
   
2. フィルターアイコンを金額列のヘッダーセル内でクリックし、続けて色でフィルターをクリックして、カウント対象の色を指定してください。スクリーンショットを参照してください：
   

結果：

フィルターを適用すると、SUBTOTAL 関数が自動的に金額列の色付きセルをカウントして合計します。スクリーンショットをご覧ください：

フォント色に基づいてセルをカウントおよび合計する

Excel でセルのフォント色に基づいて個数や合計を求めてみたいと思いませんか？たとえば、添付のスクリーンショットのように、赤、青、オレンジ、黒の文字色を持つテキストが含まれるセルがあるとします。実は、Excel の標準機能ではこうした操作を簡単に行うことはできません。でもご安心ください！このセクションでは、そんなタスクをあっという間に実現できる便利なテクニックをいくつかご紹介します。

ユーザー定義関数を使ってフォント色に基づいてセルをカウントおよび合計する

特定のフォント色を持つセルをカウント・合計するには、以下のユーザー定義関数が便利です。次の手順に従って操作してください：

手順1：VBA モジュールエディターを開き、コードをコピーする

1. Alt + F11キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。
2. 開いたウィンドウで、［挿入］＞［標準モジュール］をクリックし、新しい空白のモジュールを作成します。
3. 次に、以下のコードを空のモジュールにコピー＆ペーストします。
   VBA コード：フォント色に基づいてセルをカウントおよび合計

   Function ProcessByFontColor(pRange1 As Range, pRange2 As Range, FunctionType As String) As Double
   'Updateby Extendoffice
       Application.Volatile
       Dim rng As Range
       Dim xTotal As Double
       Dim xCount As Double
       xTotal = 0
       xCount = 0
       For Each rng In pRange1
           If rng.Font.Color = pRange2.Font.Color Then
               If UCase(FunctionType) = "SUM" Then
                   xTotal = xTotal + rng.Value
               ElseIf UCase(FunctionType) = "COUNT" Then
                   xCount = xCount + 1
               End If
           End If
       Next
       If UCase(FunctionType) = "SUM" Then
           ProcessByFontColor = xTotal
       ElseIf UCase(FunctionType) = "COUNT" Then
           ProcessByFontColor = xCount
       Else
           ProcessByFontColor = CVErr(xlErrValue)
       End If
   End Function
   

手順2：数式を作成を使ってフォント色ごとにセルをカウントおよび合計する

上記のコードを貼り付けたらモジュールウィンドウを閉じ、次の数式を適用します。

• 特定のフォント色に基づいてセルをカウントする：
  以下の数式を目的のセルにコピーまたは入力して結果を取得してください。その後、フィルハンドルを下方向にドラッグして他の結果を表示させます。スクリーンショットを参照してください：
  

  =ProcessByFontColor($B$2:$E$12,G2, "COUNT")

  注：この数式において、G2は一致させたい特定のフォント色を持つ参照セルです。$B$2:$E$12は G2 と同じ色のセルをカウントする範囲です。
  
• 特定のフォント色に基づいてセルを合計する：
  以下の数式を目的のセルにコピーまたは入力して結果を取得してください。その後、フィルハンドルを下方向にドラッグして他の結果を表示させます。スクリーンショットを参照してください：
  

  =ProcessByFontColor($B$2:$E$12,G2, "SUM")  

  注：この数式において、G2は一致させたい特定のフォント色を持つ参照セルです。$B$2:$E$12は G2 と同じ色のセルを合計したい範囲です。
  

簡単な機能でフォント色に基づいてセルをカウントおよび合計する

フォント色に基づいてExcel のセル値を簡単にカウントまたは合計したいですか？Kutools for Excelの色でカウント機能をぜひお試しください！このスマートなツールを使えば、特定のフォント色ごとにセルをカウントしたり、値を合計したりすることが簡単に行えます。KutoolsがどのようにあなたのExcel 作業を変えるか、ぜひ体験してください。

Kutools for Excel をダウンロードしてインストールした後、まず、特定のフォント色に基づいてセルをカウントまたは合計したいデータ範囲を選択します。次に、KUTOOLS PLUS ＞ 色でカウントをクリックして、色でカウントダイアログボックスを開きます。

色でカウントダイアログボックスで、以下の操作を指定してください：

1. 標準の書式設定を、カラーモードのドロップダウンリストから選択します。
2. フォント色を統計タイプのドロップダウンリストから選択すると、ダイアログボックス内で各フォント色の集計結果をプレビューできます。
3. 最後に、レポートを生成をクリックすると、計算結果が新しいワークブックにエクスポートされます。

結果：

これで、フォント色に基づく詳細な統計情報を表示する新しいワークブックが完成しました。スクリーンショットをご覧ください：

条件付き書式を使用するの色に基づいてセルをカウントおよび合計する

Excel では、通常条件付き書式を使用するを使って特定の条件を満たすセルに色を適用し、データの視覚化を直感的に行います。しかし、そのように特別に書式設定されたセルをカウントまたは合計したい場合はどうすればよいでしょうか？Excel にはこのような処理を直接行う機能はありませんが、以下にその制限を回避する方法をいくつかご紹介します。

VBA コードを使って条件付き書式のセルをカウントおよび合計する

Excel では、条件付き書式が適用されたセルをカウントしたり合計したりするのは、組み込み関数だけでは簡単ではありません。しかし、VBA コードを使えばこのタスクを簡単に実現できます。ここでは、そのための VBA の使い方をご紹介します。

手順1：VBA モジュールエディターを開き、コードをコピーする

1. Alt + F11キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。
2. 開いたウィンドウで、［挿入］＞［標準モジュール］をクリックして、新しい空白のモジュールを作成します。
3. 次に、以下のコードを空のモジュールにコピー＆ペーストします。
   VBA コード：条件付き書式を使用するの色に基づいてセルをカウントおよび合計

   Sub SumCountByConditionalFormat()
   'Updateby Extendoffice
       Dim sampleColor As Range
       Dim selectedRange As Range
       Dim cell As Range
       Dim countByColor As Long
       Dim sumByColor As Double
       Dim refColor As Long
       Set selectedRange = Application.InputBox("Select a range to evaluate:", _
                                                "Kutools for Excel", _
                                                Type:=8)
       If selectedRange Is Nothing Then Exit Sub
       Set sampleColor = Application.InputBox("Select a conditional formatting color:", _
                                              "Kutools for Excel", _
                                              Type:=8)
       If Not sampleColor Is Nothing Then
           refColor = sampleColor.Cells(1, 1).DisplayFormat.Interior.color
           For Each cell In selectedRange
               If cell.DisplayFormat.Interior.color = refColor Then
                   countByColor = countByColor + 1
                   sumByColor = sumByColor + cell.Value
               End If
           Next cell
           MsgBox "Count: " & countByColor & vbCrLf & _
                  "Sum: " & sumByColor, _
                  vbInformation, "Results based on Conditional Format Color"
       End If
   End Sub
   

手順2：この VBA コードを実行する

1. コードを貼り付けたら、F5キーを押してこのコードを実行します。プロンプトボックスが表示されたら、条件付き書式を使用してセルのカウントおよび合計を行いたいデータ範囲を選択してください。その後、OKをクリックします。スクリーンショットを参照してください：
   
2. 別のプロンプトボックスで、カウントおよび合計したいセルに適用されている特定の条件付き書式の色を選択し、OKボタンをクリックしてください。スクリーンショットを参照してください：
   

結果：

これで、指定された条件付き書式を使用するの色を持つセルの個数と合計を含む結果がポップアップボックスに表示されます。スクリーンショットをご覧ください：

スマートな機能で条件付き書式のセルをカウントおよび合計する

条件付き書式が適用されたセルをカウントしたり合計したりする、もっと素早く簡単な方法をお探しですか？Kutools for Excelが最適なソリューションです。色でカウント機能を使えば、わずか数回のクリックでこの作業が完了します。ぜひ、Kutools がもたらす効率性と正確性を体験してください！

Kutools for Excel をダウンロードしてインストールした後、まず、特定の条件付き書式で色付けされたセルをカウントまたは合計したいデータ範囲を選択します。次に、KUTOOLS PLUS＞色でカウントをクリックして、色でカウントダイアログボックスを開きます。

色でカウントダイアログボックスで、以下の操作を指定してください：

1. 条件付き書式を使用するを、カラーモードのドロップダウンリストから選択します。
2. 背景色を統計タイプドロップダウンリストから選択すると、ダイアログボックス内で条件付き書式の各色ごとの集計結果をリアルタイムでプレビューできます。
3. 最後に、レポートを生成をクリックすると、計算結果が新しいワークブックにエクスポートされます。

結果：

これで、条件付き書式を使用するの色に基づく詳細な統計情報を表示する新しいワークブックが完成しました。スクリーンショットをご覧ください：

関連記事：