文字列が同じ場合、セルに色を塗りたい

質問

エクセル　VBAでリストにある文字列と他のセルの文字列が末尾まで完全に同一の場合、
セルに色を塗るにはどのようなコードを記入すればよろしいでしょうか？

具体的には下記のような動きができればと考えております。

G列にリストがあります。（G列のリストの数は変動します）
このリストの文字列とB2:B7とE2:E7の範囲の文字列が末尾まで完全に同一の場合、
B2:B7とE2:E7のセルに黄色で色を塗る。
また、リストにはあるけど、B2:B7とE2:E7のセルにない文字列がある場合、
リストのその文字列があるセルに緑で色を塗る。

上記のような動きをするには、エクセル VBA でどのようなコードを記入すればよろしいでしょうか？

エクセルは2010及び2007を使用しております。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

黄色も緑もやることは一緒です。参考にして、適切に応用してください。

sub macro1()
　dim h as range
　dim target as range
　dim lastrow as long

　set target = range("B2:B7,E2:E7")
　lastrow = range("G65536").end(xlup).row

　for each h in target
　　if h <> "" and application.countif(range("G2:G" & lastrow), h) > 0 then
　　　h.interior.colorindex = 6
　　else
　　　h.interior.colorindex = xlnone
　　end if
　next

　for each h in range("G2:G" & lastrow)
　　if h <> "" and application.countif(target.areas(1), h) = 0 and application.countif(target.areas(2), h)=0 then
　　　h.interior.colorindex = 4
　　else
　　　h.interior.colorindex = xlnone
　　end if
　next
end sub

＃もっとも、わざわざマクロなど持ち出さなくても、条件付き書式で十分に出来ます。が、まぁマクロでやりたいなら。

お礼

ありがとうございます。
勉強になります。