Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

Cum se numără și se sumează celulele pe baza culorii de fundal în Excel?

Presupunând că aveți o gamă de celule cu culori de fundal diferite, cum ar fi roșu, verde, albastru și așa mai departe, dar acum trebuie să numărați câte celule din acea gamă au o anumită culoare de fundal și să sumați celulele colorate cu aceeași culoare . În Excel, nu există o formulă directă pentru a calcula suma și numărul de celule de culoare, aici vă voi prezenta câteva modalități de a rezolva această problemă.


Numărați și Sumați celulele colorate după Filtru și SUBTOTAL

Presupunând că avem un tabel de vânzări de fructe, așa cum este prezentat mai jos, și vom număra sau însuma celulele colorate din coloana Suma. În această situație, putem filtra coloana Sumă după culoare, apoi putem număra sau suma celulelor colorate filtrate prin funcția SUBTOTAL cu ușurință în Excel.

1. Selectați celule goale pentru a intra în funcția SUBTOTAL.

  1. Pentru a număra toate celulele cu aceeași culoare de fundal, introduceți formula = SUBTOTAL (102, E2: E20);
  2. Pentru a rezuma toate celulele cu aceeași culoare de fundal, introduceți formula = SUBTOTAL (109, E2: E20);


notițe: În ambele formule, E2: E20 este coloana Suma care conține celulele colorate și le puteți schimba după cum aveți nevoie.

2. Selectați antetul tabelului și faceți clic pe Data > Filtru. Vedeți captura de ecran:

3. Faceți clic pe pictograma Filtru  în celula antet a coloanei Suma și faceți clic pe Filtrul de culoare și culoarea specificată pe care o veți număra succesiv. Vedeți captura de ecran:

După filtrare, ambele formule SUBTOTAL numărând și însumând automat toate celulele de culoare filtrate în coloana Suma. Vedeți captura de ecran:

notițe: Această metodă necesită celulele colorate pe care le veți număra sau sumă sunt în aceeași coloană.

Un singur clic pentru a număra, suma și media celulelor colorate în Excel

Cu cei excelenți Numără după culoare caracteristică a Kutools pentru Excel, puteți număra rapid, suma și media celulelor după culoarea de umplere specificată sau culoarea fontului cu un singur clic în Excel. În plus, această caracteristică va afla și valorile maxime și minime ale celulelor după culoarea de umplere sau culoarea fontului. Încercare gratuită completă de 30 de zile!
număr de anunțuri după culoarea 2

Kutools pentru Excel - Include mai mult de 300 de instrumente la îndemână pentru Excel. Versiune completă de încercare gratuită de 30 de zile, nu este necesar card de credit! Ia-L Acum

Numărați sau sumați celulele colorate prin funcția GET.CELL

În această metodă, vom crea un interval denumit cu funcția GET.CELL, vom obține codul de culoare al celulelor și apoi vom număra sau vom suma cu ușurință codul de culoare în Excel. Vă rugăm să faceți următoarele:

1. Clic Formule > Definiți numele. Vedeți captura de ecran:

2. În caseta de dialog Nume nou, vă rugăm să faceți următoarea captură de ecran:
(1) Tastați un nume în caseta Nume;
(2) Introduceți formula = GET.CELL (38, Sheet4! $ E2) în caseta Se referă la (nota: în formulă, 38 înseamnă returnarea codului celulei și Foaie4! $ E2 este prima celulă din coloana Sumă, cu excepția antetului coloanei pe care trebuie să o modificați pe baza datelor din tabel.)
(3) Faceți clic pe OK butonul.

3. Acum adăugați o nouă coloană de culoare chiar în tabelul original. Apoi tastați formula = NumColor și trageți mânerul de completare automată pentru a aplica formula altor celule din coloana Culoare. Vedeți captura de ecran:
notițe: În formulă, NumColor este intervalul numit pe care l-am specificat în primii 2 pași. Trebuie să îl schimbați cu numele specificat pe care l-ați setat.

Acum, codul de culoare al fiecărei celule din coloana Sumă revine în Coloana de culoare. Vedeți captura de ecran:

4. Copiați și enumerați culoarea de umplere într-un interval gol în foaia de lucru activă și tastați formulele alături, după cum se arată în imaginea de mai jos:
A. Pentru a număra celulele după culoare, vă rugăm să introduceți formula = COUNTIF ($ F $ 2: $ F $ 20, NumColor);
B. Pentru a însuma celulele după culoare, vă rugăm să introduceți formula = SUMIF ($ F $ 2: $ F $ 20, NumColor, $ E $ 2: $ E $ 20).

notițe: În ambele formule, $ F $ 2: $ F $ 20 este coloana Culoare, NumColor este intervalul denumit specificat, $ E $ 2: $ E $ 20 este coloana Suma și le puteți schimba după cum aveți nevoie.

Acum veți vedea că celulele din coloana Sumă sunt numărate și sumate după culorile lor de umplere.


Numărați și sumați celulele pe baza culorii de umplere specifice cu funcția definită de utilizator

Presupunând că celulele colorate se împrăștie într-un interval prezentat mai jos, ambele metode de mai sus nu pot conta sau însuma celulele colorate. Aici, această metodă va introduce un VBA pentru a rezolva problema.

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

VBA: Numărați și sumați celulele pe baza culorii de fundal:

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. Apoi salvați codul și aplicați următoarea formulă:
A. Numărați celulele colorate: = funcție de culoare (A, B: C, FALS)
B. Sumați celulele colorate: = funcție de culoare (A, B: C, TRUE)

Notă: În formulele de mai sus, A este celula cu culoarea de fundal particulară pe care doriți să o calculați și suma și B: C este intervalul de celule în care doriți să calculați numărul și suma.

4. Luați, de exemplu, următoarea captură de ecran, introduceți formula= funcție de culoare (A1, A1: D11, FALS) să numere celulele galbene. Și folosiți formula = funcție de culoare (A1, A1: D11, TRUE) pentru a însuma celulele galbene. Vedeți captura de ecran:

5. Dacă doriți să numărați și să sumați alte celule colorate, repetați pasul 4. Apoi veți obține următoarele rezultate:


Numărați și adunați celulele pe baza culorii de umplere specifice cu funcțiile Kutools

Kutools pentru Excel acceptă, de asemenea, câteva funcții utile pentru a ajuta utilizatorii Excel să facă calcule speciale, spune numărare după culoarea de fundal a celulei, sumă după culoarea fontului etc.

Kutools pentru Excel - Include mai mult de 300 de instrumente la îndemână pentru Excel. Versiune completă de încercare gratuită de 30 de zile, nu este necesar card de credit! Încercare gratuită acum!

1. Selectați celula goală în care plasați rezultatele numărării și faceți clic pe Kutools > Funcții Kutools > Statistică și matematică > COUNTBYCELLCOLOR. Vedeți captura de ecran:

2. În dialogul Argumente funcționale, vă rugăm să specificați intervalul în care veți număra celulele colorate din Referinţă , alegeți celula care este umplută de culoarea de fundal specificată în Color_index_nr și faceți clic pe butonul OK buton. Vedeți captura de ecran:

note:
(1) Puteți de asemenea să tastați funcția Kutools specificată = COUNTBYCELLCOLOR ($ A $ 1: $ E $ 20, G2)  în celula goală sau bara de formulă direct pentru a obține rezultatele numărării;
(2) Faceți clic pe Kutools > Funcții Kutools > Statistică și matematică > SUMBYCELLCOLOR sau tastați = SUMBYCELLCOLOR ($ A $ 1: $ E $ 20, G2) în celula goală direct pentru a suma celulelor pe baza culorii de fundal specificate.
Aplicați COUNTBYCELLCOLOR SUMBYCELLCOLOR funcții pentru fiecare culoare de fundal separat și veți obține rezultatele așa cum se arată în imaginea de mai jos:

Funcții Kutools conține o serie de funcții încorporate pentru a ajuta utilizatorii Excel să calculeze cu ușurință, inclusiv Număr / sumă / celule medii vizibile, Număr / sumă după culoarea celulei, Numărați / Sumați după culoarea fontului, Numărați personaje, Numărați în funcție de caractere aldine, Etc Aveți o încercare gratuită!


Numărați și sumați celulele pe baza culorii de umplere specifice cu Kutools pentru Excel

Cu funcția definită de utilizator de mai sus, trebuie să introduceți formula unul câte unul, dacă există o mulțime de culori diferite, această metodă va fi plictisitoare și consumatoare de timp. Dar dacă ai Kutools pentru Excel'S Numără după culoare utilitar, puteți genera rapid un raport al celulelor colorate. Nu numai că puteți număra și însuma celulele colorate, dar puteți obține și valorile medii, maxime și minime ale gamei colorate.

Kutools pentru Excel - Include mai mult de 300 de instrumente la îndemână pentru Excel. Versiune completă de încercare gratuită de 30 de zile, nu este necesar card de credit! Încercare gratuită acum!

1. Selectați intervalul pe care doriți să îl utilizați și faceți clic Kutools Plus > Numără după culoare, vezi captura de ecran:

2. Și în Numără după culoare caseta de dialog, vă rugăm să faceți cum se arată în imaginea de mai jos:
(1) Selectați Formatare standard de la Metoda culorii lista verticală;
(2) Selectați fundal de la Tipul de numărare lista verticală.
(3) Faceți clic pe butonul Generați raportul.

notițe: Pentru a număra și a suma celulelor colorate în funcție de culoarea de formatare condițională specifică, selectați Formatarea condițională de la Metoda culorii lista verticală din dialogul de mai sus sau selectați Formatare standard și condițională din lista derulantă pentru a număra toate celulele umplute de culoarea specificată.

Acum veți obține un nou registru de lucru cu statistici. Vedeți captura de ecran:

Platforma Numără după culoare caracteristica calculează (Număr, Sum, Mediu, Max etc.) celule după culoarea de fundal sau culoarea fontului. Aveți o încercare gratuită!


Articol asociat:


Demo: Numărați și sumați celulele pe baza fundalului, a culorii de formatare condiționată:


Kutools pentru Excel include mai mult de 300 de instrumente la îndemână pentru Excel, gratuite pentru a încerca fără limitări în 30 de zile. Descărcați și încercați gratuit acum!

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2019 și 365. Suportă toate limbile. Implementare ușoară în întreprindere sau organizație. Funcții complete de încercare gratuită de 30 de zile. Garanție de restituire a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse în fiecare zi!
fundul officetab
Say something here...
symbols left.
You are guest
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.
    kellytte · 8 months ago
    @Dusty Hi Dusty,
    You can try the Count by Color feature of Kutools for Excel. This feature will help you quickly calculate (count, sum, average, etc.) cells by cell background color or font color, no matter they are formatted by conditional formatting or solidly format.
  • To post as a guest, your comment is unpublished.
    Dusty · 9 months ago
    Is there a way to count different color backgrounds from conditional formatting? The current code as of 7/14/2020 counts them all as default yellow or not at all.
  • To post as a guest, your comment is unpublished.
    kellytte · 9 months ago
    @Dennis Hi Dennis,
    By default, formulas are calculated in Excel until you are turning off the Automatic Formula Calculation. You can enable it by clicking Formulas > Calculation Options > Automatic.
  • To post as a guest, your comment is unpublished.
    Dennis · 9 months ago
    Did anyone find a solution to auto-refresh? I have to manually refresh for it to update. Otherwise, it works great!
  • To post as a guest, your comment is unpublished.
    kellytte · 11 months ago
    @Natasha
    Hi Natasha,
    VBA is good but hard to apply. But below methods may solve your work easily too.
    Method 1: Use Find & Replace feature to select and statistic the color cells
    (1) Press Ctrl + H keys to open the Find and Replace dialog, and then enable the Find tab.
    (2) In the dialog, click Options to show advanced find options.
    (3) Then click Format > Choose Format From Cell, and select one of the specified color cells.
    (4) Click Find All. Now all cells with the same fill color are found out and listed at the bottom of the dialog.
    (5) Select one of found cells, and press Ctrl + A to select all found cells, so that these cells are selected in the worksheet.
    (6) Now you can get the count, average, sum, min, max, etc. of these cells in the task bar.
    Note: If a certain statistic result cannot be found one the taskbar, you can right click the task bar, and then tick the specified item to show it.

    Method 2: Kutools for Excel
    Kutools for Excel supports 30-day free trial. Therefore, you can download it and try its Count by color feature to solve your problem with several clicks only.
  • To post as a guest, your comment is unpublished.
    Natasha · 1 years ago
    Anyone have tips on a max by color VBA?
  • To post as a guest, your comment is unpublished.
    Krits · 1 years ago
    @Mori I try the same you this command =COUNTBYCELLCOLOR is counting only fill color but is not count by condition formating. Please help to improve code thx.
  • To post as a guest, your comment is unpublished.
    Paul · 1 years ago
    awesome fix! count by color over an entire sheet was just what i was looking for and your VBA code was tighter than others that i have looked at. Works like a charm. Thank you, and again, well done.
  • To post as a guest, your comment is unpublished.
    Mori · 2 years 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.
    Jku · 2 years ago
    @havdaddy #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.
    havdaddy · 2 years ago
    @havdaddy 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.
    havdaddy · 2 years 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.
    amirhamzah2107@gmail.com · 2 years ago
    @Karolin 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.
    Karolin · 2 years 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.
    Aaron · 2 years ago
    This doesn't work at all. It's total BS.
  • To post as a guest, your comment is unpublished.
    Schmingy · 2 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.
    Slegnor · 2 years ago
    @Keerthi I get an error when using ; but using, calculates fine?
  • To post as a guest, your comment is unpublished.
    Hredoy · 2 years ago
    i want to colour in excel by using if function.
  • To post as a guest, your comment is unpublished.
    Keerthi · 2 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.
    Don Sison · 2 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 · 3 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.
    Alex · 3 years ago
    @Justin 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.
    Tim · 3 years ago
    @Penny 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.
    Erin · 3 years ago
    @andrew.carpenter@gmail.com 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.
    Arjun · 3 years ago
    @Will 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.
    Bobo · 3 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 · 3 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 · 3 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.
    amohuanna · 3 years ago
    @Will Did you check the range value and cell that contains the desired color?
  • To post as a guest, your comment is unpublished.
    andrew.carpenter@gmail.com · 3 years ago
    @kasim 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.
    kasim · 3 years ago
    @Will 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.
    Penny · 3 years ago
    @kelli.crook9@gmail.com 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.
    Will · 3 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.
    Mike Brannigan · 3 years ago
    @WestwoodMike You can add and update button if someone else is using the file and they don't know about the Alt-Ctrl-F9. just add this line of code to the macro "Application.CalculateFull". it's that same as Alt-Ctrl-F9 just programmed into a button.
  • To post as a guest, your comment is unpublished.
    Jelena · 3 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.
    kelli.crook9@gmail.com · 3 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.
    Casey · 3 years ago
    This has been so useful! Thanks very much for your help
  • To post as a guest, your comment is unpublished.
    Carolyn · 3 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.
    Tim · 3 years ago
    @luisa 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.
    luisa · 3 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.
    Justin · 3 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.
    Drew · 3 years ago
    @Ryan 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.
    Ryan · 3 years ago
    @LiamKennedy1985 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.
    LiamKennedy1985 · 3 years ago
    @Wendy Any news on this? I am having the same issue. Otherwise perfect :-)
  • To post as a guest, your comment is unpublished.
    Wendy · 3 years ago
    @manali Did you find a solution to this b/c I'm having the same problem.
  • To post as a guest, your comment is unpublished.
    cobalt.kobold@gmail.com · 3 years ago
    @a 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.
    cobalt.kobold@gmail.com · 3 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 · 3 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.
    Hellen Hornby · 3 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 · 3 years ago
    the function does not differentiate between colours. it just counts any cell this is coloured.