G列内の組み合わせを検索する方法

質問

全てのシートのG列の中から、指定した組み合わせを含むセルに赤色をつけ、60パーセント以上のセルで一致してたら黄色をつける。このようなことは可能でしょうか。
例えば↓みたいな感じです。
Cells(i,"G").Value = 1
Cells(i +1 "G").Value = 3
Cells (i +2 "G"). Value = 5
1、全シートのG列から上記に合致するものを検索する。
2、G1= 1 G2 = 3 G3 = 5なら、３つのセルを赤
G100 = 1 G101= 4 G102 =5 なら３つのセルを黄色
3、赤と黄色が重複する場合は紫（色は何色でもいいです）
※60パーセントというのは完全一致じゃないけれどそれなりに一致しているセルを確認するために使った数字です。

回答No.1

ken-nosuke · ベストアンサー

１）条件付き書式による場合と、VBAを使う場合がありますが、希望は、ありますか？
２）Excelのバージョンはいくつですか？

差支えなければ、具体的な利用方法を教えていただけますか？

回答により、検討します。たとえば、具体的には、３つのセルでなく、５つもあるなど多くなると条件付き書式では、対応が難しくなります。

お礼

うまくいきました！

回答No.2

ken-nosuke

VBAを使わない方法でやってみました。

1)I1～I3に検索したい文字１，３，５を入力
2)G4～に判定したい文字を入力
3)I4～に下記式を入力
I4:　=IF(G2=$I$1,1,0)+IF(G3=$I$2,1,0)+IF(G4=$I$3,1,0)
J4:　=IF(G3=$I$1,1,0)+IF(G4=$I$2,1,0)+IF(G5=$I$3,1,0)
K4:　=IF(G4=$I$1,1,0)+IF(G5=$I$2,1,0)+IF(G6=$I$3,1,0)
L4:　=IF(COUNTIF(I4:K4,3)>0,3,0)
M4:　=IF(COUNTIF(I4:K4,2)>0,2,0)
N4:　=L4+M4

4)I4～N4をコピーしI5から下に貼り付け
5)G4の条件付き書式に次の式を設定
条件式　　　　　書式
第1条件：＝N4=3 背景「赤」
第2条件：＝N4=2 背景「青」
第3条件：＝N5=5 背景「紫」

注）
G1～G3は、空白にしておくこと
I4～Mxxは、計算領域。見せたくなければ、文字色を「白」すればOK
各式の意味は、勉強してください。

以上、何の役に立つかわかりませんが、自分の訓練の為やってみました。

お礼

ご回答有難うございます。エクセルは2011でVBAの方がありがたいですが、（毎回全てのシートで実行するので）教えていただいた関数をそのままFomulaでマクロにすれば何とかいけるかもしれないのでとりあえずやってみます。
なお、自分で考えたのは
x = 最大行
For i = 1 to x　
If Cells(i,"G").Value = 1 and Cells(i +1 "G").Value = 3 and Cells (i +2 "G"). Value = 5 then セルを赤
みたいなやつですが、結果が出るまで時間がかかりそうだったのでボツにしました。