このQ&Aは役に立ちましたか?
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は役に立ちましたか?
この質問は投稿から一年以上経過しています。
解決しない場合、新しい質問の投稿をおすすめします。
こういう書き方は困ります。
ジャスト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 の合計です。間の数字も加算されるので引いています。
4段階くらいであれば、SUBTOTAL関数とフィルタで対応出来ると思います。
(表はずらっと横に並べる形のフォーマットにしたほうが使い易いでしょう)
真面目にやるならマクロの記録で、VBAマクロ化してしまい
マクロ実行で算出するようにした方が、番号欄とか無視出来ますし便利です。
ありがとうございます!
しかし、スミマセンがExcel初心者でよくわかりません。
実際の計算式を教えて頂けると助かります。
プリントアウトしないといけないので
何か良い方法があれば教えて下さい。
スミマセン
2018/11/09 21:13
4段階に色分けして条件付きセルの設定で分けているのでしたら、4段階に色分けした条件で4種のコード(例えば1,2,3,4)を別の表として作り、その表をピボットテーブルで集計してはいかがでしょうか。
ありがとうございます!
スミマセンExcel初心者でよくわかりません。
教えて頂けると助かります!
2018/11/09 21:15
関連するQ&A
エクセルのデータの表すことについて
表側の厚さを測定したデータがありますが、 このデータは300πの円形上の塗布された厚さを中心から等しい割合で 測定されたデータです 例えば 厚さ 2 1 0 2...
エクセルにCAD図面を貼り付ける方法
お世話になっております。 エクセル、ワード等で会社内の各種報告書を作成していますが、それにCADの図面を貼り付けたい場合が多々あります。 いろいろ試してみたので...
AutoCADで書かれた部品表エクセルへの変換
お世話になります。 早速ですが、質問させていただきます。 客先よりAutocad(?拡張子DWG)で作成された部品表が届きました。 この部品表をエクセルに変...
ベストアンサーを選ぶと質問が締切られます。
なおベストアンサーを選びなおすことはできません。