
VLOOKUPを使って、シート1に有るデータベースから
必要なデータを参照して、シート2に表示させています。この時シート1のデータの中には、いくつか
文字の色がついていて 目立つようにしているものがあります。これをVLOOKUPのように、同じくデータベースから参照して、抽出先データに反映させたいのですが、関数では出来ないようで、VBAでコントロールをする必要があるようで、調べたところ下記の様な、質問が過去にあり、
http://oshiete1.goo.ne.jp/kotaeru.php3?q=968962
これを試してみましたが、あまり詳しく書かれていなく、私の解釈で作るとまったく動作しませんでした。
どなたか、わかる方もう少し補足情報をいただけませんか?
よろしくおねがいします。
No.1ベストアンサー
- 回答日時:
どうしてもVBAでというなら僕の回答は読み飛ばしてください。
VLOOKUPと条件付書式でやる方法を思いつきました。
シート1に1列追加し、色付きなら1、色付きじゃなければ空白とします。
で、シート2の方では項目を参照するVLOOKUPの右の列に、先程追加した色付きか否かのフラグ列を参照するVLOOKUPを書きます。
最後に、項目を参照した列を選択して、書式→条件付書式
数式が:=D1=1
(色つきか否かの列がDの場合)
これで、シート1で色付きの項目を参照した場合はシート2でも色つきにはなります。
頑張ってくださいヽ(^。^)ノ
GET.CELLでセル番号を取って、それをVLOOKで参照し、条件書式したらうまくいきました。再計算(F9)をさせないと変更が更新されないので、これを自動でするマクロを入れようと思います。
大変参考になりました。
有難う御座います。
No.4
- 回答日時:
例えば商品テーブルとして、Sheet1 に
E F G
1 番 号 品 名 単 価
2 S10 みかん 100
3 S20 りんご 200
4 S30 ばなな 300
があり、同じくSheet1のA列に番号を入力して、
この商品名テーブルを参照し、B列に品名を表示する場合。
強調の為の色は品名に付けてあるとする。
番号がない場合は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の範囲は、
E1:E4 です。
E2:E4 と勘違いしないように。
また、上記のコードのような場合はApplication.EnableEventは必要ありませんが、大事なことですので、どういうときに必要になるのかはちょと勉強してみてください。
返事おそくなりました。
ご丁寧に解説有難う御座います。
コピペをしてみたのですが、うまく動かなく、
あまり手取り足取り質問するのも申し訳ないので、
今回はもう少し低めのハードルに挑戦します。
有難う御座いました。
No.3
- 回答日時:
上記過去質問の回答者です。
例題ちして、E1:G3に
1東京6
2大阪8
3名古屋22
をいれ、表を作ります。
G列は色コードです。
Sheet1のChangeイベントに
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
をコピーします。
ワークシート1に戻り
A列に1,2,3のどれかを入れると、B列にそれに対応した文字列が入り、B列セルに色がつきます。
但し、VBAが少し判っていただいてないと、頓挫するかも知れない気がします。
(1)Changeイベントのクセ
(2)途中でエラーに成ったとき、標準モジュールの
Sub test01()
Application.EnableEvents = True
End Sub
で普通状態に戻す
(3)本番では
Target.Column = 1の部分の、入力列に合わせた修正
"e1:g3"),の部分の表の大きさ(項目数の多さ)による
修正
などが必要です。
簡単なVBAしかわからなく挫折してしまいました。
ご丁寧に解説有難う御座います。
もう少し力をつけてからVBAに切り替えさせていただきます。お返事おそくなってすみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) 【Excel関数】値が合致するセルの隣のセルを表示させたい 8 2022/10/12 17:44
- Excel(エクセル) エクセルで値ではなく関数を参照する方法 6 2023/03/19 00:50
- Excel(エクセル) エクセルVBA VLOOKUPを使ってのカウント作業 2 2023/02/19 09:03
- Excel(エクセル) Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。 2 2023/06/14 15:56
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Visual Basic(VBA) 指定文字を太字にするVBAを別シートのセルを指定する構文(改良について) 6 2022/08/27 22:11
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
【お題】斜め上を行くスキー場にありがちなこと
運営も客も一流を通り越して斜め上を行くスキー場にありがちなことを教えて下さい。
-
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
EXCELで塗りつぶし色ごとvlookupしたい
Word(ワード)
-
ExcelでVLOOKUP
Excel(エクセル)
-
-
4
エクセルの色も=イコールできますか?
Windows Me・NT・2000
-
5
エクセルでVLOOKUPの結果を含むセルの行色を
Excel(エクセル)
-
6
EXCELのセルや文字色の反映
Excel(エクセル)
-
7
エクセルで色の変更を他のシートに反映させるには
Access(アクセス)
-
8
エクセル 条件付き書式でVLOOKUPの使い方?
Excel(エクセル)
-
9
エクセル vlookup関数 セル書式 フォント パターン
Excel(エクセル)
-
10
エクセルのvbaによる書式のコピーについて
Excel(エクセル)
-
11
エクセルのシートリンクで,色もリンクさせる方法
Excel(エクセル)
-
12
Excel-参照セルが空白の場合、別のセルを参照するには。
Excel(エクセル)
-
13
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
14
条件付書式で「=#N/A」に色を付けたい
Excel(エクセル)
-
15
セルの文字を「印刷時だけ非表示」にしたいです。
Excel(エクセル)
-
16
CSVファイルで誤って上書き保存して閉じてしまいました。 保存前に戻す方法は無いですか? ファイルタ
システム
-
17
IFS関数の場合で、セルが空白の場合は何も表示しないようにする方法
Excel(エクセル)
-
18
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
19
Excel 関数を使ってデータと一緒にその書式もコピーしたいのですが・・・
Excel(エクセル)
-
20
Excelで数式内の文字色を一部だけ変更したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
VBAで繰り返しコピーしながら下...
-
Excelに自動で行の増減をしたい...
-
エクセルで横並びの複数データ...
-
エクセルのブック分割マクロを...
-
エクセル マクロ 標準モジュー...
-
【条件付き書式】countifsで複...
-
Excelのセルの色を変えた行(す...
-
【エクセル】1列のデータを交...
-
VLOOKアップ関数の結果の...
-
Excelでの並べ替えを全シートま...
-
Excel 2段組み
-
エクセルの列の限界は255列以上...
-
【VBA】シート名と見出しが一致...
-
【VBA】複数のシートの指定した...
-
excel 複数のシートの同じ場所...
-
エクセルで、チェックボックス...
-
エクセルで、book全体の検索&...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
Excelでの並べ替えを全シートま...
-
VBAで繰り返しコピーしながら下...
-
【条件付き書式】countifsで複...
-
Excelのセルの色を変えた行(す...
-
エクセルで、チェックボックス...
-
エクセルの列の限界は255列以上...
-
VLOOKアップ関数の結果の...
-
Excelに自動で行の増減をしたい...
-
エクセル マクロ 標準モジュー...
-
【VBA】複数のシートの指定した...
-
Excel VBA ピボットテーブルに...
-
エクセルで横並びの複数データ...
-
【VBA】シート名と見出しが一致...
-
Excel 2段組み
-
SUMPRODUCTにて別シートのデー...
-
スプレッドシートでindexとIMPO...
おすすめ情報