0
Dadwneud
Pleidleisiau
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
0
Dadwneud
Pleidleisiau
Hi 'na,
Diolch am yr adborth, rwyf eisoes wedi uwchraddio'r cod yn yr erthygl.
Defnyddiwch y cod isod os gwelwch yn dda:
Os oes gennych unrhyw gwestiynau pellach, peidiwch ag oedi cyn rhoi gwybod i mi.
Amanda
Diolch am yr adborth, rwyf eisoes wedi uwchraddio'r cod yn yr erthygl.
Defnyddiwch y cod isod os gwelwch yn dda:
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
Os oes gennych unrhyw gwestiynau pellach, peidiwch ag oedi cyn rhoi gwybod i mi.
Amanda
- Tudalen:
- 1
Ni wnaed unrhyw atebion i'r swydd hon eto.