Hoe cellen te tellen/optellen op kleur met voorwaardelijke opmaak in Excel?
In Excel kunt u sommige cellen een kleur geven door middel van voorwaardelijke opmaak. Deze handleiding legt enkele handige en eenvoudige methoden uit om snel cellen te tellen of optellen op kleur met voorwaardelijke opmaak in Excel.
Cellen tellen op lettertypekleur en achtergrond via VBA
Cellen tellen/optellen op lettertypekleur met voorwaardelijke opmaak via Kutools voor Excel
Cellen tellen/optellen op achtergrondkleur met voorwaardelijke opmaak via Kutools voor Excel
Cellen tellen op lettertype- en achtergrondkleur via VBA
In Excel kan alleen VBA-code snel cellen tellen op basis van een specifieke lettertype- en achtergrondkleur.
1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en kopieer en plak de onderstaande VBA-code in het pop-upvenster Module.
VBA: Cellen tellen 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. Klik Uitvoeren knop of druk op F5 toets om de code uit te voeren, selecteer vervolgens het bereik dat u nodig hebt in het pop-upvenster. Zie screenshot:
4. Klik op OK, selecteer vervolgens een cel waarvan u de cellen wilt tellen op basis van de lettertype- en achtergrondkleur. Zie screenshot:
5. Klik op OK. Er verschijnt een dialoogvenster dat u vertelt hoeveel cellen dezelfde achtergrondkleur en lettertypekleur hebben als de geselecteerde cel in het bereik.
Cellen tellen/optellen op lettertypekleur met voorwaardelijke opmaak via Kutools voor Excel
In Excel kunt u cellen niet tellen of optellen op basis van lettertypekleur met alleen voorwaardelijke opmaak. Er is echter een handige add-in genaamd Kutools voor Excel die u snel kan helpen dit probleem op te lossen met de functie Tellen op kleur.
Na het gratis installeren Kutools voor Excel, doe dan het volgende:
1. Selecteer een bereik waarvoor u cellen wilt tellen of optellen op basis van lettertypekleur met voorwaardelijke opmaak, klik vervolgens op Kutools Plus> Tellen op kleur. Zie screenshot:
2. Selecteer in het dialoogvenster Tellen op kleur Voorwaardelijke opmaak in de lijst Kleurmodus en Lettertype in de lijst Kleurtype. U kunt vervolgens het resultaat van het tellen en optellen in het dialoogvenster bekijken. Zie screenshot:
Opmerking: Als u het berekende resultaat als rapport wilt weergeven, kunt u op Rapport genereren klikken in het dialoogvenster Tellen op kleur, waarna een rapport wordt gemaakt in een nieuw werkblad. Zie screenshot:
Cellen tellen/optellen op achtergrondkleur met voorwaardelijke opmaak via Kutools voor Excel
Als u cellen wilt tellen of optellen op basis van achtergrondkleur met voorwaardelijke opmaak, kunt u ook de functie Tellen op kleur van Kutools voor Excel gebruiken.
1. Selecteer een bereik waarvoor u cellen wilt tellen of optellen op basis van achtergrondkleur met voorwaardelijke opmaak, klik vervolgens op Kutools Plus > Tellen op kleur.
Na het gratis installeren Kutools voor Excel, doe dan het volgende:
2. Selecteer in het dialoogvenster Tellen op kleur Voorwaardelijke opmaak in de lijst Kleurmodus en Achtergrond in de lijst Kleurtype. U kunt vervolgens het resultaat van het tellen en optellen in het dialoogvenster bekijken. Zie screenshot:
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!