Hoe telt u cellen met specifieke tekst en vul-/lettertypekleur in Excel?
Het kan eenvoudig zijn om het aantal cellen te tellen dat slechts één voorwaarde bevat, zoals alle cellen met specifieke tekst of lettertype/vulkleur. Maar weet u hoe u cellen met meerdere voorwaarden kunt tellen? Bijvoorbeeld, het aantal cellen tellen dat zowel specifieke tekst als lettertype/vulkleur bevat. Dit artikel laat u de oplossing zien.
Cellen tellen met specifieke tekst en vulkleur met VBA-code
Cellen tellen met specifieke tekst en lettertypekleur met VBA-code
Cellen tellen met specifieke tekst en vulkleur met VBA-code
Stel dat u een tabel heeft zoals in onderstaande schermafbeelding getoond, om cellen in kolom B te tellen op basis van de tekst en vulkleur van cel E2, pas dan de volgende VBA-code toe.
1. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module, kopieer vervolgens onderstaande VBA-code naar het Module-venster.
VBA-code: Cellen tellen 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 waarbinnen u cellen telt, E2 bevat de tekst en vulkleur waarop u cellen baseert. U kunt deze aanpassen naar uw behoefte.
3. Druk op de F5-toets om de code uit te voeren, vervolgens verschijnt er een Kutools voor Excel dialoogvenster, selecteer een cel om het resultaat te plaatsen en klik op de OK-knop. Zie schermafbeelding:
Het telresultaat wordt onmiddellijk weergegeven in de geselecteerde cel.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Cellen tellen met specifieke tekst en lettertypekleur met VBA-code
Om cellen in het bereik B2:B9 te tellen op basis van de tekst en lettertypekleur van cel E2, doe dan het volgende.
1. Open het Microsoft Visual Basic for Applications-venster door op de toetsen Alt + F11 te drukken.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module, kopieer vervolgens onderstaande VBA-code naar het Module-venster.
VBA-code: Cellen tellen met specifieke tekst en lettertypekleur
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 waarbinnen u cellen telt, E2 is de criteria waarmee u cellen telt. U kunt deze naar behoefte wijzigen.
3. Druk op de F5-toets om de code uit te voeren, vervolgens verschijnt er een Kutools voor Excel dialoogvenster, selecteer een cel om het resultaat te plaatsen en klik op de OK-knop. Zie schermafbeelding:
U krijgt het resultaat zoals hieronder in de schermafbeelding te zien is:
Gerelateerde artikelen:
- Hoe telt u het aantal cellen tussen twee waarden of datums in Excel?
- Hoe telt u cellen met specifieke tekst in een selectie in Excel?
- Hoe telt u als een cel tekst of een deel van de tekst bevat in Excel?
- Hoe telt u het aantal bepaalde/specifieke woorden in een cel of een bereik van cellen in Excel?
Beste productiviteitstools voor Office
Verbeter 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 kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- 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!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen