ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
LPI ID 登録
x

or

Excelで背景色に基づいてセルを数え、合計する方法は?

赤、緑、青など、背景色が異なるセルの範囲があるとします。ただし、その範囲のセルの中に特定の背景色があるものをいくつか数え、同じ色のセルを合計する必要があります。 。 Excelでは、カラーセルの合計とカウントを計算する直接的な公式はありません。ここで、この問題を解決するためのいくつかの方法を紹介します。

FilterとSUBTOTALによる特定の塗りつぶしの色に基づいてセルをカウントして合計する

GET.CELL関数による特定の塗りつぶし色に基づくセルの数と合計

ユーザー定義関数で特定の塗りつぶし色に基づいてセルを数え、合計する

Kutools関数を使用して特定の塗りつぶしの色に基づいてセルをカウントおよび合計する

Kutools for Excelを使用して、特定の塗りつぶし色(または条件付き書式設定色)に基づいてセルをカウントおよび合計する

Excelで色付きセルを数える、合計する、平均するためのワンクリック

優秀な カラーでカウント の特徴 Kutools for ExcelあなたはすぐにExcelでワンクリックで指定された塗りつぶしの色やフォントの色でセルを数える、合計する、平均することができます。 また、この機能は塗りつぶしの色やフォントの色によってセルの最大値と最小値も調べます。 フル機能の無料試用版30-day!
色による広告数2


色付きセルをフィルタと小計でカウントして合計する

下のスクリーンショットに示すようなフルーツの売り上げ表があり、Amount列の色付きのセルを数えるか合計するとします。 このような場合は、[金額]列を色でフィルタ処理してから、フィルタ処理された色付きセルをSUBTOTAL関数でExcelで簡単にカウントまたは合計できます。

1。 空白のセルを選択してSUBTOTAL機能に入ります。

  1. 同じ背景色のすべてのセルを数えるには、式を入力してください = SUBTOTAL(102、E2:E20);
  2. 同じ背景色のすべてのセルを合計するには、式を入力してください = SUBTOTAL(109、E2:E20);


注:どちらの式でも、E2:E20は色付きのセルを含むAmount列です。必要に応じて変更できます。

2。 テーブルのヘッダを選択して、をクリックします。 データ > フィルタ。 スクリーンショットを見る:

3。 フィルタアイコンをクリックします [金額]列のヘッダーセルにある 色で絞り込みます 指定された色はあなたが連続して数えるでしょう。 スクリーンショットを参照してください。

フィルタ処理後、両方のSUBTOTAL数式はAmount列のすべてのフィルタ処理済みカラーセルを自動的にカウントおよび合計します。 スクリーンショットを参照してください。

注:この方法では、カウントまたは合計する色付きのセルが同じ列にある必要があります。


GET.CELL関数による色付きセルのカウントまたは合計

このメソッドでは、GET.CELL関数を使用して名前付き範囲を作成し、セルのカラーコードを取得してから、Excelでそのカラーコードで簡単にカウントまたは合計します。 次のようにしてください。

1に設定します。 OK をクリックします。 > 名前を定義する。 スクリーンショットを見る:

2。 New Nameダイアログで、以下のスクリーンショットのようにしてください。
(1)[名前]ボックスに名前を入力します。
(2)式を入力してください = GET.CELL(38、Sheet4!$ E2) 参照ボックスに(注意:式中、 38 セルコードを返すことを意味します。 Sheet4!$ E2 テーブルデータに基づいて変更する必要がある列ヘッダーを除く、Amount列の最初のセルです。
(3)をクリック OK ボタン。

3。 今すぐ元のテーブルに新しいColor列を追加します。 次に式を入力 = NumColor 次に、[オートフィル]ハンドルをドラッグして[色]列の他のセルに数式を適用します。 スクリーンショットを参照してください。
式中、 NumColor 最初の2ステップで指定した名前付き範囲です。 設定した名前に変更する必要があります。

[金額]列の各セルのカラーコードが[色]列に返されるようになりました。 スクリーンショットを参照してください。

4。 アクティブワークシートの空白の範囲で塗りつぶしの色をコピーして一覧表示し、次のスクリーンショットのように横に数式を入力します。
A.色で細胞を数えるには、式を入力してください = COUNTIF($ F $ 2:$ F $ 20、NumColor);
B.色でセルを合計するには、式を入力してください = SUMIF($ F $ 2:$ F $ 20、NumColor、$ E $ 2:$ E $ 20).

:両方の式で、 $ F $ 2:$ F $ 20 色の列です。 NumColor 指定された名前付き範囲 $ E $ 2:$ E $ 20 金額列です。必要に応じて変更できます。

これで、[金額]列のセルが塗りつぶしの色で数えられ、合計されるのがわかります。


ユーザー定義関数で特定の塗りつぶし色に基づいてセルを数え、合計する


色付きのセルが下のスクリーンショットのようにある範囲で分散していると仮定すると、上記の両方の方法で色付きのセルを数えたり合計したりすることはできません。 ここでは、この方法で問題を解決するためのVBAを紹介します。

1。 押さえつける Alt + F11 キーを押すと、 アプリケーション用Microsoft Visual Basic 窓。

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

VBA:背景色に基づいてセルをカウントおよび合計します。

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

3。 次に、コードを保存し、次の数式を適用します。
A.色付きのセルを数える: =カラーファンクション(A、B:C、FALSE)
B.色付きのセルを合計します。 =カラーファンクション(A、B:C、TRUE)

注:上記の式では、 A カウントと合計を計算する特定の背景色のセルです。 紀元前 カウントと合計を計算するセル範囲です。

4。 たとえば、次のスクリーンショットを取って、数式を入力します=カラーファンクション(A1、A1:D11、FALSE) 黄色の細胞を数える。 そして、式を使う =カラーファンクション(A1、A1:D11、TRUE) 黄色のセルを合計する。 スクリーンショットを見る:

5。 他の色のセルを数えて合計したい場合は、ステップ4を繰り返してください。 次に、次の結果が得られます。


Kutools関数を使用して特定の塗りつぶしの色に基づいてセルをカウントおよび合計する

ExcelのKutoolsはまた、Excelユーザーが特別な計算をするのを助けるためにいくつかの便利な機能をサポートします、セル背景色によるカウント、フォント色による合計など。

Kutools for Excel -Excel用の300以上の便利なツールが含まれています。 フル機能の無料試用版30-day、クレジットカードは不要です! 今すぐ入手

1。 集計結果を配置する空白のセルを選択して、 クツール > Kutoolsの関数 > 統計&数学 > COUNTBYCELLCOLOR。 スクリーンショットを見る:

2。 関数引数ダイアログで、色付きセルを数える範囲を指定してください。 参照 ボックスで、指定した背景色で塗りつぶされているセルを選択します。 Color_index_nr ボックスをクリックし、 OK ボタン。 スクリーンショットを見る:

ノート:
(1)指定したKutools関数を入力することもできます = COUNTBYCELLCOLOR($ A $ 1:$ E $ 20、G2) 空白のセルまたは数式バーで直接計算結果を取得します。
(2)をクリック クツール > Kutoolsの関数 > 統計&数学 > SUMBYCELLCOLOR タイプ = SUMBYCELLCOLOR($ A $ 1:$ E $ 20、G2) 空白のセルに直接指定された背景色に基づいてセルを合計する。
適用 COUNTBYCELLCOLOR SUMBYCELLCOLOR 背景色ごとに別々に機能し、以下のスクリーンショットのように結果が得られます。

Kutoolsの関数 Excelユーザーが簡単に計算できるように、次のような多数の組み込み関数が含まれています。 カウント/合計/平均表示セル, セル色によるカウント/合計, フォント色によるカウント/合計, 文字数を数える, 太字フォントで数えるなどです。 無料お試しを!


Kutools for Excelで特定の塗りつぶし色に基づいてセルを数え、合計する

上記のユーザー定義関数を使用すると、数式を1つずつ入力する必要があります。異なる色が多い場合、この方法は面倒で時間がかかります。 しかし、もしあなたが Kutools for Excelさん カラーでカウント ユーティリティを使用すると、色付きセルのレポートをすばやく生成できます。 あなたは色のついた細胞を数えて合計するだけでなく、色のついた範囲の平均値、最大値、最小値を得ることができます。

Kutools for Excel -Excel用の300以上の便利なツールが含まれています。 フル機能の無料試用版30-day、クレジットカードは不要です! 今すぐ入手

1。 使用する範囲を選択してをクリックします Kutools Plus > カラーでカウント、スクリーンショットを見る:

2。 とで カラーでカウント ダイアログボックスは、下のスクリーンショットのようにしてください。
(1)選択 標準フォーマット から カラー法 ドロップダウンリスト;
(2)選択 背景 から カウントタイプ ドロップダウンリスト。
(3)[レポート生成]ボタンをクリックします。

:色付きセルを特定の条件付き書式設定色で数えて合計するには、選択してください 条件付き書式 から カラー法 上のダイアログのドロップダウンリスト、または選択 標準および条件付き書式設定 指定された色で塗りつぶされたすべてのセルを数えるためにドロップダウンリストから。

これで、統計を含む新しいワークブックを入手できます。 スクリーンショットを参照してください。

滞在期間の長さによって発生する カラーでカウント 機能は、背景色またはフォント色によって(カウント、合計、平均、最大など)セルを計算します。 無料お試しを!


関連記事:

Excelのフォントの色に基づいてセルの数を数える方法


デモ:背景、条件付き書式設定の色に基づいてセルを数え、合計します。

Kutools for Excel Excel用の300を超える便利なツールが含まれており、30日以内に無料で試用できます。 今すぐダウンロードして無料試用!

Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mori · 9 months ago
    I copied and paste but calculation result is "0" why?? I am using Office 2016.
  • To post as a guest, your comment is unpublished.
    Troy Havard · 10 months ago
    I've copied and pasted as stated and have used this formula for over a year but recently saved the workbook to a new name and now the function doesn't work! I can't figure out what the deal is and I'm losing hair and sleep over it! Loading the original workbook, the formula works like a charm but going back to the new one, it doesn't! I've loaded VBA and tried re-creating the function but it doesn't work. Using Office 2019 - any help appreciated.
    • To post as a guest, your comment is unpublished.
      Jku · 9 months ago
      #NAME clearly indicates some keyword is not used in 2019, say, Interior.ColorIndex. Try to figure out changing the code from minimum lines to the full by adding one by one or search for the keywords in Excel/VBA in 2019
    • To post as a guest, your comment is unpublished.
      Troy Havard · 10 months ago
      I should probably have also noted that I get a #NAME? error in the cell in which I try to use the function.
  • To post as a guest, your comment is unpublished.
    Karolin · 11 months ago
    works fine, except it does not update the value in the totals when i change a cell to a diffrent colour. i have to click in the totals cell again to trigger a recount. Any Ideas how to fix this?
    • To post as a guest, your comment is unpublished.
      Arnier Hamz · 10 months ago
      Same here, i tried Ctrl+Alt+F9 or Ctrl+Shift+Alt+F9 to recalculate all formula and it works
  • To post as a guest, your comment is unpublished.
    Aaron · 1 years ago
    This doesn't work at all. It's total BS.
  • To post as a guest, your comment is unpublished.
    Schmingy · 1 years ago
    I was experiencing issues when attempting to use this function as-is to count/sum the lighter (pastel?) colors, at least in Excel 2016. Some debugging led me to realize that the range of "ColorIndex" values is quite limited, and the function above fails to distinguish between light yellow and light orange, reading both as ColorIndex = 19.

    Using the "Color" attribute, instead (as in "lCol = rColor.Interior.Color" and the two instances of "If rCell.Interior.Color = lCol Then", per the sample code above), resolved the issue.
  • To post as a guest, your comment is unpublished.
    Hredoy · 1 years ago
    i want to colour in excel by using if function.
  • To post as a guest, your comment is unpublished.
    Keerthi · 1 years ago
    Fix your formula, its not "=colorfunction(A,B:C,FALSE)", but "=colorfunction(A;B:C;FALSE)" its a semi-colon, not a comma.
    • To post as a guest, your comment is unpublished.
      Slegnor · 1 years ago
      I get an error when using ; but using, calculates fine?
  • To post as a guest, your comment is unpublished.
    Don Sison · 1 years ago
    This is useful for counting cells with a specific colour. How do you count all cells with any colour?
  • To post as a guest, your comment is unpublished.
    Ashwin · 1 years ago
    Its work for me but does not get Auto refreshed - evey time i have to come back to cell and press enter. Any reason ?
  • To post as a guest, your comment is unpublished.
    Bobo · 1 years ago
    I have a few merged cells in the range, and the formula calculates the count of each cell within merged cell. I need count of each merged cell as 1. Waiting for some help.
  • To post as a guest, your comment is unpublished.
    Paul · 1 years ago
    I had the #NAME Error but I realised that it was because I was spelling COLOR as Colour (UK English Spelling). It worked after I change the spelling.
  • To post as a guest, your comment is unpublished.
    Oana · 1 years ago
    I tried to use this formula in a pivot table (and in a normal excel table) where I've applied conditional formatting to color the cells and it's not working. Do you know why and how can I fix this?
    Thanks!
  • To post as a guest, your comment is unpublished.
    Will · 1 years ago
    I copied and pasted this code into the module screen but when I went back to the spreadsheet, the ColorFunction only returned the #NAME? error. What am I doing wrong? I have Microsoft Excel for Mac version 15.41.
    • To post as a guest, your comment is unpublished.
      Arjun · 1 years ago
      I used the Code and it was working fine till now. Suddenly it has stopped working. This is a very useful tool for me. Kindly help.
    • To post as a guest, your comment is unpublished.
      amohuanna · 1 years ago
      Did you check the range value and cell that contains the desired color?
    • To post as a guest, your comment is unpublished.
      kasim · 1 years ago
      Please this VBA with the name of MY FUNCTION save as add in format(type). Then you can solve that problem.
      • To post as a guest, your comment is unpublished.
        Andrew Carpenter · 1 years ago
        I'm having this same problem, and unfortunately this answer makes absolutely zero sense in the English language. If anyone is able to suggest a translation, I'd be very interested in hearing it. Thanks.
        • To post as a guest, your comment is unpublished.
          Erin · 1 years ago
          The module & function can't have the same name. Change your module name to Color_Function instead of ColorFunction.
  • To post as a guest, your comment is unpublished.
    Jelena · 1 years ago
    Hi


    after applying range we need it jums back to VBA and says Ambiguous name detected: ColourFunction

    can you please help?
  • To post as a guest, your comment is unpublished.
    Kcc C · 2 years ago
    this doesn't work if you change the colors in the cells: so if you change yellow to red or yellow to blank, it doesn't change the count. if you add/create new colored cells then yes it updates the count, but if you change the color of a cell that has already been counted, then the count will not update.
    • To post as a guest, your comment is unpublished.
      Penny · 1 years ago
      if you go back in the cell text with the formula for summing or counting and hit enter, it will recalculate. Just have to remember to do that when changing colors on the range cells.
      • To post as a guest, your comment is unpublished.
        Tim · 1 years ago
        Is there a way to auto-calculate? going into each cell and hitting enter each time colors change is extremely tedious.
  • To post as a guest, your comment is unpublished.
    Casey · 2 years ago
    This has been so useful! Thanks very much for your help
  • To post as a guest, your comment is unpublished.
    Carolyn · 2 years ago
    The =colorfunction WAS working great for me ... got everything as I wanted it to work and then copied the sheet repeatedly ... then around the 10th copied sheet the formula stopped working ... what did I do wrong? How do I fix it?
  • To post as a guest, your comment is unpublished.
    luisa · 2 years ago
    hey, we used the colorfunction and it works fine, however as soon as we close the sheet and open it again the next day, we have to copy+paste+save it all over again, is there any way to save so it will always be there? we save the sheet in a folder that's shared within many computers. Thanks!
    • To post as a guest, your comment is unpublished.
      Tim · 2 years ago
      Luisa,
      When you open VBA, you have VBAProject (sheet1) its the place for makros for THIS SHEET. But you also have VBA Projects (PERSONAL.XLSB). Add module in PERSONAL and paste this makro there. This way you will have function avialable in every file on your computer.
      Im not sure but probably you dont have this PRESONAL.XLSB automaticly, you need to create it.
      Probably not the the fastest way but : click record macro, window will apear where you put name (whatever), shortcut (whatever) and place to store makro (chose personal macros sheet). Click ok, record any makro (puting 1 in cell A1), stop recording. Now you should have PERSONAL.XLSB in the list.
      Hope it works and helps :)
  • To post as a guest, your comment is unpublished.
    Justin · 2 years ago
    This works great unless you are trying to count colors from conditional formatting. Has anybody figured out how to solve that one?
    • To post as a guest, your comment is unpublished.
      Alex · 1 years ago
      Have you found a solution to this? I am trying to do the same thing but like you said, it does not work with conditional formatting.
  • To post as a guest, your comment is unpublished.
    Carly Strang · 2 years ago
    This doesn't differentiate between similar colours, so I changed it so it calls the HEX value of the colour instead:

    Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) As Variant
    Dim rCell As Range
    Dim lCol As Variant
    Dim vResult As Variant
    lCol = rColor.Interior.Color
    If SUM = True Then
    For Each rCell In rRange
    If rCell.Interior.Color = lCol Then
    vResult = WorksheetFunction.SUM(rCell, vResult)
    End If
    Next rCell
    Else For Each rCell In rRange
    If rCell.Interior.Color = lCol Then
    vResult = 1 + vResult
    End If
    Next rCell
    End If
    ColorFunction = vResult
    End Function

    Just remember when applying the formula that A cell of the colour you are looking for and B:C is the range to look in. Also, remember that excel can sometimes not auto-update any change to the cell so you might have to manually do it (or write a function ;-)
  • To post as a guest, your comment is unpublished.
    manali · 2 years ago
    I implemented case 1 and it worked successfully. But whenever I change the color the count does not change automatically. I need to click on Count and press enter. Can't the count be changed automatically?
    • To post as a guest, your comment is unpublished.
      Wendy · 2 years ago
      Did you find a solution to this b/c I'm having the same problem.
      • To post as a guest, your comment is unpublished.
        Liam Kennedy · 2 years ago
        Any news on this? I am having the same issue. Otherwise perfect :-)
        • To post as a guest, your comment is unpublished.
          Ryan · 2 years ago
          Code works perfectly but also ran into the same issue. Solved it by writing a quick macros that 'refreshes' the function(s) in the cells assigned so you have an accurate count as soon as you run the macros. Hope this helps!
          • To post as a guest, your comment is unpublished.
            Drew · 2 years ago
            Could you share the code you used to "refresh" the macros? I'd greatly appreciate it.
  • To post as a guest, your comment is unpublished.
    Hellen Hornby · 2 years ago
    Hi I tried the above in Excel and keep getting a 'ambiguous name detected' error message related to the colorfunction. Any thoughts?
  • To post as a guest, your comment is unpublished.
    a · 2 years ago
    the function does not differentiate between colours. it just counts any cell this is coloured.
    • To post as a guest, your comment is unpublished.
      Carly Strang · 2 years ago
      See my new reply, I've updated it so it will now differentiate between similar colours.
  • To post as a guest, your comment is unpublished.
    Andrea · 2 years ago
    Hi

    Fantastic tool and really easy to use so thank you!

    Is there any update on using this with conditional formatting? I think there is a fix above but I didn't understand how it worked. Simple instructions for a novice would be much appreciated!

    Thanks :)
  • To post as a guest, your comment is unpublished.
    saurabh · 2 years ago
    everything is good but what if i want to add cells across multiple worksheet
  • To post as a guest, your comment is unpublished.
    Hien · 2 years ago
    $2,322.29 2322.29
    $100.00 128.66
    $76.13 76.13
    $450.02 450.02
    $28.66 128.66
    $544.31 488.77

    0 0
    $278.66
    $636.76 636.76
    Please help the numbers on the left are the correct number but when i dragged down the formula i get the numbers on the right. As you can see some of the numbers are correct but others come out wrong. Please help me, i dont understand why this is not working. Thanks.
  • To post as a guest, your comment is unpublished.
    Hien · 2 years ago
    Please help, why do some of my numbers come out correct and some do not? Maybe two out of the 6 will be inccorect because its adding a different number from a different color.
    • To post as a guest, your comment is unpublished.
      mc · 2 years ago
      Change everything that says ".colorindex" to ".color"

      .ColorIndex only supports 256 Colours. And will round similar colours together essentuially.
  • To post as a guest, your comment is unpublished.
    RB · 2 years ago
    Very Helpful.

    Thanks a Lot.

    BR,
    RB.
  • To post as a guest, your comment is unpublished.
    Vamshi · 2 years ago
    The above function is only working for the data in a single sheet
    I want to capture the data from multiple workbooks.

    Please help .
  • To post as a guest, your comment is unpublished.
    Vamshi · 2 years ago
    Hello,

    The above function works only if the all the coloured cells are in single sheet .
    I am unable to perform the colorfunction sum if the coloured cells are in different sheets.
    Any help around this.

    EX;- Trying to consolidate the sum of coloured cells in a Master sheet it says #VALUE
  • To post as a guest, your comment is unpublished.
    Sarah Chen · 2 years ago
    Thanks for this. It's truely helpful to me!!!
  • To post as a guest, your comment is unpublished.
    Ramdzan · 2 years ago
    its a good function however it can't be save for the entire workbook, whenever to go to a new worksheet and I copy and paste the previous worksheet with the function it doesn't work and then must do it all over again, please advise if there anyway I can save the function for free ofcoz :0
  • To post as a guest, your comment is unpublished.
    AHMER IRFAN · 2 years ago
    Jazak ALLAH it was very helpful
  • To post as a guest, your comment is unpublished.
    Jacqui · 2 years ago
    Brilliant! I've been searching for a way to do this. Works perfectly and will save me so much time!!
  • To post as a guest, your comment is unpublished.
    Rod · 2 years ago
    Lack me words to express my gratitude for your code. You've saved a lot of time, wish a could buy you a beer.

    All the best, mate.
  • To post as a guest, your comment is unpublished.
    Phillip · 2 years ago
    Hi,

    Is there any way to change the code so that instead of calculating a SUM when set to TRUE, it will count the number of cells with numbers or text in?? Ideally I would like if it could count a number over 10,000, but just the COUNT function would be great. I have tried simply changing SUM in the code to COUNT, but it doesn't work.

    Any help would be great
  • To post as a guest, your comment is unpublished.
    Himmat · 3 years ago
    Good day,

    I have tried the coding provided. However I am using different color themes, which does not provide me with the answers I am seeking as the coding sums colors of a similar background and I need to obtain the sun for different colors. please assist
  • To post as a guest, your comment is unpublished.
    Ken · 3 years ago
    It's not working for me. I'm running Excel 2013 but I keep getting the Ambiguous name detected: colorfunction.
    Is there a way to fix this?
  • To post as a guest, your comment is unpublished.
    Dazzy · 3 years ago
    Fantastic! Worked very well.
  • To post as a guest, your comment is unpublished.
    Akshatha · 3 years ago
    Hi,

    Works Great. Needed a small tweak though. I have some colored empty cells which are also getting counted right now. How can i ignore those cells?

    Thanks
  • To post as a guest, your comment is unpublished.
    Sylvia · 3 years ago
    Your code works really well. Thanks. Can you now please help to alter the function of colorfunction so horizontally merged cell is counted as one? I am using the following function:
    Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
    lCol = rColor.Interior.ColorIndex
    If SUM = True Then
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = WorksheetFunction.SUM(rCell, vResult)
    End If
    Next rCell
    Else
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = 1 + vResult
    End If
    Next rCell
    End If
    ColorFunction = vResult
    End Function

    Thanks!
  • To post as a guest, your comment is unpublished.
    GV · 3 years ago
    Works Great !!!
    Thanks for posting!!
  • To post as a guest, your comment is unpublished.
    Kailas · 3 years ago
    Thanks! very useful function :)
  • To post as a guest, your comment is unpublished.
    Ranj · 3 years ago
    I have enabled macros to count cell colors. How do add another criteria for text? Lets say I have checked a range and recieved the count for cells that are green. How do I also check how many of those had "D" as text?

    thanks!
  • To post as a guest, your comment is unpublished.
    GK · 3 years ago
    Worked like a charm when other codes would not! THANK YOU!
  • To post as a guest, your comment is unpublished.
    Saifi · 3 years ago
    Thankyou. very helpful information
  • To post as a guest, your comment is unpublished.
    Mike · 3 years ago
    It seems good, but I have an issue, in the code section, you say it does the same thing as the Color Count Function, however, this is not true. It looks at all my fields instead of just the visable ones, I need to be able to code this to look at only the visable cells.

    Any help would be great.
  • To post as a guest, your comment is unpublished.
    @1Ednut · 3 years ago
    Thank you very much! this worked first time for me!!
    wow... i just thought.. "excel should be able to do this" and voila

    thank you thank you thank you again!
  • To post as a guest, your comment is unpublished.
    Sunil · 3 years ago
    Yes it has worked and very good. but what about if I have to change the color or reduce the colour cells or increase the cell , the formula don't increase or decrease accordingly as like in pivot we refreseh the pivot and sheet get update according to change in main data.
  • To post as a guest, your comment is unpublished.
    Shaun · 3 years ago
    wow, got this working but have an issue. I can get the formula to work on the same tab; but it will not work when looking up colours on a different tab. The other tabs contain colours that are generated by conditioning format; has any one got any advice