Hello. This ExtendOffice article explains how to insert some code into a Module in order to calculate the values of numbers of which are emboldened: <a href="https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3" target="_blank" rel="nofollow noreferrer">https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3</a> However, the code ignores decimal places and returns inaccurate results (especially when dealing with small values). To test it, I populated a number of emboldened cells with a value of "0.5" or less. The code treated them all as "0" and, thus, resulted in a calculation of zero. However, when I entered values of "0.51" and above, all were rounded up to "1", thus - again - completely miscalculating the result. Does anyone have a fix for this? Code follows. <blockquote>Function SumBold(WorkRng As Range) 'Update 20131202 Dim Rng As Range Dim xSum As Long For Each Rng In WorkRng If Rng.Font.Bold Then xSum = xSum + Rng.Value End If Next SumBold = xSum End Function</blockquote>

Új

Hogyan lehet félkövér számokat összegezni egy sor cellában az Excelben

Kutools az Excel számára

TikTokOfOz

Vasárnap, május 15 2022

1 Válaszok

5.7K látogatás

Szavazatok

Kibont

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.

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

Amanda Lee

1 éve

#2707

Szavazatok

Kibont

Szia,

Köszönöm a visszajelzést, már frissítettem a cikkben szereplő kódot.

Kérjük, használja az alábbi kódot:



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

Ha további kérdése van, forduljon hozzám bizalommal.

Amanda

Oldal:
1

Erre a bejegyzésre még nem válaszoltak.

Kérjük, jelentkezzen be a válasz elküldéséhez

A válasz elküldéséhez be kell jelentkeznie. Jelentkezzen be a jobb oldali űrlap segítségével, vagy regisztráljon egy fiókot, ha új itt. Itt regisztrálj "