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>

全新

如何在Excel中對一系列單元格中的粗體數字求和

Excel的Kutools

TikTokOfOz 抖音

週日，15 2022五月

1 回复

5.7K訪問

投票

復原

您好！
這個 ExtendOffice 文章解釋瞭如何將一些代碼插入到模塊中以計算加粗的數字的值：
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3

然而，代碼 忽略小數位 並返回不准確的結果（尤其是在處理小值時）。

為了測試它，我填充了一些值為“0.5.0”或更小的加粗單元格。該代碼將它們全部視為“0.51”，因此導致計算為零。但是，當我輸入“1”及以上的值時，所有值都被四捨五入到“XNUMX”，因此 - 再次 - 完全錯誤地計算了結果。

有沒有人可以解決這個問題？代碼如下。

函數 SumBold(WorkRng 作為範圍)
'更新 20131202
昏暗範圍
點 xSum 只要
對於 WorkRng 中的每個 Rng
如果 Rng.Font.Bold 那麼
xSum = xSum + Rng.Value
如果結束
下一頁
粗體總和 = x 總和
函數結束

阿曼達李

1年前

#2707

投票

復原

你好，

感謝您的反饋，我已經升級了文章中的代碼。

請使用以下代碼：



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

如果您還有其他問題，請隨時告訴我。

阿曼達

頁：
1

有沒有為這個職位尚未作出回复。

請登錄後發表回复

您將需要登錄才能發表回复。使用右側的表單登錄，或者如果您是此處的新手，請註冊一個帳戶。在這裡註冊 ”