ようこそ!
この ExtendOffice この記事では、太字で示されている数値の値を計算するためにモジュールにコードを挿入する方法について説明しています。
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
ただし、コードは 小数点以下の桁を無視します そして不正確な結果を返します (特に小さな値を扱う場合)。
これをテストするために、「0.5」以下の値を持つ太字のセルを多数入力しました。 コードはそれらをすべて「0」として処理したため、計算結果はゼロになりました。 ただし、「0.51」以上の値を入力すると、すべてが「1」に切り上げられ、結果が完全に誤って計算されてしまいました。
これを修正できる人はいますか? コードは次のとおりです。
この ExtendOffice この記事では、太字で示されている数値の値を計算するためにモジュールにコードを挿入する方法について説明しています。
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
ただし、コードは 小数点以下の桁を無視します そして不正確な結果を返します (特に小さな値を扱う場合)。
これをテストするために、「0.5」以下の値を持つ太字のセルを多数入力しました。 コードはそれらをすべて「0」として処理したため、計算結果はゼロになりました。 ただし、「0.51」以上の値を入力すると、すべてが「1」に切り上げられ、結果が完全に誤って計算されてしまいました。
これを修正できる人はいますか? コードは次のとおりです。
関数 SumBold(WorkRng As Range)
'更新20131202
範囲として暗くする
Dim xSum をできるだけ長く
WorkRngの各Rngについて
Rng.Font.Bold の場合
xSum = xSum + Rng.Value
終了する場合
Next
SumBold = xSum
エンド機能