Hoe kun je de vetgedrukte getallen in een bereik van cellen in Excel optellen of tellen?

Als je een reeks gegevens hebt die vetgedrukte getallen bevat in een werkblad en je wilt alleen de vetgedrukte cellen optellen of tellen, zou je ze handmatig kunnen toevoegen, maar dat zou tijdrovend zijn. Hoe kun je snel en gemakkelijk alleen de vetgedrukte cellen in Excel optellen of tellen?

Tel vetgedrukte getallen in een bereik met een door de gebruiker gedefinieerde functie (VBA en formule)
Tel vetgedrukte getallen in een bereik met een door de gebruiker gedefinieerde functie (VBA en formule)
Enkele klikken om vetgedrukte cellen in een bereik te tellen en op te tellen met Kutools voor Excel

Tel vetgedrukte getallen in een bereik met een door de gebruiker gedefinieerde functie

De volgende door de gebruiker gedefinieerde functie kan je helpen om snel het aantal vetgedrukte cellen te krijgen. Doe dit als volgt:

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Tel vetgedrukte getallen in een bereik van cellen

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Sla deze code vervolgens op en typ deze formule =CountBold(A1:C9) in een lege cel, zie screenshot:

4. Druk vervolgens op de Enter-toets, en je telt de vetgedrukte cellen in het bereik A1:C9.

Opmerking: A1:C9 in de formule geeft het bereik aan waarvoor je de functie wilt gebruiken om de vetgedrukte cellen te tellen, je kunt dit naar behoefte wijzigen.

Tel vetgedrukte getallen in een bereik met een door de gebruiker gedefinieerde functie

Als je alleen de vetgedrukte getallen in een gegevensbereik wilt optellen, kun je een door de gebruiker gedefinieerde functie maken om dit te bereiken.

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Tel vetgedrukte getallen in een bereik van cellen

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Sla deze code vervolgens op en typ deze formule =sumbold(A1:C9) in een lege cel, zie screenshot:

4. Druk vervolgens op de Enter-toets, alle vetgedrukte getallen in het bereik A1:C9 zijn nu opgeteld. Zie screenshot:

Opmerking: A1:C9 in de formule geeft het bereik aan waarvoor je de functie wilt gebruiken om de vetgedrukte cellen op te tellen, je kunt dit naar behoefte wijzigen.

Enkele klikken om vetgedrukte cellen in een bereik te tellen en op te tellen met Kutools voor Excel

Je kunt eenvoudig alle vetgedrukte cellen in een bereik tellen of optellen met enkele klikken zonder ingewikkelde VBA-code te hoeven afhandelen en formules te onthouden.

1. Voor het tellen van vetgedrukte cellen selecteer je een lege cel om het resultaat te plaatsen, en klik dan op Kutools > Verbeterde functies > Slimme functies & Wiskunde > COUNTBYFONTBOLD.

En voor het optellen van vetgedrukte cellen, klik op Kutools > Verbeterde functies > Slimme functies & Wiskunde > SUMBYFONTBOLD. Zie screenshot:

2. Specificeer in het dialoogvenster Functieargumenten het bereik met vetgedrukte cellen dat je wilt tellen of optellen in het Referentievak, en klik vervolgens op de knop OK.

Het aantal of de som van alle vetgedrukte cellen in het gespecificeerde bereik wordt nu weergegeven in de geselecteerde cel. Zie screenshot:

Demo: Tel en tel vetgedrukte cellen in een bereik op met Kutools voor Excel

Gerelateerde artikelen:

Hoe kun je alle vetgedrukte cellen of tekst in Excel identificeren en selecteren?