Hoe somt of telt u vetgedrukte getallen op in een bereik van cellen in Excel?
Als u in een werkblad een gegevensbereik hebt met vetgedrukte getallen en alleen de vetgedrukte waarden wilt optellen of tellen, kunt u dit handmatig doen — maar dat kost veel tijd. Hoe telt of sommeert u snel en eenvoudig alleen de vetgedrukte getallen in Excel?
Tel vetgedrukte getallen in een bereik met een door de gebruiker gedefinieerde functie (VBA en formule)
Som vetgedrukte getallen in een bereik met een door de gebruiker gedefinieerde functie (VBA en formule)
Enkele klikken om Vetgedrukt te tellen en op te tellen in een bereik met Kutools voor Excel
Tel vetgedrukte getallen in een bereik met een door de gebruiker gedefinieerde functie
De volgende door de gebruiker gedefinieerde functie helpt u snel het aantal vetgedrukte tekens te bepalen. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
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 de formule =CountBold(A1:C9)in een lege cel, zie schermafbeelding:
4. Druk daarna op Enter en u telt het vetgedrukte in het bereik A1:C9.
Opmerking: A1:C9 in de formule geeft het bereik aan waarop u de functie wilt toepassen om de vetgedrukte cellen te tellen; u kunt dit naar wens aanpassen.
Som vetgedrukte getallen in een bereik met een door de gebruiker gedefinieerde functie
Als u alleen de vetgedrukte getallen in een gegevensbereik wilt optellen, kunt u hiervoor een aangepaste functie maken.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen>Module, en plak de volgende code in het modulevenster.
VBA-code: Som 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 de formule =sumbold(A1:C9)in een lege cel, zie schermafbeelding:
4. Druk daarna op Enter en alle vetgedrukte getallen in het bereik A1:C9 worden opgeteld. Zie schermafbeelding:
Opmerking: A1:C9 in de formule geeft het bereik aan waarop u de functie wilt toepassen om de vetgedrukte waarden op te tellen; u kunt dit naar wens aanpassen.
Enkele klikken om Vetgedrukt te tellen en op te tellen in een bereik met Kutools voor Excel
U kunt alle vetgedrukte cellen in een bereik eenvoudig tellen of optellen met slechts enkele klikken, zonder ingewikkelde VBA-code te hoeven gebruiken of formules te onthouden.
1. Selecteer een lege cel voor het resultaat en klik vervolgens op Kutools > Verbeterde functies > Statistiek & Wiskunde > COUNTBYFONTBOLD om vetgedrukte cellen te tellen.
En om vetgedrukte getallen op te tellen, klik op Kutools > Verbeterde functies > Statistiek & Wiskunde > SUMBYFONTBOLD. Zie schermafbeelding:
2. In het dialoogvenster Functieargumenten geeft u in het veld Referentie het bereik op met de vetgedrukte cellen die u wilt tellen of optellen, en klikt u op de knop OK.
Het aantal of de som van alle vetgedrukte waarden in het beperkte bereik wordt nu weergegeven in de geselecteerde cel. Zie schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Tel en som Vetgedrukt in een bereik met Kutools voor Excel
Gerelateerde artikelen:
Hoe identificeert en selecteert u alle vetgedrukte tekst 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