Ｅｘｃｅｌ ＶＢＡ背景色について。

質問

Ａ１からＥ1までの行にそれぞれ違う文字が入ります。

そしてＦ１からＪ１にはＡ１～Ｅ１を検索値にしてvlookup関数で文字の種類番号が表示されるようになっています。そして種類は全部で9種類あり、Ａ１からE1まではその9種類のどれかに該当すれば条件付き書式で背景色がつくようになっています。
Ａ１～Ｅ１はそれぞれ違う文字が入りますが、5つ全て種類は同じです。
例えばＡ１がvlookup関数の検索にヒットして9種類の内の1番に該当するならば、B1からＥ１まで全て1番という事になります。C1が4番に該当したらA1からE1全て4番ということになります。

しかし、A1からE1まで全てがvlookup関数にヒットするわけではありません。
A1とD1だけが該当してB1、C1、E1は該当せず背景は白のままです。全てヒットして綺麗に前セルの背景が一色になることもありますが、大体は１つ２つしかヒットしません。どれか一つでも該当したらその５つの種類は同じです。
そこで、該当しなかったセルの背景も同じように背景色をつけたいのですがどうすれば良いでしょうか。条件書式で重ねれば良いとも思いましたが、それぞれのセルには既に9種類の色分けをするために9つのルールが入っているので、重ねればさらに膨大な条件書式の量になるので、色の値を返せるVBAでスマートに解決できないかと思い質問させて頂きました。
説明下手でわかりにくいと思いますが、VBAでどうにか良い方法はないでしょうか。
よろしくお願いしますm(_ _ )m

回答No.1

keithin · ベストアンサー

＞Ｆ１からＪ１にはＡ１～Ｅ１を検索値にしてvlookup関数で文字の種類番号が表示されるようになっています

Ａ１からＥ１のどれかが「種類１」に該当すれば、Ｆ１からＪ１の該当位置に「種類１」と答えが出てくるように仕込んでありますね。

ではＡ１：Ｅ１を選び、条件付き書式で数式を使い
=COUNTIF($F1:$J1,"種類１")>0
として、種類１の色を塗ってやればＯＫです。

種類２～９についても同様に重ね掛けしておきます。

＃参考
条件付き書式の発色を、マクロを使って拾って返す方法はありません。

お礼

なるほど。ＣＯＵＮＴIF関数をこうやって使用すれば良かったのですね。
やりたい事が綺麗にできました!!
毎度勉強になりますm(_ _ )m