excel2013 色付きセルの値合計

先ほどの続きですが、これではすべて加算してしまいます。

Function SumColoredCells(pRange As Range) As Double
Dim cel As Range
Dim total As Double
For Each cel In pRange
If cel.Interior.ColorIndex <> 0 Then
total = total + cel.Value
End If
Next cel
SumColoredCells = total
End Function

質問者からの補足コメント

• 

  皆さんありがとうございます。うまく計算できますが、色を付けたり消したりすると計算は自動更新しないのですが、この対応はどうしたらよいのでしょうか？。初歩的な事で誠にすいません。

    補足日時：2023/02/28 15:35

No.4 ベストアンサー 回答者： enunokokoro 回答日時： 2023/02/28 15:46

多用すると重くなりますが、application.volatileを追加することで

再計算してくれます。
https://learn.microsoft.com/ja-jp/office/vba/api …
https://www.excel-chunchun.com/entry/worksheet-f …
Function直下に置くことで、ユーザー関数に意味を持たせます。

Function SumColoredCells(pRange As Range) As Double
Application.Volatile
Dim cel As Range
Dim total As Double
　For Each cel In pRange
　　If cel.Interior.ColorIndex <> xlNone Then
　　　total = total + cel.Value
　　End If
　Next cel
SumColoredCells = total
End Function

この回答へのお礼

大変お世話になりました。本当にありがとうございました。感謝

お礼日時：2023/02/28 16:09

No.3 回答者： enunokokoro 回答日時： 2023/02/28 13:40

No.1の回答にある-4142は、定数xlNone を値にしたもの。

https://learn.microsoft.com/ja-jp/office/vba/api …
結局は同じものなので、保存先さえ間違えなければ使えたはず。

No.2 回答者： enunokokoro 回答日時： 2023/02/28 13:33

先ほど回答したものですが、無視ですか？

Excel2013で確認したので、元のユーザー関数のままで可能です。

Function SumColoredCells(pRange As Range) As Double
Dim cel As Range
Dim total As Double
　For Each cel In pRange
　　If cel.Interior.ColorIndex <> xlNone Then
　　　total = total + cel.Value
　　End If
　Next cel
SumColoredCells = total
End Function

保存先を標準モジュールにするだけです。

No.1 回答者： むっすー 回答日時： 2023/02/28 12:58

０ではなく-4142にしてみてはいかがでしょう。