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

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルの塗りつぶし』(社畜の血)

よろしくお願いします

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

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

シート1 りんごの時 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の検索値)

シート1 なすの時
   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の検索値)

シート2()の中はセルを塗りつぶしている色、()のないものは塗りつぶしなし
   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

>シート1 りんごの時 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)
シート2の範囲を絶対参照にすることはわかっていましたが、
ROW(A2)は知りませんでした
検索値も絶対参照にして良いのですね
ダメだと思い込んでいました

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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.