Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20611 / 76732 ←次へ | 前へ→

【61535】特定のセルと一致すれば色を変える
質問  チロ  - 09/5/14(木) 22:40 -

引用なし
パスワード
   初心者です。。。
特定の場所のセルに名称を入力すると、その下にある一覧表の同じ文字の色を変更したり、セルを塗りつぶしたりしたいのです。
大変困っています。

特定の場所というのは、一覧表の見出し風に作っているセルで、複数あり、空欄にしてあります。
その入力するセルの場所により、一覧の中の一致する文字色を変更したり、セルを塗りつぶすという、下記のようないくつかの作業がしたいのです。

◎ 文字色や塗りつぶしをしたい一覧データはE11〜AH74の範囲にあり、関数の値で 表示されています。
◎ セルの塗りつぶし
  E2のセルに入力した文字と一覧表の関数の値が一致すればセルをピンクに塗り つぶし、F2ではオレンジ、G2は黄色、H2は緑
◎ 文字色の変更
  J2〜L4の12個のセルに入力した文字に一致すれば赤文字
  N2〜Q5の16個のセルに入力した文字に一致すれば青文字

にしたいのです。
 自分なりに調べて、よく分からないのですが、似たようなものを参考に作ったのですが、なんともなりません。

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target '内容を比較
Case ("E2")
Target.Interior.ColorIndex = 7 '塗りつぶしをピンク
Target.Font.ColorIndex = 0 '文字色を黒
Case ("F2")
Target.Interior.ColorIndex = 46 '塗りつぶしをオレンジ
Target.Font.ColorIndex = 0 '文字色を黒
Case ("G2")
Target.Interior.ColorIndex = 6 '塗りつぶしを黄色
Target.Font.ColorIndex = 0 '文字色を黒
Case ("H2")
Target.Interior.ColorIndex = 4 '塗りつぶしを緑色
Target.Font.ColorIndex = 0 '文字色を黒
Case ("J2:L4")
Target.Interior.ColorIndex = xlNone '塗りつぶしを自動
Target.Font.ColorIndex = 3 '文字色を赤
Case ("N2:Q5")
Target.Interior.ColorIndex = xlNone '塗りつぶしを自動
Target.Font.ColorIndex = 5 '文字色を青
End Select
End Sub

 悪いところを修正?(全くダメなのかも。。。)して頂けると助かります。
 それと、VBAが完成した場合、
   シートのタブを右クリックしてコードに貼り付ける
だけでいいのでしょうか?
 VBAの前にタブを入れて頭を下げる
などの事も色々見ましたが、よく分からなかったので、そういった基本的なご指導もして頂きたいのです。

こんなややこしい作業ですが、どうかよろしくお願いします。m(_ _)m
0 hits

【61535】特定のセルと一致すれば色を変える チロ 09/5/14(木) 22:40 質問
【61537】Re:特定のセルと一致すれば色を変える つん 09/5/15(金) 9:55 発言
【61538】Re:特定のセルと一致すれば色を変える HAM 09/5/15(金) 11:18 発言
【61540】Re:特定のセルと一致すれば色を変える つん 09/5/15(金) 15:22 発言
【61546】Re:特定のセルと一致すれば色を変える チロ 09/5/15(金) 20:55 お礼

20611 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free