Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe cellen met specifieke tekst en vulling / letterkleur in Excel tellen?

U kunt gemakkelijk het aantal cellen tellen dat slechts één voorwaarde bevat, zoals het tellen van alle cellen met specifieke tekst of lettertype / vulkleur. Weet je echter hoe je cellen moet tellen met meerdere aandoeningen? U kunt bijvoorbeeld het aantal cellen tellen dat zowel specifieke tekst als lettertype / opvulkleur bevat. Dit artikel zal u de oplossing laten zien.

Tel cellen met specifieke tekst en vul kleur met VBA-code

Tel cellen met specifieke tekst en letterkleur met VBA-code


Telelt en selecteert eenvoudig cellen met specifieke tekst in een bereik:

Met het hulpprogramma Select Specific Cells van Kutools voor Excel kunt u snel cellen tellen en selecteren die specifieke tekst in een bereik bevatten. Zie screenshot:

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Leesindeling (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik ...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde ... Voorkom dubbele cellen; Bereiken vergelijken ...
  • Selecteer Dubbele of Unieke rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkmappen; Willekeurig selecteren ...
  • Kopieer exact meerdere cellen zonder de formuleverwijzing te wijzigen; Automatisch verwijzingen maken naar meerdere bladen; Kogels invoegen, selectievakjes en meer ...
  • Favoriete en snel formules, reeksen, grafieken en afbeeldingen invoegen; Versleutel cellen met wachtwoord; Maak een mailinglijst en verzend e-mails ...
  • Tekst extraheren, tekst toevoegen, verwijderen op positie, spatie verwijderen; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen ...
  • Super Filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd Sorteren op maand / week / dag, frequentie en meer; Speciaal filter op vet, cursief ...
  • Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Convert xls, xlsx en PDF ...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.

Tel cellen met specifieke tekst en vul kleur met VBA-code


Stel dat u een tabel hebt zoals onderstaand screenshot, om de cellen in kolom B te tellen op basis van de tekst en vulkleur van cel E2, moet u de volgende VBA-code toepassen.

1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > module, kopieer vervolgens onder VBA-code naar het modulevenster.

VBA-code: tel cellen met specifieke tekst en opvulkleur

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 Sub

Notes: In de code is B2: B9 het bereik waarin u cellen binnen wilt tellen, E2 bevat de tekst en opvulkleur waarvoor u cellen wilt tellen op basis van. U kunt ze naar uw behoefte veranderen.

3. druk de F5 sleutel om de code uit te voeren, en dan a Kutools for Excel dialoogvenster verschijnt, selecteer een cel om het resultaat te plaatsen en klik vervolgens op de OK knop. Zie screenshot:

Het telresultaat wordt onmiddellijk weergegeven in de geselecteerde cel.


Tel cellen met specifieke tekst en letterkleur met VBA-code

Voor het tellen van cellen in bereik B2: B9 op basis van de tekst- en letterkleur van cel E2, gaat u als volgt te werk.

1. Open de Microsoft Visual Basic voor toepassingen venster door op te drukken anders + F11 sleutels.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > module, kopieer vervolgens onder 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 Sub

Notes: In de code is B2: B9 het bereik waarin u cellen binnen wilt tellen, E2 is het criterium waarop u cellen zult tellen op basis van. U kunt ze naar behoefte wijzigen.

3. druk de F5 sleutel om de code uit te voeren, en dan a Kutools for Excel dialoogvenster verschijnt, selecteer een cel om het resultaat te plaatsen en klik vervolgens op de OK knop. Zie screenshot:

Je krijgt het resultaat zoals hieronder getoond screenshot:


Gerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.