エクセルのオートサムについて

質問

エクセルのオートサムについて質問があります。
エクセルの表の中に黒、赤、青、黄色など色をかえてそれぞれ数字を入力していった場合、
（すべてバラバラの行）、各色ごとの合計を出すような機能はあるでしょうか？　
つまり、色を認識して、黒の文字の合計はいくら、青で記入した文字の合計はいくら、
といった出し方ができないかということです。　どうぞよろしくおねがいします。

回答No.3

tom04

こんばんは！
色を検索条件としてのSUMIF関数使用はできないと思います。
VBAでの方法になってしまいますが、一例です。
データは1列だけとしています。
（もし複数列・複数行の場合は当然コードは変わってきます）

↓の画像のようにA列の2行目から色つきセルのデータがあり、集計したい表をC・D列としてみました。
C列には集計したいセルの色の見本とデータ（なんでも良いです）を入力しておきます。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
マクロの実行方法は
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, j As Long
Dim Val As Variant
For j = 2 To Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Interior.Color = Cells(j, 3).Interior.Color Then
Val = Val + Cells(i, 1)
End If
Next i
Cells(j, 4) = Val
Val = 0
Next j
End Sub 'この行まで

参考になれば良いのですが・・・m(__)m

お礼

とても丁寧に説明していただきありがとうございました。　少し難しそうですが、試してみます。　
セルの背景色でなく、数値そのものの色を変えてそれを認識させるのはやはり無理そうですね。　どうもありがとうございました。