Ga naar hoofdinhoud

Hoe cellen tellen / optellen op basis van kleuren met voorwaardelijke opmaak in Excel?

Auteur: zon Laatst gewijzigd: 2020-05-08

In Excel kunt u sommige cellen kleuren met voorwaardelijke opmaak. Nu vertelt deze tutorial u enkele handige en eenvoudige methoden om de cellen snel op kleur te tellen of op te tellen met voorwaardelijke opmaak in Excel.

Tel cellen op lettertypekleur en achtergrond op VBA

Tel / som cellen op lettertypekleur met voorwaardelijke opmaak door Kutools voor Excel goed idee 3      spelen

Tel / som cellen op achtergrondkleur met voorwaardelijke opmaak door Kutools voor Excel goed idee 3      spelen


pijl blauw rechts bel Tel cellen op lettertype en achtergrondkleur door VBA

In Excel kan alleen VBA-code snel cellen tellen op basis van een specifiek lettertype en achtergrondkleur.

1. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module en kopieer en plak onder VBA-code naar de popping Module venster.

VBA: tel cellen op basis van een lettertype en achtergrondkleur.

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. klikken lopen knop of druk op F5 toets om de code uit te voeren en selecteer vervolgens het bereik dat u nodig hebt in het popping-dialoogvenster. Zie screenshot:
doc-count-by-conditionele-kleur-1

4. klikken OKen selecteer vervolgens een cel waarvan u het lettertype en de achtergrondkleur wilt tellen op basis van de cellen. Zie screenshot:

doc-count-by-conditionele-kleur-2

5. klikken OK. Vervolgens verschijnt er een dialoogvenster om u te vertellen hoeveel cellen dezelfde achtergrondkleur en lettertypekleur hebben met de geselecteerde cel in het bereik.

doc-count-by-conditionele-kleur-3


pijl blauw rechts bel Tel / som cellen op lettertypekleur met voorwaardelijke opmaak door Kutools voor Excel

In Excel kunt u de cellen niet tellen of optellen op lettertypekleur met alleen voorwaardelijke opmaak. Er is echter een handige add-in genaamd Kutools for Excel waarmee u dit probleem snel kunt oplossen met zijn Tel op kleur kenmerk.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer een bereik dat u wilt tellen of tel de cellen op op lettertypekleur met voorwaardelijke opmaak, en klik op Koetools Plus> Tel op kleur. Zie screenshot:

doc-count-by-conditionele-kleur-4

2. Vervolgens in de Tel op kleur dialoogvenster, selecteer Conditionele opmaak voor Kleur methode lijst en doopvont voor Kleurtype lijst. Vervolgens kunt u het resultaat van het tellen en optellen in het dialoogvenster bekijken. Zie screenshot:

doc-count-by-conditionele-kleur-5

Note: Als u het rekenresultaat als rapport wilt uitvoeren, kunt u op klikken Genereer rapport in de Tel op kleur dialoogvenster, dan wordt er een rapport gebouwd in een nieuwe werkmap. Zie screenshot:

doc-count-by-conditionele-kleur-6      doc-count-by-conditionele-kleur-7


Tel / som cellen op achtergrondkleur met voorwaardelijke opmaak door Kutools voor Excel

Als u cellen wilt tellen of optellen op achtergrondkleur met voorwaardelijke opmaak, kunt u dit ook toepassen Tel op kleur nut van Kutools for Excel.

1. Selecteer een bereik dat u wilt tellen of sommeer cellen op achtergrondkleur met voorwaardelijke opmaak en klik op Koetools Plus > Tel op kleur.

Na gratis installeren Kutools voor Excel, doe het als volgt:

2. Vervolgens in de Tel op kleur dialoogvenster, selecteer Conditionele opmaak voor Kleur methode lijst en Achtergrond voor Kleurtype lijst. Vervolgens kunt u het resultaat van het tellen en optellen in het dialoogvenster bekijken. Zie screenshot:

doc-count-by-conditionele-kleur-8

Note: Als u het rekenresultaat als rapport wilt uitvoeren, kunt u op klikken Genereer rapport in de Tel op kleur dialoogvenster, dan wordt er een rapport gebouwd in een nieuwe werkmap. Zie screenshot:

doc-count-by-conditionele-kleur-9

Klik hier voor meer informatie over Count by Color.

Tip.met Tel op kleur Met het hulpprogramma kunt u de cellen ook tellen/optellen/gemiddelden op achtergrondkleur of letterkleur met alleen standaardopmaak of zowel standaard als voorwaardelijke opmaak. Als u Count by Colour zonder beperking binnen 30 dagen wilt toepassen, download en maak nu een gratis proefversie.


pijl blauw rechts bel Bereken cellen op basis van lettertypekleur of achtergrondkleur


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 (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