文字の色も参照 VLOOKUP

質問

VLOOKUPを使って、シート1に有るデータベースから
必要なデータを参照して、シート2に表示させています。この時シート1のデータの中には、いくつか
文字の色がついていて　目立つようにしているものがあります。これをVLOOKUPのように、同じくデータベースから参照して、抽出先データに反映させたいのですが、関数では出来ないようで、VBAでコントロールをする必要があるようで、調べたところ下記の様な、質問が過去にあり、
http://oshiete1.goo.ne.jp/kotaeru.php3?q=968962
これを試してみましたが、あまり詳しく書かれていなく、私の解釈で作るとまったく動作しませんでした。
どなたか、わかる方もう少し補足情報をいただけませんか？
よろしくおねがいします。

回答No.1

snoopy64 · ベストアンサー

どうしてもVBAでというなら僕の回答は読み飛ばしてください。

VLOOKUPと条件付書式でやる方法を思いつきました。
シート１に１列追加し、色付きなら1、色付きじゃなければ空白とします。
で、シート２の方では項目を参照するVLOOKUPの右の列に、先程追加した色付きか否かのフラグ列を参照するVLOOKUPを書きます。
最後に、項目を参照した列を選択して、書式→条件付書式
数式が：=D1=1
（色つきか否かの列がDの場合）
これで、シート１で色付きの項目を参照した場合はシート２でも色つきにはなります。

頑張ってくださいヽ(^。^)ノ

お礼

GET.CELLでセル番号を取って、それをVLOOKで参照し、条件書式したらうまくいきました。再計算（F9)をさせないと変更が更新されないので、これを自動でするマクロを入れようと思います。
大変参考になりました。
有難う御座います。

回答No.4

taocat

例えば商品テーブルとして、Ｓｈｅｅｔ１　に

　　　　Ｅ　　　　Ｆ　　　　Ｇ
１　　番　号　　品　名　　単　価　
２　　Ｓ１０　　みかん　　１００
３　　Ｓ２０　　りんご　　２００
４　　Ｓ３０　　ばなな　　３００

があり、同じくＳｈｅｅｔ１のＡ列に番号を入力して、
この商品名テーブルを参照し、Ｂ列に品名を表示する場合。
強調の為の色は品名に付けてあるとする。

番号がない場合はOn Errorでこの処理を抜ける。

これはあくまでもワークシート関数を使用する場合であり、またこのような場合ワークシート関数はVLookUpではなくMATCH関数が適しています。

VBEを開き、Sheet1に以下を書くかコピペ。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Long
On Error GoTo JumpSub

If Target.Column = 1 Then

R = WorksheetFunction.Match(Target, Range("E1:E4"), 0)

With Target.Offset(0, 1)

.Value = Range("F" & R).Value
.Font.ColorIndex = Range("F" & R).Font.ColorIndex

End With

End If

JumpSub:
End Sub

上記のコードの場合、MATCHの範囲は、
Ｅ１：Ｅ４　です。
Ｅ２：Ｅ４　と勘違いしないように。

また、上記のコードのような場合はApplication.EnableEventは必要ありませんが、大事なことですので、どういうときに必要になるのかはちょと勉強してみてください。

お礼

返事おそくなりました。
ご丁寧に解説有難う御座います。
コピペをしてみたのですが、うまく動かなく、
あまり手取り足取り質問するのも申し訳ないので、
今回はもう少し低めのハードルに挑戦します。
有難う御座いました。

回答No.3

imogasi

上記過去質問の回答者です。
例題ちして、Ｅ１：Ｇ３に
1 東京 6
2 大阪 8
3 名古屋 22
をいれ、表を作ります。
Ｇ列は色コードです。
Ｓｈｅｅｔ１のＣｈａｎｇｅイベントに
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Range("e1:g3"), 2, False)
Application.EnableEvents = True
Target.Offset(0, 1).Interior.ColorIndex = _
WorksheetFunction.VLookup(Target, Range("e1:g3"), 3, False)
End If
End Sub
をコピーします。
ワークシート１に戻り
Ａ列に１，２，３のどれかを入れると、Ｂ列にそれに対応した文字列が入り、Ｂ列セルに色がつきます。
但し、ＶＢＡが少し判っていただいてないと、頓挫するかも知れない気がします。
（１）Ｃｈａｎｇｅイベントのクセ
（２）途中でエラーに成ったとき、標準モジュールの
Sub test01()
Application.EnableEvents = True
End Sub
で普通状態に戻す
（３）本番では
Target.Column = 1の部分の、入力列に合わせた修正
"e1:g3"),の部分の表の大きさ（項目数の多さ）による
修正
などが必要です。

お礼

簡単なVBAしかわからなく挫折してしまいました。
ご丁寧に解説有難う御座います。
もう少し力をつけてからVBAに切り替えさせていただきます。お返事おそくなってすみません。

回答No.2

BLUEPIXY

ＶＢＡでやる場合、
例えば、
マクロの記録で
書式のコピー（ハケのボタン）を使って
どっかの書式付けされたセルをコピーしてみて下さい。
その時のマクロの記録を参考に、
該当セルの書式をコピーすればいいと思います。

お礼

アドバイス有難う御座います。
参考にさせていただきます。