Hej.
Denne ExtendOffice artiklen forklarer, hvordan man indsætter noget kode i et modul for at beregne værdierne af numre, som er fremhævede:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Dog koden ignorerer decimaler og returnerer unøjagtige resultater (især når der er tale om små værdier).
For at teste det udfyldte jeg et antal modificerede celler med en værdi på "0.5" eller mindre. Koden behandlede dem alle som "0" og resulterede således i en beregning på nul. Men da jeg indtastede værdier på "0.51" og derover, blev alle rundet op til "1", hvilket - igen - helt fejlberegnet resultatet.
Er der nogen der har en rettelse til dette? Kode følger.
Denne ExtendOffice artiklen forklarer, hvordan man indsætter noget kode i et modul for at beregne værdierne af numre, som er fremhævede:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Dog koden ignorerer decimaler og returnerer unøjagtige resultater (især når der er tale om små værdier).
For at teste det udfyldte jeg et antal modificerede celler med en værdi på "0.5" eller mindre. Koden behandlede dem alle som "0" og resulterede således i en beregning på nul. Men da jeg indtastede værdier på "0.51" og derover, blev alle rundet op til "1", hvilket - igen - helt fejlberegnet resultatet.
Er der nogen der har en rettelse til dette? Kode følger.
Funktion SumFed (WorkRng As Range)
'Opdatering 20131202
Dim Rng Som Range
Dim xSum så længe
For hver Rng I WorkRng
Hvis Rng.Font.Fed Så
xSum = xSum + Rng.Value
End If
Næste
SumFed = xSum
End Function