メインコンテンツへスキップ

Excelのフォントの色に基づいてセルをカウントまたは合計するにはどうすればよいですか?

Excelでセルの数を取得したり、特定のフォントの色を含むすべてのセルを合計したりするにはどうすればよいですか? たとえば、次のスクリーンショットに示すように、ワークシートにさまざまなデータがあります。次に、赤、青、黒のフォントの色を持つセルをそれぞれカウントまたは合計します。 通常、このタスクに直接対処する方法はありません。ここでは、このジョブを解決するためのいくつかのトリックについて説明します。

ユーザー定義関数を使用して、フォントの色に基づいてセルをカウントまたは合計します

いくつかの便利な機能を使用して、フォントの色に基づいてセルをカウントまたは合計します

驚くべき機能を備えたフォントの色に基づいてセルをカウントまたは合計します-色でカウント


ユーザー定義関数を使用して、フォントの色に基づいてセルをカウントまたは合計します

フォントの色に基づいてセルを数えます。

特定のフォントの色のセルの数を計算するには、次のようにしてください。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード:フォントの色に基づいてセルをカウントします。

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
'Update by Extendoffice
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

3。 次に、このコードを保存してワークシートに戻り、この数式を空白のセルに入力します = CountColour(A1:D10、A2) 、スクリーンショットを参照してください:

Note:上記の式では、 A1:D10 使用したい範囲であり、 A2 カウントする特定のフォントの色のセルです。

4。 数式を入力したら、を押します 入力します キーを押すと、赤いフォントの色のセルの数が表示されます。 他のフォントの色のセルを数えたい場合は、必要に応じて可能な限り繰り返し数式を入力してください。 次の結果が得られます。


フォントの色に基づいてセルを合計します。

フォントの色に基づいてセルを合計するには、次のユーザー定義関数が役立ちます。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード:フォントの色に基づいてセルを合計します。

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
'Update by Extendoffice
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        xTotal = xTotal + rng.Value
    End If
Next
SumByColor = xTotal
End Function

3。 次に、このコードを保存して元のワークシートに戻り、この数式を入力します = SumByColor(A1:D8、A1) 空白のセルに、スクリーンショットを参照してください。

Note:上記の式では、 A1:D10 使用したい範囲であり、 A2 合計する特定のフォントの色のセルです。

4。 次に、 入力します キーを押すと、すべてのセルが赤いフォントの色で合計されます。 他のフォントの色のセルを合計する場合は、数式を繰り返し入力してください。 次の結果が得られます。


いくつかの便利な機能を使用して、フォントの色に基づいてセルをカウントまたは合計します

ユーザー定義関数を保存して適用するのは面倒かもしれませんが、ここでは、便利なツールをお勧めします-Kutools for Excel、その高度な機能により、このタスクをすばやく簡単に解決できます。

ヒント:これを適用する カウントバイフォントカラー & SUMBYFONTCOLOR 機能、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Excel、次のようにしてください。

フォントの色に基づいてセルを数えます。

1。 カウント結果を配置するセルをクリックしてから、 クツール > Kutools関数 > 統計と数学 > カウントバイフォントカラー、スクリーンショットを参照してください:

2。 の中に 関数の引数 ダイアログボックスで、フォントの色でカウントするデータ範囲とカラーインデックスセルを指定します。スクリーンショットを参照してください。

3。 次に、をクリックします OK ボタンをクリックすると、最初のカウント結果が表示されます。他の結果を取得するには、この数式をコピーして、必要に応じてセル参照を変更する必要があります。 スクリーンショットを参照してください:


フォントの色に基づいてセルを合計します。

1。 カウント結果を配置するセルをクリックしてから、 クツール > Kutools関数 > 統計と数学 > SUMBYFONTCOLOR、スクリーンショットを参照してください:

2。 の中に 関数の引数 ダイアログボックスで、フォントの色で合計するデータ範囲とカラーインデックスセルを指定します。スクリーンショットを参照してください。

3。 次に、をクリックします OK ボタンをクリックすると、最初の合計結果が表示されます。他の結果を取得するには、この数式をコピーして、必要に応じてセル参照を変更する必要があります。 スクリーンショットを参照してください:

クリックしてKutoolsfor Excelと無料トライアルを今すぐダウンロードしてください!


驚くべき機能を備えたフォントの色に基づいてセルをカウントまたは合計します-色でカウント

Kutools for Excel また、簡単な機能を提供します- 色で数える、このユーティリティを使用すると、必要に応じて、背景色、フォントの色、条件付き書式で、カウント、合計、平均セルなどの計算結果をすばやく取得できます。

ヒント:これを適用する 色で数える 機能、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Excel、次のようにしてください。

1。 さまざまな色に基づいてカウントおよび合計するデータ範囲を選択します。

2に設定します。 OK をクリックします。 クツールズプラス> 色で数える、スクリーンショットを参照してください:

3。 の中に 色で数える ダイアログボックスで、 標準フォーマット カラー方式 ドロップダウンして選択します フォントカウントタイプ ドロップダウンすると、同じフォントの色のセルがカウント、合計、平均化されます。スクリーンショットを参照してください。

4。 そして、 レポートを生成する ボタンをクリックすると、新しいワークブックに統計が表示されます。 スクリーンショットを参照してください:

クリックしてKutoolsfor Excelと無料トライアルを今すぐダウンロードしてください!


その他の記事:

  • Excelの背景色に基づいてセルをカウントして合計する
  • 赤、緑、青など、背景色が異なるセルの範囲があるとしますが、その範囲内で特定の背景色を持つセルの数を数え、同じ特定の色の色付きセルを合計する必要があります。 。 Excelには、カラーセルの合計と数を計算する直接の数式はありません。ここでは、この問題を解決するいくつかの方法を紹介します。
  • Excelのセル範囲の太字の数値を合計/カウントする
  • ワークシートにいくつかの太字の数値を含むデータ範囲があり、太字のセルのみを合計またはカウントしたい場合は、もちろん手動でXNUMXつずつ合計することもできますが、時間がかかります。 簡単かつ迅速な方法で、Excelの太字のセルのみを合計またはカウントするにはどうすればよいですか?
  • 複数のセルに色のグラデーションを適用する
  • Excelでは、XNUMXつのセルまたは複数のセルに背景色を簡単に塗りつぶすことができますが、次のスクリーンショットに示すように、色をグラデーションで塗りつぶす必要がある場合があります。ExcelでXNUMXつのセルまたは複数のセルにまたがる色のグラデーションを取得するにはどうすればよいですか。
  • セル列を連結し、Excelでテキストの色を維持する
  • ご存知のとおり、セルの列をXNUMXつの列に連結または結合すると、セルの書式設定(テキストのフォントの色、数値の書式設定など)が失われます。 この記事では、セルの列をXNUMXつに結合し、Excelでテキストの色をできるだけ簡単に保つためのいくつかの秘訣を紹介します。

フォント/背景/条件付き書式の色に基づいてセルをカウントまたは合計します。

Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

最高のオフィス生産性向上ツール

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト ツール (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット ツール (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

説明


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (52)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi..


I used it to count and sum from matrix. The problem is that the I need to count/sum in multiple range of cells. Is it possible to update this code to do this?
This comment was minimized by the moderator on the site
Hello, Joseph,

Maybe there is no direct way for you to count or sum the cell values based on font color in multiple ranges, but, you can apply the third method in this article and use Count by Color feature of Kutools for Excel, with this feature, you just need to select the multiple ranges first, and then apply the feature.
https://www.extendoffice.com/documents/excel/1418-excel-count-sum-by-font-color.html#a3

Please try it, thank you!
This comment was minimized by the moderator on the site
COUNT CELLS BY FONT COLOR tutorial was great! But it is not working when the font color was based on the conditional formatting. Do you have something for this concern?
This comment was minimized by the moderator on the site
Hello,
The codes in this article can not support the conditional formatting, but, you can use our Kutools for Excel's Count by Color feature, it can help you to count or sum conditional font colors. Please try it.
This comment was minimized by the moderator on the site
This was exactly what I needed - Thanks!
This comment was minimized by the moderator on the site
= SumByColor (A1: D8, A1) NÃO FUNCIONOU


=SumByColor(A1:D8;A1) FUNCIONOU

TIRANDO ESPAÇO E USANDO " ; " AO INVÉS DE " , " AI FUNCIONOU LEGAL.

USO EXCEL 10


MUITO BOM.


OBRIGADO
This comment was minimized by the moderator on the site
Is there a way to change Count Or Sum Cells Based On Font Colors With User Defined Function into count or sum cells based on de conditional formating?

I've tried with

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double

Application.Volatile
Dim rng As Range
For Each rng In pRange1

If rng.FormatConditions.Font.Color = pRange2.FormatConditions.Font.Color Then
CountColour = CountColour + 1

End If
Next
End Function

But it appears not to work, any suggestion?
Thanks
This comment was minimized by the moderator on the site
Hello, Borja,
May be you can use our product, Kutools for Excel, with its Count by Color feature, you can quickly count or sum the cell values based on the conditional formatting without any VBA code, please try. You can download it and free trial in 60 day.
Thank you!
This comment was minimized by the moderator on the site
I tried the SumByColor. It works, but not if the numbers have been coloured by conditional formatting. For example, I have a list of different numbers that are coloured red if they are within a range set by a conditional formatting rule. I would then like to sum only the red-coloured numbers. But the SumByColor VBA code does not work in this situation. Any suggestions to make it work. Thanks
This comment was minimized by the moderator on the site
Hello, Xiahui,
The above code can not applied to conditional formatting color, but, you can use our Kutools for Excel' Count by color feature, with it, you can quickly get the result for counting or summing based on the conditional formatting color. See the below screenshot:
This comment was minimized by the moderator on the site
Hey
Nice macro. I used it to just count from a simple matrix. The problem is that the macro counts also empty cells. How to exclude empty cells from counting?
This comment was minimized by the moderator on the site
Hello, Kriss,
To count the cells based on font color excluding the blank cells, please apply the below User Defined Function, please try:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
If rng.Value <> "" Then
If rng.Font.Color = pRange2.Font.Color Then
CountColour = CountColour + 1
End If
End If
Next
End Function
This comment was minimized by the moderator on the site
Exactly what I was looking for! This will save me lots of time. Thank You
This comment was minimized by the moderator on the site
Muito obrigada já ajudou muito, porém a minha formula só adiciona à soma outro número quando eu uso o pincel para mudar a cor, se eu trocar a cor da fonte pela barra de ferramenta não dá certo, alguém saber me explicar -
This comment was minimized by the moderator on the site
This was SO helpful - Thanks very much!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations