0
アンドゥ
投票
ようこそ！
この 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
エンド機能
こんにちは、
フィードバックをお寄せいただきありがとうございます。記事内のコードはすでに更新されています。
以下のコードを使用してください。
ご不明な点がございましたら、お気軽にお問い合わせください。
アマンダ
フィードバックをお寄せいただきありがとうございます。記事内のコードはすでに更新されています。
以下のコードを使用してください。
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
この投稿に対する返信はまだありません。