Ga naar hoofdinhoud

Hoe cellen tellen of optellen op basis van de lettertypekleuren in Excel?

Hoe kunt u het aantal cellen krijgen of alle cellen met een bepaalde letterkleur in Excel optellen? Ik heb bijvoorbeeld een gegevensbereik in een werkblad zoals in het volgende screenshot wordt getoond, en nu wil ik respectievelijk de cellen tellen of optellen met een rode, blauwe en zwarte lettertypekleur. Normaal gesproken is er geen directe manier om met deze taak om te gaan, hier zal ik het hebben over enkele trucs voor het oplossen van deze taak.

Tel of som cellen op basis van lettertypekleuren met door de gebruiker gedefinieerde functie

Tel of som cellen op basis van lettertypekleur met enkele handige functies

Tel of tel cellen op op basis van lettertypekleur met een geweldige functie - Tel op kleur


Tel of som cellen op basis van lettertypekleuren met door de gebruiker gedefinieerde functie

Tel cellen op basis van lettertypekleuren:

Ga als volgt te werk om het aantal cellen met specifieke lettertypekleuren te berekenen:

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: tel cellen op basis van lettertypekleuren:

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. Sla deze code vervolgens op, ga terug naar het werkblad en voer deze formule in een lege cel in = CountColour (A1: D10, A2) , zie screenshot:

Note: In de bovenstaande formule, A1: D10 is het bereik dat u wilt gebruiken en A2 is de cel met een bepaalde lettertypekleur die u wilt tellen.

4. Druk na het typen van de formule op Enter key, en je krijgt het aantal cellen met rode lettertypekleuren. Als u andere cellen met lettertypekleur wilt tellen, voert u de formule zo vaak mogelijk in. U krijgt de volgende resultaten:


Somcellen op basis van lettertypekleuren:

Om cellen op te tellen op basis van lettertypekleuren, kan de volgende door de gebruiker gedefinieerde functie u helpen.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: somcellen op basis van lettertypekleuren:

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. Sla deze code vervolgens op en keer terug naar het oorspronkelijke werkblad, en voer vervolgens deze formule in = SumByColor (A1: D8; A1) in een lege cel, zie screenshot:

Note: In de bovenstaande formule, A1: D10 is het bereik dat u wilt gebruiken en A2 is de cel met een bepaalde lettertypekleur die u wilt optellen.

4. Druk vervolgens op Enter key, en u telt alle cellen op met rode lettertypekleuren. Als u andere cellen in lettertypekleur wilt optellen, voert u de formule herhaaldelijk in. U krijgt het volgende resultaat:


Tel of som cellen op basis van lettertypekleur met enkele handige functies

Het kan zijn dat de door de gebruiker gedefinieerde functie lastig voor je is om op te slaan en toe te passen, hier zal ik je een handig hulpmiddel aanbevelen-Kutools for Excel, met zijn geavanceerde functies, kunt u deze taak snel en gemakkelijk oplossen.

Tips:Om dit toe te passen COUNTBYFONTKLEUR en SUMBYLETTERKLEUR functies, ten eerste moet u het Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excel, doe dit als volgt:

Tel cellen op basis van lettertypekleuren:

1. Klik op een cel waar u het telresultaat wilt plaatsen en klik vervolgens op Kutools > Kutools-functies > Statistisch en wiskundig > COUNTBYFONTKLEUR, zie screenshot:

2. In de Functieargumenten dialoogvenster, specificeer het gegevensbereik en de kleurindexcel die u op lettertypekleur wilt tellen, zie screenshot:

3. En klik dan OK knop, krijgt u het eerste telresultaat, om andere resultaten te krijgen, hoeft u alleen deze formule te kopiëren en de celverwijzingen naar uw behoefte te wijzigen. Zie screenshot:


Somcellen op basis van lettertypekleuren:

1. Klik op een cel waar u het telresultaat wilt plaatsen en klik vervolgens op Kutools > Kutools-functies > Statistisch en wiskundig > SUMBYLETTERKLEUR, zie screenshot:

2. In de Functieargumenten dialoogvenster, specificeer het gegevensbereik en de kleurindexcel die u op lettertypekleur wilt optellen, zie screenshot:

3. En klik dan OK knop, u krijgt het resultaat van de eerste som, om andere resultaten te krijgen, hoeft u alleen deze formule te kopiëren en de celverwijzingen naar uw behoefte te wijzigen. Zie screenshot:

Klik om Kutools voor Excel en nu gratis uit te proberen!


Tel of tel cellen op op basis van lettertypekleur met een geweldige functie - Tel op kleur

Kutools for Excel biedt ook een gemakkelijke functie- Tel op kleurMet dit hulpprogramma kunt u snel het berekeningsresultaat zoals aantal, som, gemiddelde cellen enzovoort krijgen door de achtergrondkleur, lettertypekleur, voorwaardelijke opmaak naar behoefte.

Tips:Om dit toe te passen Tel op kleur -functie, ten eerste moet u de Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het gegevensbereik dat u wilt tellen en optellen op basis van verschillende kleuren.

2. Klikken Koetools Plus> Tel op kleur, zie screenshot:

3. In de Tel op kleur dialoogvenster, kies Standaardopmaak van het Kleur methode drop-down en selecteer doopvont onder de Type telling drop-down, en de cellen met dezelfde lettertypekleuren zijn geteld, opgeteld, gemiddeld enzovoort, zie screenshot:

4. En klik vervolgens op Genereer rapport knop, krijg je de statistieken in een nieuwe werkmap. Zie screenshot:

Klik om Kutools voor Excel en nu gratis uit te proberen!


Meer artikelen:

  • Tel en som cellen op basis van achtergrondkleur in Excel
  • Stel dat je een reeks cellen hebt met verschillende achtergrondkleuren, zoals rood, groen, blauw enzovoort, maar nu moet je tellen hoeveel cellen in dat bereik een bepaalde achtergrondkleur hebben en de gekleurde cellen met dezelfde bepaalde kleur optellen . In Excel is er geen directe formule om de som en het aantal kleurcellen te berekenen, hier zal ik u enkele manieren voorstellen om dit probleem op te lossen.
  • Tel / tel vetgedrukte cijfers in een reeks cellen in Excel
  • Als u een gegevensbereik heeft dat enkele vetgedrukte getallen in een werkblad bevat en u nu alleen de vetgedrukte cellen wilt optellen of tellen, kunt u ze natuurlijk een voor een handmatig optellen, maar dit zal tijdrovend zijn. Hoe kunt u op een gemakkelijke en snelle manier alleen de vetgedrukte cellen in Excel optellen of tellen?
  • Pas kleurverloop toe op meerdere cellen
  • In Excel kunnen we eenvoudig de achtergrondkleur in een cel of meerdere cellen vullen, maar soms hebben we het kleurverloop nodig zoals in het onderstaande screenshot, hoe kan het kleurverloop in een cel of over meerdere cellen in Excel worden verkregen?
  • Voeg celkolommen samen en behoud de tekstkleur in Excel
  • Zoals we allemaal weten, gaat bij het aaneenschakelen of combineren van celkolommen in één kolom de celopmaak (zoals tekstkleur, nummeropmaak, enz.) Verloren. In dit artikel zal ik enkele trucs introduceren om de celkolommen in één te combineren en de tekstkleur zo gemakkelijk mogelijk in Excel te behouden.
  • Tel of som cellen op basis van celkleur in Google-spreadsheet
  • Celwaarden tellen of optellen op basis van een specifieke celachtergrondkleur om het resultaat te krijgen zoals in het volgende screenshot. In dit artikel zal ik het hebben over het oplossen van deze taak in Google-spreadsheet en Microsoft Excel.

Cellen tellen of optellen op basis van lettertype / achtergrond / voorwaardelijke opmaakkleur:

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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