Hello. This ExtendOffice article explains how to insert some code into a Module in order to calculate the values of numbers of which are emboldened: <a href="https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3" target="_blank" rel="nofollow noreferrer">https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3</a> However, the code ignores decimal places and returns inaccurate results (especially when dealing with small values). To test it, I populated a number of emboldened cells with a value of "0.5" or less. The code treated them all as "0" and, thus, resulted in a calculation of zero. However, when I entered values of "0.51" and above, all were rounded up to "1", thus - again - completely miscalculating the result. Does anyone have a fix for this? Code follows. <blockquote>Function SumBold(WorkRng As Range) 'Update 20131202 Dim Rng As Range Dim xSum As Long For Each Rng In WorkRng If Rng.Font.Bold Then xSum = xSum + Rng.Value End If Next SumBold = xSum End Function</blockquote>

New

Hoe vetgedrukte getallen in een reeks cellen in Excel op te tellen

Kutools for Excel

TikTokOfOz

Zondag, mei 15 2022

1 Antwoorden

5.7K bezoeken

Stemmen

ongedaan maken

Hallo.
Deze ExtendOffice In dit artikel wordt uitgelegd hoe u code in een module kunt invoegen om de waarden te berekenen van getallen die vetgedrukt zijn:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3

Echter, de code negeert decimalen en retourneert onnauwkeurige resultaten (vooral als het om kleine waarden gaat).

Om het te testen heb ik een aantal vetgedrukte cellen gevuld met een waarde van "0.5" of minder. De code behandelde ze allemaal als "0" en resulteerde dus in een berekening van nul. Toen ik echter waarden van "0.51" en hoger invoerde, werden ze allemaal naar boven afgerond naar "1", waardoor het resultaat - opnieuw - volledig verkeerd werd berekend.

Heeft iemand hier een oplossing voor? Code volgt.

Functie SumBold(WorkRng As Range)
'Update 20131202'
Dim Rng als bereik
Dim xSom zo lang
Voor elke Rng In WorkRng
Als Rng.Font.Bold Dan
xSom = xSom + Rng.Waarde
End If
Volgende
SomVet = xSom
End Function

Amanda Lee

1 jaar geleden

#2707

Stemmen

ongedaan maken

Hey daar!

Bedankt voor de feedback, ik heb de code in het artikel al bijgewerkt.

Gebruik de onderstaande code:



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

Als je nog vragen hebt, laat het me dan gerust weten.

Amanda

Pagina:
1

Er zijn nog geen reacties op dit bericht geplaatst.

Je moet ingelogd zijn om een reactie te kunnen plaatsen. Meld u aan met behulp van het formulier aan de rechterkant of registreer een account als u hier nieuw bent. Registreer hier "