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.
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