Pozdravljeni.
Ta ExtendOffice članek pojasnjuje, kako v modul vstaviti nekaj kode, da bi izračunali vrednosti številk, ki so označene:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Vendar pa koda ne upošteva decimalnih mest in vrne netočne rezultate (zlasti pri majhnih vrednostih).
Da bi ga preizkusil, sem zapolnil število opogumljenih celic z vrednostjo "0.5" ali manj. Koda jih je vse obravnavala kot "0" in je tako povzročila izračun nič. Ko pa sem vnesel vrednosti "0.51" in več, so bile vse zaokrožene na "1", s čimer sem - spet - popolnoma napačno izračunal rezultat.
Ima kdo popravek za to? Sledi koda.
Ta ExtendOffice članek pojasnjuje, kako v modul vstaviti nekaj kode, da bi izračunali vrednosti številk, ki so označene:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Vendar pa koda ne upošteva decimalnih mest in vrne netočne rezultate (zlasti pri majhnih vrednostih).
Da bi ga preizkusil, sem zapolnil število opogumljenih celic z vrednostjo "0.5" ali manj. Koda jih je vse obravnavala kot "0" in je tako povzročila izračun nič. Ko pa sem vnesel vrednosti "0.51" in več, so bile vse zaokrožene na "1", s čimer sem - spet - popolnoma napačno izračunal rezultat.
Ima kdo popravek za to? Sledi koda.
Funkcija SumBold (WorkRng As Range)
'Posodobitev 20131202
Dim Rng kot domet
Dim xSum As Long
Za vsak Rng v WorkRng
Če Rng.Font.Bold Potem
xSum = xSum + Rng.Vrednost
Konec Če
Naslednji
Krepka vsota = xVsota
End Function