Přejít k hlavnímu obsahu

Jak počítat nebo sčítat buňky na základě barev písma v aplikaci Excel?

Jak můžete získat počet buněk nebo sečíst všechny buňky, které obsahují určitou barvu písma v aplikaci Excel? Například mám v listu řadu dat, jak ukazuje následující snímek obrazovky, a teď chci příslušně spočítat nebo sečíst buňky, které mají červenou, modrou a černou barvu písma. Normálně neexistuje žádný přímý způsob, jak se s tímto úkolem vypořádat, zde budu hovořit o některých tricích pro řešení této úlohy.

Počítání nebo součet buněk na základě barev písma pomocí funkce definované uživatelem

Počítání nebo součet buněk na základě barvy písma s některými užitečnými funkcemi

Počítání nebo součet buněk na základě barvy písma s úžasnou funkcí - počet podle barvy


Počítání nebo součet buněk na základě barev písma pomocí funkce definované uživatelem

Počet buněk na základě barev písma:

Chcete-li vypočítat počet buněk se specifickými barvami písma, postupujte takto:

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Počet buněk na základě barev písma:

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. Poté uložte tento kód a vraťte se zpět do listu a poté zadejte tento vzorec do prázdné buňky = CountColour (A1: D10, A2) , viz screenshot:

Poznámka: Ve výše uvedeném vzorci, A1: D10 je rozsah, který chcete použít a A2 je buňka s konkrétní barvou písma, kterou chcete počítat.

4. Po zadání vzorce stiskněte vstoupit klíč a získáte počet buněk s červenými barvami písma. Pokud chcete počítat další buňky barevného písma, zadejte prosím vzorec podle potřeby, jak je to možné. Získáte následující výsledky:


Součet buněk na základě barev písma:

Chcete-li sečíst buňky na základě barev písma, může vám pomoci následující funkce definovaná uživatelem.

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Součet buněk na základě barev písma:

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. Poté tento kód uložte a vraťte se do původního listu a poté zadejte tento vzorec = SumByColor (A1: D8, A1) do prázdné buňky, viz screenshot:

Poznámka: Ve výše uvedeném vzorci, A1: D10 je rozsah, který chcete použít a A2 je buňka s konkrétní barvou písma, kterou chcete sečíst.

4. Pak stiskněte tlačítko vstoupit a přidáte všechny buňky červenými barvami písma. Pokud chcete sečíst další buňky barevného písma, opakovaně zadejte vzorec. Získáte následující výsledek:


Počítání nebo součet buněk na základě barvy písma s některými užitečnými funkcemi

Může to být funkce definovaná uživatelem, je pro vás obtížné ji uložit a použít, zde vám doporučím šikovný nástroj -Kutools pro Excel, s jeho pokročilými funkcemi, můžete tento úkol vyřešit rychle a snadno.

Tip:Použít toto COUNTBY FONTCOLOR a SUMBYFONTCOLOR funkce, za prvé, měli byste si stáhnout Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, udělejte prosím toto:

Počet buněk na základě barev písma:

1. Klikněte na buňku, kam chcete umístit výsledek počítání, a poté klikněte Kutools > Funkce Kutools > Statistické a matematické > COUNTBY FONTCOLOR, viz screenshot:

2. V Argumenty funkce v dialogovém okně zadejte rozsah dat a buňku indexu barev, které chcete počítat podle barvy písma, viz screenshot:

3. A pak klikněte OK Tlačítko, získáte první výsledek počítání, abyste získali další výsledky, stačí zkopírovat tento vzorec a změnit odkazy na buňky podle vaší potřeby. Viz snímek obrazovky:


Součet buněk na základě barev písma:

1. Klikněte na buňku, kam chcete umístit výsledek počítání, a poté klikněte Kutools > Funkce Kutools > Statistické a matematické > SUMBYFONTCOLOR, viz screenshot:

2. V Argumenty funkce v dialogovém okně zadejte rozsah dat a buňku indexu barev, které chcete sečíst podle barvy písma, viz screenshot:

3. A pak klikněte OK Tlačítko, získáte první výsledek součtu. Chcete-li získat další výsledky, stačí zkopírovat tento vzorec a změnit odkazy na buňky podle vaší potřeby. Viz snímek obrazovky:

Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!


Počítání nebo součet buněk na základě barvy písma s úžasnou funkcí - počet podle barvy

Kutools pro Excel také poskytuje snadnou funkci - Počítat podle barvyPomocí tohoto nástroje můžete rychle získat výsledek výpočtu, jako je počet, součet, průměrné buňky atd., podle barvy pozadí, barvy písma, podmíněného formátování, jak potřebujete.

Tip:Použít toto Počítat podle barvy funkce, za prvé, měli byste si stáhnout Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. Vyberte rozsah dat, který chcete spočítat a sečíst na základě různých barev.

2, klikněte Kutools Plus> Počítat podle barvy, viz screenshot:

3. V Počítat podle barvy dialogové okno vyberte Standardní formátování z Barevná metoda rozevírací seznam a vyberte Písmo pod Typ počítání rozevírací seznam a buňky se stejnými barvami písma byly spočítány, přidány, zprůměrovány atd., viz screenshot:

4. A pak klikněte na tlačítko Generovat zprávu tlačítko, získáte statistiky v novém sešitu. Viz snímek obrazovky:

Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!


Další články:

  • Počítání a součet buněk na základě barvy pozadí v aplikaci Excel
  • Předpokládejme, že máte řadu buněk s různými barvami pozadí, například červenou, zelenou, modrou atd., Ale nyní musíte spočítat, kolik buněk v tomto rozsahu má určitou barvu pozadí a sečíst barevné buňky stejnou určitou barvou . V aplikaci Excel neexistuje žádný přímý vzorec pro výpočet součtu a počtu barevných buněk, zde vám představím několik způsobů, jak tento problém vyřešit.
  • Součet / počet tučných čísel v řadě buněk v aplikaci Excel
  • Pokud máte rozsah dat, který obsahuje některá tučná čísla v listu, a nyní chcete sečíst nebo spočítat pouze tučné buňky, můžete je samozřejmě sečíst po jednom ručně, ale bude to časově náročné. Jak můžete snadno a rychle sčítat nebo počítat pouze tučné buňky v aplikaci Excel?
  • Aplikujte barevný přechod na více buněk
  • V aplikaci Excel můžeme snadno vyplnit barvu pozadí do buňky nebo do více buněk, ale někdy potřebujeme, aby byla barva vyplněna přechodem, jak ukazuje následující snímek obrazovky, jak lze získat barevný přechod v buňce nebo přes více buněk v aplikaci Excel?
  • Zřetězte sloupce buněk a udržujte barvu textu v aplikaci Excel
  • Jak všichni víme, při zřetězení nebo kombinování sloupců buněk do jednoho sloupce dojde ke ztrátě formátování buňky (jako je barva písma textu, formátování čísel atd.). V tomto článku představím několik triků, jak kombinovat sloupce buněk do jednoho a co nejsnadněji zachovat barvu textu v aplikaci Excel.

Počítání nebo součet buněk na základě písma / pozadí / barvy podmíněného formátování:

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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