Hoe vetgedrukte getallen in een celbereik in Excel optellen / tellen?
Als u een gegevensbereik heeft dat enkele vetgedrukte getallen in een werkblad bevat en u nu alleen de vetgedrukte cellen wilt optellen of tellen, kunt u ze natuurlijk een voor een handmatig optellen, maar dit zal tijdrovend zijn. Hoe kunt u op een gemakkelijke en snelle manier alleen de vetgedrukte cellen in Excel optellen of tellen?
Tel vetgedrukte cijfers in een bereik met door de gebruiker gedefinieerde functie (VBA en formule)
Som vetgedrukte getallen op in een bereik met door de gebruiker gedefinieerde functie (VBA en formule)
Meerdere klikken om vetgedrukte cellen in een bereik te tellen en op te tellen met Kutools voor Excel
Tel vetgedrukte cijfers in een bereik met de door de gebruiker gedefinieerde functie
De volgende Door de gebruiker gedefinieerde functie kan u helpen snel het aantal vetgedrukte cellen te krijgen. Doe als volgt:
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: tel vetgedrukte getallen in een celbereik
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 Enter sleutel, en u telt de vetgedrukte cellen in het bereik A1: C9.
Opmerking:A1: C9 in de formule geeft het bereik aan waarvoor u de functie wilt gebruiken om de vetgedrukte cellen te tellen, u kunt dit naar behoefte wijzigen.
Tel de vetgedrukte getallen op in een bereik met de door de gebruiker gedefinieerde functie
En als u alleen de vetgedrukte getallen in een gegevensbereik wilt optellen, kan ik ook een door de gebruiker gedefinieerde functie maken om het op te lossen.
1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: som vetgedrukte getallen op in een celbereik
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. En druk vervolgens op Enter -toets, alle vetgedrukte cijfers in het bereik A1: C9 zijn opgeteld. Zie screenshot:
Opmerking:A1: C9 in de formule geeft het bereik aan waarvoor u de functie wilt gebruiken om de vetgedrukte cellen bij elkaar op te tellen, u kunt dit naar behoefte wijzigen.
Meerdere klikken om vetgedrukte cellen in een bereik te tellen en op te tellen met Kutools voor Excel
YU kunt eenvoudig alle vetgedrukte cellen in een bereik tellen of optellen met enkele klikken zonder ingewikkelde VBA-code te verwerken en formules te onthouden.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Om vetgedrukte cellen te tellen, selecteert u een lege cel om het resultaat te lokaliseren en klikt u op Kutools > Kutools-functies > Statistisch en wiskundig > COUNTBYFONTBOLD.
En om vetgedrukte cellen op te tellen, klikt u op Kutools > Kutools-functies > Statistisch en wiskundig > SUMBYFONTBOLD. Zie screenshot:
2. In de Function Argumenten dialoogvenster, specificeer het bereik met vetgedrukte cellen die u moet tellen of optellen in het vak Verwijzing en klik vervolgens op het OK knop.
Nu wordt het tellen of optellen van alle vetgedrukte cellen in het opgegeven bereik onmiddellijk in de geselecteerde cel ingevuld. Zie screenshot:
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Houd formulecelverwijzing constant met Kutools voor Excel
Gerelateerde artikelen:
Hoe identificeer en selecteer ik alle vetgedrukte cellen of tekst in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!