Hoe telt of somt u cellen op basis van kleuren die via Voorwaardelijke opmaak in Excel zijn toegepast?
In Excel kunt u bepaalde cellen van kleur voorzien met behulp van Voorwaardelijke opmaak. In deze handleiding leest u handige en eenvoudige methoden om snel cellen te tellen of op te tellen op basis van hun kleur bij gebruik van Voorwaardelijke opmaak in Excel.
Cellen tellen op basis van Letterkleur en achtergrond met VBA
Cellen tellen op basis van lettertype en Achtergrondkleur met VBA
In Excel kan alleen VBA-code snel cellen tellen op basis van een specifiek lettertype en achtergrondkleur.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en kopieer de onderstaande VBA-code naar het verschijnende Module-venster.
VBA: Tel cellen op basis van 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 Sub3. Klik op Uitvoeren of druk op F5 om de code uit te voeren. Selecteer vervolgens het gewenste bereik in het dialoogvenster dat verschijnt. Zie schermafbeelding:
4. Klik op OK en selecteer daarna een cel waarvan u het lettertype en de achtergrondkleur als basis wilt gebruiken voor het tellen van cellen. Zie schermafbeelding:
5. Klik op OK. Vervolgens verschijnt een dialoogvenster met het aantal cellen in het geselecteerde bereik dat dezelfde achtergrondkleur en letterkleur heeft als de geselecteerde cel.
Cellen tellen/oplossen op basis van Letterkleur met Voorwaardelijke opmaak gebruiken door Kutools voor Excel
In Excel kunt u cellen niet tellen of optellen op basis van letterkleur door alleen voorwaardelijke opmaak te gebruiken. Gelukkig is er een handige invoegtoepassing genaamd Kutools voor Excel die u snel helpt dit probleem op te lossen met de functie Tellen op kleur.
Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer een bereik waarvan u de cellen wilt tellen of optellen op basis van de letterkleur met behulp van voorwaardelijke opmaak, en klik vervolgens op KUTOOLS PLUS > Tellen op kleur. Zie schermafbeelding:
2. Selecteer in het Tellen op kleur-dialoogvenster Voorwaardelijke opmaak gebruiken onder de lijst Kleurmodus en Lettertype onder de lijst Kleurtype. U ziet dan direct het resultaat van het tellen en optellen in het dialoogvenster. Zie schermafbeelding:
Opmerking: Als u het berekeningsresultaat als rapport wilt weergeven, klikt u in het Tellen op kleur-dialoogvenster op Rapport genereren. Het rapport wordt dan gegenereerd in een nieuw werkblad. Zie schermafbeelding:
Cellen tellen/oplossen op basis van Achtergrondkleur met Voorwaardelijke opmaak gebruiken door Kutools voor Excel
Als u cellen wilt tellen of optellen op basis van de achtergrondkleur met voorwaardelijke opmaak, kunt u ook het hulpprogramma Tellen op kleur van Kutools voor Excel gebruiken.
1. Selecteer een bereik waarvan u de cellen wilt tellen of optellen op basis van de achtergrondkleur met voorwaardelijke opmaak, en klik vervolgens op KUTOOLS PLUS > Tellen op kleur.
Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:
2. Selecteer in het Tellen op kleur-dialoogvenster Voorwaardelijke opmaak gebruiken onder de lijst Kleurmodus en Achtergrond onder de lijst Kleurtype. U ziet dan direct het resultaat van het tellen en optellen in het dialoogvenster. Zie schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins