By TikTokOfOz 15. május 2022-én, vasárnap
Csatlakozik a következő témákhoz: Kutools az Excel számára
Válaszok 1
Kedvencek 0
Nézetek 5.7K
Szavazatok 0
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
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
·
1 éve
·
0 szereti
·
0 szavazat
·
0 Comments
·
A teljes hozzászólás megtekintése