[[20080729144923]]　『色付きセルの合計をだしたい』（7544）　ページの最後に飛ぶ

『色付きセルの合計をだしたい』（7544）
お世話になっております。下記表ですがエクセルをコピーしても色だけ表示されなかったです、3.7.8.9.10.11だけに本来セルの色が緑です。色のついているセル数字だけの合計を出したいのですが、いい方法はありますでしょうか？ご回答宜しくお願い致します・・・

	A
1	出荷金額
2	640,000
3	3,300,000
4	0
5	560,000
6	300,000
7	159,600
8	124,500
9	12,000
10	48,000
11	437,800
12	440,000
13	690,000
14	0
15	0
16	1,330,000
17	2,800,000
合計

 通常の機能では出来ません。
 ライブラリのcolor関数を使うのが一つの方法です。
https://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html
　
（純丸）(o^-')b

 上のアドインは公式のものではないので、会社とかではあまり使えないのでは？
 また、そのファイルを他のPCで開いたら計算しないし。

 「色のついたセルの合計を出したい」というのが、どうなのでしょう？
 どうしても「色」でないといけないのですか？

  CELLという関数にセルの色という検索の種類が存在すれば、これでもできるのかな。

 エクセルは関数やオートフィルなど、基本色で識別する仕様になっていないようです。
（一部、Ver.により、検索は可能ですし、マクロはその範疇ではありませんが）

 例えば、それぞれの色ごとにB列に数字を入れて、sumifで計算してはどうでしょうか？
 例えば「赤＝1」「青＝2」とかって。。。

 うめ

ありがとうございます。。。上司が作成したシートなので、変更できないんです。私が編集できたら他の人は見ることがないので、一度教えていただいた方法でやってみますね。ありがとうございました。

 上記は、運用の仕方までは考慮していない、一般的な回答です。
 他には、4.0マクロ関数を埋め込むなんて方法もあります。
 参考までに。
http://miyahorinn.fc2web.com/faq/faq030.html
　
（純丸）(o^-')b

色関数のアドインを使用していたら、
次から起動しなくなりました。必ずエラー報告が出て強制終了です。
同じ症状でお悩みの方いませんか？
なんとか起動する方法はないでしょうか？

 マクロを使えば，A列データ範囲でセル色を確認しながら
指定色（緑）だったら，加算して，データ末尾まで加算
するという方法でできます。（マクロなら）

   Sub test()

 For i = 2 To 17
 If Cells(i, 1).Interior.ColorIndex = 4 Then
 alldata = alldata + Cells(i, 1).Value
 End If
 Next
 Cells(18, 1) = alldata

 End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20080729144923]] 『色付きセルの合計をだしたい』（7544） ページの最後に飛ぶ

[[20080729144923]]　『色付きセルの合計をだしたい』（7544）　ページの最後に飛ぶ