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

Excelで条件付き書式を使用して色でセルをカウント/合計する方法は?

Excelでは、条件付き書式を使用して一部のセルに色を付けることができます。 このチュートリアルでは、Excelの条件付き書式を使用して、セルを色ですばやくカウントまたは合計するための便利で簡単な方法をいくつか説明します。

フォントの色でセルをカウントし、VBAで背景をカウントします

Kutools forExcelによる条件付き書式を使用したフォントの色によるセルのカウント/合計 良いアイデア3      遊びます

Kutools forExcelによる条件付き書式を使用した背景色によるセルのカウント/合計 良いアイデア3      遊びます


矢印青い右バブル フォントでセルをカウントし、VBAで背景色をカウントします

Excelでは、VBAコードのみが、特定のフォントと背景色に基づいてセルをすばやくカウントできます。

1。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール 以下のVBAコードをコピーしてポップに貼り付けます モジュール 窓。

VBA:フォントと背景色に基づいてセルをカウントします。

Sub DisplayFormatCount()
	'Updateby20150305
	Dim Rng As Range
	Dim CountRange As Range
	Dim ColorRange As Range
	Dim xBackColor As Long
	Dim xFontColor As Long
	On Error Resume Next
	xTitleId       = "KutoolsforExcel"
	Set CountRange = Application.Selection
	Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
	Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
	Set ColorRange = ColorRange.Range("A1")
	xReturn        = 0
	For Each Rng In CountRange
		qqq           = Rng.Value
		xxx           = Rng.DisplayFormat.Interior.Color
		If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
			xBackColor   = xBackColor + 1
		End If
		If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
			xFontColor = xFontColor + 1
		End If
	Next
	MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub

3。 クリック ラン ボタンまたはプレス F5 キーを押してコードを実行し、ポップダイアログで必要な範囲を選択します。 スクリーンショットを参照してください:
条件付きカラーによるドキュメント数-1

4。 クリック OK、次に、セルをカウントするフォントと背景色のセルを選択します。 スクリーンショットを参照してください:

条件付きカラーによるドキュメント数-2

5。 クリック OK。 次に、ダイアログが表示され、範囲内の選択したセルと同じ背景色とフォント色を持つセルがいくつあるかがわかります。

条件付きカラーによるドキュメント数-3


矢印青い右バブル Kutools forExcelによる条件付き書式を使用したフォントの色によるセルのカウント/合計

Excelでは、条件付き書式のみを使用して、フォントの色でセルをカウントまたは合計することはできません。 ただし、と呼ばれる便利なアドインがあります Kutools for Excel それはあなたがそのでこの問題を素早く解決するのを助けることができます 色で数える 特徴。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

無料インストール Kutools for Excel、以下のようにしてください:

1.カウントする範囲を選択するか、条件付き書式を使用してフォントの色でセルを合計し、[ クツールズプラス> 色で数える。 スクリーンショットを参照してください:

条件付きカラーによるドキュメント数-4

2.次に、 色で数える ダイアログ、選択 条件付き書式カラー方式 リストと フォントカラータイプ リスト。 次に、ダイアログでカウントと合計の結果を表示できます。 スクリーンショットを参照してください:

条件付きカラーによるドキュメント数-5

Note:計算結果をレポートとして出力したい場合は、 レポートを生成するin個 色で数える ダイアログをクリックすると、レポートが新しいワークブックに作成されます。 スクリーンショットを参照してください:

条件付きカラーによるドキュメント数-6      条件付きカラーによるドキュメント数-7


Kutools forExcelによる条件付き書式を使用した背景色によるセルのカウント/合計

条件付き書式を使用して背景色でセルをカウントまたは合計する場合は、適用することもできます 色で数える の有用性 Kutools for Excel.

1.条件付き書式を使用して、背景色でセルをカウントまたは合計する範囲を選択し、[ クツールズプラス > 色で数える.

無料インストール Kutools for Excel、以下のようにしてください:

2.次に、 色で数える ダイアログ、選択 条件付き書式カラー方式 リストと 経歴 カラータイプ リスト。 次に、ダイアログでカウントと合計の結果を表示できます。 スクリーンショットを参照してください:

条件付きカラーによるドキュメント数-8

Note:計算結果をレポートとして出力したい場合は、 レポートを生成する セクションに 色で数える ダイアログをクリックすると、レポートが新しいワークブックに作成されます。 スクリーンショットを参照してください:

条件付きカラーによるドキュメント数-9

色によるカウントの詳細については、ここをクリックしてください。

ヒント。 色で数える このユーティリティを使用すると、標準書式のみ、または標準と条件付き書式の両方を使用して、背景色またはフォントの色によってセルをカウント/合計/平均することもできます。 30日間無制限でCount by Colorを適用したい場合は、 今すぐダウンロードして無料トライアルをお試しください。


矢印青い右バブル フォントの色または背景色でセルを計算する


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

🤖 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

This is a great piece of VBA and works perfectly. Are you able to modify this code to make it a function and then be used as a formula?

e.g.
=DisplayFormatCount(A14:E14,A2,False) for counting background colour (Count Range, Colour Match Cell, type)

=DisplayFormatCount(C29:D29,A2,True) for counting font colour

I would like to you something like this for an input form of many tables and validation fields that are compulsory. I would then be able to count how many fields that have not been completed correctly.


Cheers
This comment was minimized by the moderator on the site
Could you please teach me VBA codes I would like to learn VBA using excel sheet
This comment was minimized by the moderator on the site
Chào bạn.

VBA đếm ô màu rất hay, tuy nhiên bạn có thể sửa giúp mình để kết quả không hiện thành msg box mà hiện luôn trên ô excel chỉ định được không? thêm cả hàm sum, average nữa thì càng tốt :D . Mail của mình là . Mình cám ơn.
This comment was minimized by the moderator on the site
Hi,
How do I modified the code for the cell contain conditional formatting? Because it count the background as "blank".


Thanks.
This comment was minimized by the moderator on the site
Sorry I have no idea about the VBA code.
This comment was minimized by the moderator on the site
May I congratulate you on a most easily understood and well written VBA program to perform such a simple task - i.e., count the number of cells with a specific color derived from Conditional Formatting. It beats the pants of the monster program by Pearson, and his does not even work, at least in Excel 2013. Nor do other supposed counting programs work that I have tried. Yours is the only one!! This worked perfectly. Thank you, thank you, thank you. Best Holiday Wishes, Mort in Dallas
This comment was minimized by the moderator on the site
hi


kindly send the above VBA code same code is I need please help.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations