本文へ移動
サポートシェアリングソリューション
OKWAVE Plus

このQ&Aは役に立ちましたか?

1人が「役に立った」と評価
ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルについて教えてください)

エクセルで水揚げ表を色分けし、数字の合計を出す方法

2023/10/19 22:44

このQ&Aのポイント
  • エクセルで水揚げ表を作成し、1~100までの数字を4段階に色分けしています。しかし、それぞれの色分けした数字の合計を出したい場合、どのようにすればよいでしょうか?
  • Excelを使用して水揚げ表を作成しています。1~100までの数字を4段階に色分けしていますが、それぞれの色分けした数字の合計を算出したいです。どのようにすれば合計を出すことができるでしょうか?
  • エクセルで作成した水揚げ表には、1~100までの数字が4段階に色分けされています。それぞれの色分けした数字の合計を知りたいです。合計を出す方法について教えてください。
※ 以下は、質問の原文です

エクセルについて教えてください

2018/11/09 17:17

エクセルについて教えてください。
水揚表に、1~100まで入力できて
3キロ以下
3~5キロ
5~7キロ
7キロ以上で4段階に色分けしています。
そこまでは、条件付きセルの設定で分けているのですが
その色分けしたものを(4段階を)それぞれで数字の合計を出したいです。
添付したファイルを見ていただくとわかるかもしれませんが
番号の1~100を含めた表は固定化し入力できないようにしたいです。
(入力した数字だけ一斉削除したいので)
よろしくお願いします

投稿された画像

質問者が選んだベストアンサー

ベストアンサー
2018/11/10 07:54
回答No.4

VBAを使った関数でよければ
https://okwave.jp/qa/q9479525.html
で紹介したコードがそのまま使えると思います。

この関数を標準モジュールに配置し
集計したいセルに次のような関数を埋めると
=SumColor(A3:T12,B3)

セル範囲:A3:T12の中で、
B3セルと同じ背景色のセルの値を合計します。


なお、
背景色だけが変わるような操作の場合
この関数は再計算が行われませんので
関数を埋めたセルを選択し、
F2キー、エンターキーの操作を行う必要があります。

Option Explicit

Function SumColor(TargetRange As Range, BaseColorCell As Range) As Double
 Dim wkCounter As Double
 Dim wkRange As Range

 wkCounter = 0
 For Each wkRange In TargetRange
  If wkRange.Interior.ColorIndex = BaseColorCell.Interior.ColorIndex Then
   wkCounter = wkCounter + wkRange.Value
  End If
 Next wkRange

 SumColor = wkCounter

End Function

このQ&Aは役に立ちましたか?

この質問は投稿から一年以上経過しています。
解決しない場合、新しい質問の投稿をおすすめします。

質問する

その他の回答 (4件中 1~4件目)

2018/11/10 00:52
回答No.3

こういう書き方は困ります。
ジャスト3キロ、5キロ、7キロはどうするのか判りません。
(以上、以下はジャストを含みます。3キロ以上だと3キロを含みます。3キロを含まいなら3キロより小さいという書き方をして下さい。)
ジャストは大きい方に入れました。
(1)3キロより小さい。(3キロ含まない)
(2)3キロ以上5キロより小さい。(3キロ含む)
(3)5キロ以上7キロより小さい。(5キロ含む)
(4)7キロ以上。(7キロ含む)

(1)=SUMIFS(B3:T12,B3:T12,"<3")
(2)=SUMIFS(B3:T12,B3:T12,">=3",B3:T12,"<5")
(3)=SUMIFS(B3:T12,B3:T12,">=5",B3:T12,"<7")
(4)=SUMIFS(B3:T12,B3:T12,">=7")-4995
でどうでしょうか。
4995は、11~100 の合計です。間の数字も加算されるので引いています。

2018/11/09 17:36
回答No.2

4段階くらいであれば、SUBTOTAL関数とフィルタで対応出来ると思います。
(表はずらっと横に並べる形のフォーマットにしたほうが使い易いでしょう)

真面目にやるならマクロの記録で、VBAマクロ化してしまい
マクロ実行で算出するようにした方が、番号欄とか無視出来ますし便利です。

補足

2018/11/09 21:13

ありがとうございます!
しかし、スミマセンがExcel初心者でよくわかりません。
実際の計算式を教えて頂けると助かります。
プリントアウトしないといけないので
何か良い方法があれば教えて下さい。
スミマセン

質問者
2018/11/09 17:28
回答No.1

4段階に色分けして条件付きセルの設定で分けているのでしたら、4段階に色分けした条件で4種のコード(例えば1,2,3,4)を別の表として作り、その表をピボットテーブルで集計してはいかがでしょうか。

補足

2018/11/09 21:15

ありがとうございます!
スミマセンExcel初心者でよくわかりません。
教えて頂けると助かります!

質問者

お礼をおくりました

さらに、この回答をベストアンサーに選びますか?

ベストアンサーを選ぶと質問が締切られます。
なおベストアンサーを選びなおすことはできません。