Helló.
Ezt ExtendOffice cikk elmagyarázza, hogyan lehet kódot beilleszteni egy modulba, hogy kiszámítsa a kiemelt számok értékét:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Azonban a kód figyelmen kívül hagyja a tizedesjegyeket és pontatlan eredményeket ad vissza (főleg, ha kis értékekkel foglalkozunk).
A teszteléshez feltöltöttem néhány "0.5" vagy kisebb értékű felbővített cellát. A kód mindegyiket "0"-ként kezelte, és így nulla számítást eredményezett. Amikor azonban „0.51” vagy annál nagyobb értékeket adtam meg, mindegyiket „1-re” kerekítettem, így - ismét - teljesen rosszul számoltam az eredményt.
Van valakinek valami megoldása erre? Kód következik.
Ezt ExtendOffice cikk elmagyarázza, hogyan lehet kódot beilleszteni egy modulba, hogy kiszámítsa a kiemelt számok értékét:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Azonban a kód figyelmen kívül hagyja a tizedesjegyeket és pontatlan eredményeket ad vissza (főleg, ha kis értékekkel foglalkozunk).
A teszteléshez feltöltöttem néhány "0.5" vagy kisebb értékű felbővített cellát. A kód mindegyiket "0"-ként kezelte, és így nulla számítást eredményezett. Amikor azonban „0.51” vagy annál nagyobb értékeket adtam meg, mindegyiket „1-re” kerekítettem, így - ismét - teljesen rosszul számoltam az eredményt.
Van valakinek valami megoldása erre? Kód következik.
SumBold függvény (WorkRng As Range)
„Frissítés: 20131202
Dim Rng mint tartomány
Dim xSum As Long
Minden Rng In WorkRng
Ha Rng.Font.Bold Akkor
xSum = xSum + Rng.Value
Ha véget
Következő
SumBold = xSum
end Function