![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
先ほどの続きですが、これではすべて加算してしまいます。
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
No.4ベストアンサー
- 回答日時:
多用すると重くなりますが、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
No.3
- 回答日時:
No.1の回答にある-4142は、定数xlNone を値にしたもの。
https://learn.microsoft.com/ja-jp/office/vba/api …
結局は同じものなので、保存先さえ間違えなければ使えたはず。
No.2
- 回答日時:
先ほど回答したものですが、無視ですか?
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
保存先を標準モジュールにするだけです。
![「excel2013 色付きセルの値合計」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/1/190948_63fd842576327/M.png)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excel2013 色付きセルの値合計 3 2023/02/28 11:48
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
- Visual Basic(VBA) A2セルの値が「100021_りんご01青森県」からInStrで「りんご」を抽出したい。 セルの値が 5 2022/08/15 09:42
- Excel(エクセル) エクセルで書式設定とフィルタの組み合わせでうまく行かないのですが 4 2022/10/07 10:02
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Access(アクセス) ExcelのVBAコードについて教えてください。 4 2023/01/20 09:44
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
就労継続支援B型の食事加算につ...
-
論理加算と算術加算ってなんで...
-
個別機能訓練加算(II)について
-
ニ進数における「1の補数」の欠点
-
訪問看護ステーションの24時間...
-
特別養護老人ホームの嘱託医に...
-
excel2013 色付きセルの値合計
-
デイサービスでの機能訓練指導...
-
自家製剤加算について
-
訪問介護の初回加算について
-
特養で点滴
-
要支援の更新時の契約
-
外泊時費用はなぜ加算でなく費...
-
特定薬剤治療管理料について
-
調剤料の加算項目について
-
(日本人は)法律上はいつ歳をと...
-
老健施設で働く歯科衛生士です...
-
生活扶助基準(2類費)基準額...
-
外用薬の調剤料について
-
iPhoneのショートカットで時間...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
就労継続支援B型の食事加算につ...
-
特別養護老人ホームの嘱託医に...
-
整形レセプト・三角巾について
-
論理加算と算術加算ってなんで...
-
論理回路
-
iPhoneのショートカットで時間...
-
特養で点滴
-
老健施設で働く歯科衛生士です...
-
外泊時費用はなぜ加算でなく費...
-
8ビット 全加算器について
-
エクセルで列にある数字を簡単...
-
訪問介護の初回加算について
-
訪問看護ステーションの24時間...
-
口腔ケア加算について
-
放課後等デイの欠席時対応加算...
-
診察料に含まれるもの
-
リハビリ強化型デイサービスとは?
-
障害福祉サービスにおける食事...
-
サービス提供体制加算の適用月...
-
デイサービスでの機能訓練指導...
おすすめ情報
皆さんありがとうございます。うまく計算できますが、色を付けたり消したりすると計算は自動更新しないのですが、この対応はどうしたらよいのでしょうか?。初歩的な事で誠にすいません。