[[20220425195144]]　『セルの塗りつぶし』（社畜の血）　ページの最後に飛ぶ

『セルの塗りつぶし』（社畜の血）

よろしくお願いします

シート１のA1、A2、A3にVLOOKUPで表示した値が入っています
シート１のD5にVLOOKUPの検索値が入っています
シート２のA列に果物の名前が入っています
シート２のB〜D列に購入先の青果店名が入っています
シート２のB〜D列の青果店の入力されているセルには色が塗ってあります

シート１のA1、A2、A3に表示される値にシート２のB列〜D列にある色を塗りたい

シート１　りんごの時 A2、A3はエラーの表示になるので都度、数式を削除している
　　　A　　　　　　　B　　　C　　　D
1　田中青果店←赤に塗りたい　=VLOOKUP(D5,Sheet2!A1:D5,2,FALSE)
2　　=VLOOKUP(D5,Sheet2!A1:D5,3,FALSE)
3　　=VLOOKUP(D5,Sheet2!A1:D5,4,FALSE)
4
5　　　　　　　　　　　　　　　　りんご（VLOOKUPの検索値）

シート１　なすの時
　　　A　　　　　　　B　　　C　　　D
1　鈴木青果店←赤に塗りたい　=VLOOKUP(D5,Sheet2!A1:D5,2,FALSE)
2　山本青果店←黄色に塗りたい　=VLOOKUP(D5,Sheet2!A1:D5,3,FALSE)
3　高橋青果店←青に塗りたい　=VLOOKUP(D5,Sheet2!A1:D5,4,FALSE)
4
5　　　　　　　　　　　　　　　　なす（VLOOKUPの検索値）

シート２（）の中はセルを塗りつぶしている色、（）のないものは塗りつぶしなし
　　　A　　　　　　B　　　　　　　　　　　C　　　　　　　　　　　D
1　りんご　　　田中青果店（赤）
2　バナナ　　　斉藤青果店（赤）　　田中青果店（黄）　　　　林青果店（青）
3　トマト　　　武井青果店（黄）　　
4　すいか　　　林青果店（青）　　　田中青果店
5　なす　　　　鈴木青果店（赤）　　山本青果店（黄）　　　　高橋青果店（青）

エクセル2019
Windows10

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

条件付き書式では無理のように思います。
たぶんマクロが適していると思います。
マクロ使用は、想定内許容範囲内ですか？

（γ） 2022/04/25(月) 21:04

γさん
こんばんは、お返事有難うございます
条件付き書式では無理なんだろうなと薄々感じておりました
(↑色々なサイトを検索してそう感じました)
マクロの使用は想定内、許容範囲内です
（社畜の血） 2022/04/25(月) 23:16

 [Sheet2]
    |[A]   |[B]             |[C]             |[D]             |[E]   |[F]   |[G] 
 [1]|りんご|田中青果店（赤）|                |                |Red   |None  |None
 [2]|バナナ|斉藤青果店（赤）|田中青果店（黄）|林青果店（青）  |Red   |Yellow|Blue
 [3]|トマト|武井青果店（黄）|                |                |Yellow|None  |None
 [4]|すいか|林青果店（青）  |田中青果店（青）|                |Blue  |None  |None
 [5]|なす  |鈴木青果店（赤）|山本青果店（黄）|高橋青果店（青）|Red   |Yellow|Blue

 [Sheet1]
 A1に条件付き書式
 =VLOOKUP(D5,Sheet2!A1:F5,5,FALSE)="Red"  ⇒赤色に設定
 =VLOOKUP(D5,Sheet2!A1:F5,5,FALSE)="Yellow"  ⇒黄色に設定
 =VLOOKUP(D5,Sheet2!A1:F5,5,FALSE)="Blue"  ⇒青色に設定
 =VLOOKUP(D5,Sheet2!A1:F5,5,FALSE)="None"  ⇒色なしに設定
 A2に条件付き書式
 ･･･
 A3に条件付き書式
 ･･･
（ピンク） 2022/04/26(火) 06:48

Changeイベントプロシージャで、D5セルに変化があったとき（消去も含む）、
SHeet2のA列でマッチした行を、転置してコピーペイストするコードを書きましたが、
条件付き書式でできるようですので、そちらをお使い下さい。
そのほうが安全です。
（マクロがすぐに頭に浮かぶと、なかなか思いつくことを避けがちでした。流石です）

（γ） 2022/04/26(火) 07:16

ピンクさん
γさん
条件付き書式では無理だと諦めていました
有難うございます
色を判定する列をつけることは全く思いつきませんでした
（社畜の血） 2022/04/26(火) 07:54

＞シート１　りんごの時 A2、A3はエラーの表示になるので都度、数式を削除している
A2 =VLOOKUP(D5,Sheet2!A1:D5,3,FALSE)&""
A3 =VLOOKUP(D5,Sheet2!A1:D5,4,FALSE)&""

（ピンク） 2022/04/26(火) 09:06

 >りんごの時 A2、A3はエラーの表示になるので

 0は参照元が空欄だから0値を返しているだけなので
 エラーではありません。
 0値の回避はピンクさんの式で対応できます。

 ちなみに式ですが

 A1=VLOOKUP($D$5,Sheet2!$A$1:$D$5,ROW(A2),FALSE)

 とかにしておけば、そのまま下にコピーできませんか？
（コナミ） 2022/04/26(火) 12:38

ピンクさん
コナミさん
お返事有難うございます

ピンクさんの数式で0値の回避できました
都度削除する手間がなくなりました
有難うございます
A2 =VLOOKUP(D5,Sheet2!A1:D5,3,FALSE)&""
A3 =VLOOKUP(D5,Sheet2!A1:D5,4,FALSE)&""

A1=VLOOKUP($D$5,Sheet2!$A$1:$D$5,ROW(A2),FALSE)
シート２の範囲を絶対参照にすることはわかっていましたが、
ROW(A2)は知りませんでした
検索値も絶対参照にして良いのですね
ダメだと思い込んでいました

勉強になりました
有難うございます
（社畜の血） 2022/04/26(火) 15:38

コメント返信：

[ 一覧(最新更新順) ]

[[20220425195144]] 『セルの塗りつぶし』（社畜の血） ページの最後に飛ぶ

[[20220425195144]]　『セルの塗りつぶし』（社畜の血）　ページの最後に飛ぶ