Helo.
Mae hyn yn ExtendOffice erthygl yn esbonio sut i fewnosod rhyw god mewn Modiwl er mwyn cyfrifo gwerthoedd y rhifau sydd wedi eu hargraffu:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Fodd bynnag, mae'r cod yn anwybyddu lleoedd degol ac yn dychwelyd canlyniadau anghywir (yn enwedig wrth ymdrin â gwerthoedd bach).
Er mwyn ei brofi, fe wnes i boblogi nifer o gelloedd embolden gyda gwerth o "0.5" neu lai. Roedd y cod yn eu trin i gyd fel "0" ac, felly, arweiniodd at gyfrifiad o sero. Fodd bynnag, pan nodais werthoedd "0.51" ac uwch, cafodd pob un ei dalgrynnu i "1", a thrwy hynny - eto - camgyfrifo'r canlyniad yn llwyr.
A oes gan unrhyw un ateb i hyn? Mae'r cod yn dilyn.
Mae hyn yn ExtendOffice erthygl yn esbonio sut i fewnosod rhyw god mewn Modiwl er mwyn cyfrifo gwerthoedd y rhifau sydd wedi eu hargraffu:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Fodd bynnag, mae'r cod yn anwybyddu lleoedd degol ac yn dychwelyd canlyniadau anghywir (yn enwedig wrth ymdrin â gwerthoedd bach).
Er mwyn ei brofi, fe wnes i boblogi nifer o gelloedd embolden gyda gwerth o "0.5" neu lai. Roedd y cod yn eu trin i gyd fel "0" ac, felly, arweiniodd at gyfrifiad o sero. Fodd bynnag, pan nodais werthoedd "0.51" ac uwch, cafodd pob un ei dalgrynnu i "1", a thrwy hynny - eto - camgyfrifo'r canlyniad yn llwyr.
A oes gan unrhyw un ateb i hyn? Mae'r cod yn dilyn.
Swyddogaeth SumBold(WorkRng As Range)
'Diweddariad 20131202
Dim Rng Fel Ystod
Dim xSum Cyhyd
Ar gyfer Pob Rng Mewn WorkRng
Os Rng.Font.Bold Yna
xSum = xSum + Rng.Value
Gorffennwch Os
Digwyddiadau
SwmBold = xSwm
Swyddogaeth End