Hoe tel je cellen met specifieke tekst én opmaak of letterkleur in Excel?
Het is eenvoudig om het aantal cellen te tellen dat aan één voorwaarde voldoet, zoals cellen met een specifieke tekst of een bepaald lettertype/vulkleur. Maar weet u ook hoe u cellen telt die aan meerdere voorwaarden voldoen? Bijvoorbeeld: tel het aantal cellen dat zowel een specifieke tekst als een bepaald lettertype/vulkleur bevat. Dit artikel laat u de oplossing zien.
Tel cellen met specifieke tekst en Vulkleur met VBA-code
Tel cellen met specifieke tekst en Letterkleur met VBA-code
Tel cellen met specifieke tekst en Vulkleur met VBA-code
Stel dat u een tabel hebt zoals hieronder in de schermafbeelding wordt weergegeven. Om cellen in kolom B te tellen op basis van de tekst en de vullkleur van cel E2, past u de volgende VBA-code toe.
1. Druk op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module en kopieer vervolgens de onderstaande VBA-code naar het modulevenster.
VBA-code: Tel cellen met specifieke tekst en Vulkleur
Sub CountFillColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim Rows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubOpmerking: In de code is B2:B9 het bereik waarin u cellen telt; E2 bevat de tekst en de vulkleur waarop u de telling baseert. U kunt deze naar wens aanpassen.
3. Druk op de toets F5 om de code uit te voeren. Er verschijnt dan een Kutools voor Excel-dialoogvenster. Selecteer een cel om het resultaat in te plaatsen en klik daarna op de knop OK. Zie schermafbeelding:
Het telresultaat verschijnt direct in de geselecteerde cel.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Tel cellen met specifieke tekst en Letterkleur met VBA-code
Om cellen in het bereik B2:B9 te tellen op basis van de tekst en de letterkleur van cel E2, volgt u deze stappen.
1. Open het venster Microsoft Visual Basic for Applications door op de toetsencombinatie Alt + F11 te drukken.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module en kopieer vervolgens de onderstaande VBA-code naar het modulevenster.
VBA-code: Tel cellen met specifieke tekst en Letterkleur
Sub CountFontColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim xRows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubOpmerking: In de code is B2:B9 het bereik waarin u cellen telt en E2 het criterium waaraan die cellen moeten voldoen. U kunt beide naar wens aanpassen.
3. Druk op de toets F5om de code uit te voeren. Er verschijnt dan een Kutools voor Excel-dialoogvenster. Selecteer alstublieft een cel om het resultaat in te plaatsen en klik vervolgens op de knop OK. Zie schermafbeelding:
U krijgt het resultaat zoals hieronder in de schermafbeelding wordt weergegeven:
Gerelateerde artikelen:
- Hoe tel je het aantal cellen tussen twee waarden of datums in Excel?
- Hoe tel je het aantal cellen met specifieke tekst binnen een geselecteerd bereik in Excel?
- Hoe tel je in Excel het aantal cellen dat tekst of een deel van een tekst bevat?
- Hoe tel je hoe vaak bepaalde of specifieke woorden voorkomen in een cel of een bereik van cellen in Excel?
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