色が付いたセルの合計を出したいのですが…

Question

いつもお世話になります。

エクセル２００２を使用していますが、特定の色が付いたセルの個数を数えたいのです。
同時に「色が付いてあるセルを数える」に加えて、「色を付けたら直後、そのセルの個数が数えられる」ようにしたいのです。
「色が付いたセルの引数を数える」というのは分かるのですが、「セルだけの合計」となると分かりません…。

以前にも質問しましたが、結局分からず終いでしたので、改めてお願い致します。

例題）Ａ１～Ｇ１を赤で色付けした時に、赤色の付いたセルの個数をＡ２に出す。
理想とする結果）　Ａ２に赤色のセルの合計「７」が出た。

ja7awu · Accepted Answer

ユーザー定義関数による方法です。

一般の関数のような使い方で、指定した色のセル数をカウント出来ます。
色を変更し、<Enter>等で他のセルに移動した時点で再計算します。

書式： CCount(範囲,色番号(カラーインデックス))
使用例 : CCount(A1:A100,3) 　　A1:A100範囲の赤色をカウント
(赤=3 ですが、他の色の番号を知るには、後述の GetIndx関数で調べられます。)

これで良かったら、詳しく操作手順を書きますので、新しいブックでテストして
みてください。

ＶＢＡコード設定方法
１．Alt + F11 で VBE(Visual Basic Editor)を開きます。 
２．VBE のメニューから[挿入] -->[標準モジュール] を指定します。 
３．モジュールウィンドウに下記コードをコピーして貼り付けます。
４．Alt + Q （または、右上隅の×）でウィンドウを閉じ、シートに戻ります。
５．メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を
　「中」にして[OK]します。

Function CCount(Rng As Range, idx)
Dim R As Range
Dim Cnt As Long
Application.Volatile
For Each R In Rng
　　If R.Interior.ColorIndex = idx Then Cnt = Cnt + 1
Next R
CCount = Cnt
End Function

Function GetIndx(Rng As Range)
If Rng.Count > 1 Then
　　GetIndx = vbNullString
　　Exit Function
End If
GetIndx = Rng.Interior.ColorIndex
End Function

'---------------------------------------
◎ 各色のカラーインデックスを調べる関数（付録）
コード後半は、GetIndx関数は、カラーインデックス番号を調べる関数です。
必要なときに使ってみてください。

使い方例： A1をインデックス番号を調べたい色で塗り潰します。
例えば、セルA1を任意の色で塗り潰し、B1に
　=GetIndx(A1)　を入力するとそのカラーインデックス番号が表示されます。

----------------------------------------
※ CCount関数を自動再計算に対応させる設定

　色を変更しただけでは、再計算されませんので Enter等でセルを移動した時点
　で、再計算されるようにします。（シートモジュールに記述）

【 操作手順 】
・この関数を使用しているシートのシート名タブを右クリックして「コードの表示」を
　指定します。
・開いたコードウィンドウに下記コードをコピーして貼り付けます。
・Alt+ Q (または、右上隅の×）でウィンドウを閉じ、シートに戻ります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
　　Calculate 
End Sub

table_1969 · Answer

参考になるかどうか分かりませんが、下記URLご参照下さい。

参考URL：http://www.katch.ne.jp/~kiyopon/soft/index.htm

imogasi · Answer

(１．セルに色を付ける基準）
（１）条件付き書式などで、セルの値（数値や文字列）で
色をつけている場合は、その値を使って、ＣＯＵＮＴＩＦ
、ＳＵＭＩＦやＳＵＭＰＲＯＤＵＣＴその他の関数で
件数や合計が出せる場合があります。
（２）そうではなくて、人間の総合的な判断でセルに色を付ける場合は、関数式で判別しようがないので、関数式では不可能です。
（３）関数式では、もともとセルの色や書式を設定出来ないのがエクセルの基本原則です。
（２．即時性）＞色を付けたら直後、・・・
（１）関数では、値を変えると、基本は即時に再計算され、結果が更新されます。しかし、上記１で述べたように
関数でセル色を捉えることが出来ない（旧いバージョン
での出来る回答があるかもしれないが）ので、これも難しい。
（２）ＶＢＡでやればセル色の判断や合計、件数カウントは出来るが、セル書式の変化を捉える「イベント」がエクセルに設けられていないので、１．（１）以外では難しい
と思います。
（３）そういう合計、件数カウントの計数を欲しい時に
ボタンクリックなどの「イベント」をあたえる、労を我慢するならば、ＶＢＡで小数行のコードで可能です。
Private Sub CommandButton1_Click()
Dim cl As Range
t = 0
c = InputBox("赤＝3，緑＝4、黄＝6,ブルー＝8")
For Each cl In Range("A1:G5")
If cl.Interior.ColorIndex = Val(c) Then
t = t + cl
End If
Next
Range("A6") = t
End Sub
（１）シート上にコマンドボタンを１つ貼りつけ、ダブルクリックして出てくるＶＢＥ画面に、上記を貼りつけてください。
（２）対象セル範囲は Range("A1:G5")を適当に変えること。
（３）計数をセットするセルはRange("A6") を適当に変えること。
（４）InputBox("赤＝3，緑＝4、黄＝6,ブルー＝8")
はＣｏｌｏｒＩｎｄｅｘを調べて、適当に増やしてください。
ＣｏｌｏｒＩｎｄｅｘは
Sub test02()
For i = 1 To 50
Cells(i, "A").Interior.ColorIndex = i
Next i
End Sub
を実行して、どんな色かシート上で見てください。
（５）セル数ならt = t + clをt = t + 1に変えてください。
（６）実行はシートのボタンをクリックすると実行されます。

koma1000nin · Answer

エクセルでカラー属性の判定はできません。
私は37年間情報処理会社におりましたが、定年を迎えるまでついに「できます」という話を聞けませんでした。
また、ＶＢ等でセル背景色の識別をするときは色を数字で指示する必要があります。例えば#FF0000であれば赤、#00FF00であれば緑、#0000FFであれば青…といった知識がないとあつかえません。老婆心ながらＶＢでおやりになることを想定して、赤色コード（#FF0000）を例示しておきました。

imaruya · Answer

Excelの関数のみでセルの色の判定を行うのは難しいかも・・・
赤に色つけを行う判定条件をカウントすればワークシート関数のみで可能と思われます。

なお、VBAならばColorプロパティで判断できると思います。

色が付いたセルの合計を出したいのですが…

ユーザー定義関数による方法です。

この回答への補足

参考になるかどうか分かりませんが、下記URLご参照下さい。

(１．セルに色を付ける基準）

エクセルでカラー属性の判定はできません。

Excelの関数のみでセルの色の判定を行うのは難しいかも・・・

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング