0
Razveljavi
Glasov
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
0
Razveljavi
Glasov
Zdravo,
Hvala za povratne informacije, kodo v članku sem že posodobil.
Prosimo, uporabite spodnjo kodo:
Če imate dodatna vprašanja, mi prosim ne oklevajte.
Amanda
Hvala za povratne informacije, kodo v članku sem že posodobil.
Prosimo, uporabite spodnjo kodo:
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
Če imate dodatna vprašanja, mi prosim ne oklevajte.
Amanda
- Stran:
- 1
Za to objavo še ni odgovorov.