0
geri al
Oy
Merhaba.
Bu ExtendOffice makale, embolize edilmiş sayıların değerlerini hesaplamak için bir Modüle bazı kodların nasıl ekleneceğini açıklar:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Ancak, kod ondalık basamakları yok sayar ve hatalı sonuçlar verir (özellikle küçük değerlerle uğraşırken).
Test etmek için, "0.5" veya daha düşük bir değere sahip bir dizi cesaretlendirilmiş hücre doldurdum. Kod, hepsini "0" olarak değerlendirdi ve bu nedenle, sıfır hesaplamasıyla sonuçlandı. Ancak, "0.51" ve üzeri değerler girdiğimde, hepsi "1"e yuvarlandı, bu nedenle - yine - sonucu tamamen yanlış hesapladım.
kimsenin buna bir çözümü var mı? Kod aşağıdaki gibidir.
Bu ExtendOffice makale, embolize edilmiş sayıların değerlerini hesaplamak için bir Modüle bazı kodların nasıl ekleneceğini açıklar:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Ancak, kod ondalık basamakları yok sayar ve hatalı sonuçlar verir (özellikle küçük değerlerle uğraşırken).
Test etmek için, "0.5" veya daha düşük bir değere sahip bir dizi cesaretlendirilmiş hücre doldurdum. Kod, hepsini "0" olarak değerlendirdi ve bu nedenle, sıfır hesaplamasıyla sonuçlandı. Ancak, "0.51" ve üzeri değerler girdiğimde, hepsi "1"e yuvarlandı, bu nedenle - yine - sonucu tamamen yanlış hesapladım.
kimsenin buna bir çözümü var mı? Kod aşağıdaki gibidir.
Fonksiyon SumBold(Aralık Olarak WorkRng)
'20131202 güncellemesi
Menzil Olarak Dim Rng
Dim xSum Şu Kadar Uzun
WorkRng'deki Her Rng İçin
Eğer Rng.Font.Bold ise
xToplam = xToplam + Ara.Değer
Eğer son
Sonraki
ToplamBold = xToplam
son İşlevi
0
geri al
Oy
Merhaba,
Geri bildirim için teşekkürler, makaledeki kodu zaten yükselttim.
Lütfen aşağıdaki kodu kullanın:
Başka sorunuz varsa, lütfen bana bildirmekten çekinmeyin.
Amanda
Geri bildirim için teşekkürler, makaledeki kodu zaten yükselttim.
Lütfen aşağıdaki kodu kullanın:
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
Başka sorunuz varsa, lütfen bana bildirmekten çekinmeyin.
Amanda
- Sayfa:
- 1
Bu gönderi için henüz cevap yok.