背景色赤のセルに表示された数字の集計方法

質問

• A～Jには、ランダムに１～５０の数字１つづつ１０個記入しています。そこに記入した数字は、１ならKの、２ならLの・・・５０ならBHのセル背景色が赤に変更出来るようにするための条件付き書式が設定されています。
• １０００行のデータに対して、背景色が赤のセルに表示されている０～２０までの各数字を集計したいです。
• マクロを使用して背景色で集計する方法や文字色で集計する方法が知りたいです。エクセルのバージョンは2003と2007を使用しています。

回答No.1

tom04

こんばんは！
参考になるかどうかわかりませんが・・・
VBAでの一例です。

手元にExcel2007がないので、Excel2003での方法になります。
Excel2003では条件付書式で色が設定されているセルを判断するのは大変だと思いますので、
コード内に条件付書式の条件を組み入れる方法です。

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

Sub test() 'この行から
'変数の宣言（長整数型）
Dim i, j, k, L As Long
Dim vl As Variant

'「i」はA列の1丁目から最終行まで（データが2行目からであれば、「1」を「2」に変更してください）
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

'「L」はまで（BI列～CC列まで）
For L = 61 To 81

'「j」は1から10まで（A列～J列まで）
For j = 1 To 10

'「k」は11から60まで（K列～BH列まで）
For k = 11 To 60

'条件付書式の条件をここで設定！
'K列～BH列の列番号がA列～J列のセル内数値にあり、かつ空白でないセルで
'K～BH列の値がBI～CC列の列番号より61小さいセルを検索して、
'条件にあうセルであれば「vl」として「1」ずつプラスしていく。
If Cells(i, k).Column = Cells(i, j) + 10 And Cells(i, k) = Cells(i, L).Column - 61 _
And Cells(i, k) <> "" Then
vl = vl + 1
End If

'次の「k」（列）へ
Next k
'次の「j」（列）へ
Next j

'BH列の値は「vl」に！
Cells(i, L) = vl
'「vl」を「0」に！
vl = 0
'次の「L」（列）へ
Next L
'次の「i」（行）へ
Next i
End Sub 'この行まで

尚、K～BH列には　0～20　までの数値しか入らない前提でやっています。

参考になれば良いのですが、
外していたらごめんなさいね。m(__)m

お礼

解答ありがとうございました。
お返事が遅くなりました。
実際に試していたら時間がかかってしまいました・・・。

丁寧な解説ありがとうございます。
確かに集計は出来たのですが、セルの背景色が変更されなかったです。
でも前回の条件付きを設定すれば問題がなかったのですが
マクロの実行にかなり時間がかかってしまうので
ベストアンサーに選択できませんでした。

とても丁寧な解答で勉強になりました。
ありがとうございます。
また機会がありましたら宜しくお願い致します。