So summieren Sie fettgedruckte Zahlen in einer Reihe von Zellen in Excel

Hallo.
Dieser ExtendOffice Der Artikel erklärt, wie man Code in ein Modul einfügt, um die Zahlenwerte zu berechnen, von denen die Mutmaßung hervorgehoben ist:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3

Allerdings ist der Code ignoriert Dezimalstellen und liefert ungenaue Ergebnisse (insbesondere bei kleinen Werten).

Um es zu testen, habe ich eine Reihe von hervorgehobenen Zellen mit einem Wert von „0.5“ oder weniger gefüllt. Der Code behandelte sie alle als „0“ und führte daher zu einer Berechnung von Null. Als ich jedoch Werte von „0.51“ und höher eingegeben habe, wurden alle auf „1“ aufgerundet, was wiederum zu einer völligen Fehlberechnung des Ergebnisses führte.

Hat jemand eine Lösung dafür? Code folgt.

Funktion SumBold(WorkRng As Range)
'Update 20131202
Dim Rng As Range
Dimmen Sie xSum As Long
Für jeden Rng in WorkRng
Wenn Rng.Font.Bold, dann
xSum = xSum + Rng.Value
End If
Weiter
SumBold = xSum
End Function