エクセルの入力規則（リスト）での質問です。

質問

エクセルの入力規則（リスト）で、
たとえば、
A1に1、A2に2、A3に3・・・というような数字が
入っていて、それをリスト化した場合、
▼メニューに１．２．３・・・と出てきますよね？
例えば、その▼メニューの1を選んだ場合は、
ワークシートを赤色に、
２を選んだ場合はワークシートを黄色に。。
という形にすることは可能でしょうか？
マクロを使わないと無理でしょうか？

大変解りにくい説明で申し訳ありませんが、
教えていただけると本当にありがたいです。
エクセルが解らなくて本当に困ってます。
わかる方、是非、よろしくお願い致します。

回答No.5

BLUEPIXY · ベストアンサー

>Worksheet_Changeが不正です。
Private Sub Worksheet_Change(ByVal Target As Range)
の部分は、自分では書きません。
プロジェクトウインドウでsheet1をダブルクリックした後
(General)の部分をWorkSheetに変えます
右側のコンボボックス▼（？）でChangeを選びます
その中に書きます

お礼

できました！！！できました！！できました！！！
本当にありがとうございます。
全然エクセルを解っていない私が恥ずかしいです。
こちらのやり方が解らない部分まで
丁寧に答えて下さって本当にありがとうございます。
マクロを勉強しているので、
またお世話になることも
あるかもしれないので、その時は、
是非是非よろしくお願いします。

回答No.4

BLUEPIXY

マクロで
A1:A3に1,2,3
B1にA1:A3のリスト
リストから選んだ値で、B6:F6とB7:B11に色を付ける

Sheet1のコードで
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Application.Union(Range("B6:F6"), Range("B7:B11"))
Select Case Range("B1").Value
Case 1: r.Interior.Color = vbRed
Case 2: r.Interior.Color = vbYellow
Case 3: r.Interior.Color = vbGreen
End Select
End Sub

お礼

丁寧に解りやすくありがとうございます。

これでやってみたところ、
Worksheet_Changeが不正です。
と出てきます・・・。
なぜでようか。。。
本当に初心者で申し訳ありません。
手順も教えて頂けるとありがたいです。
本当に厚かましいお願いですが、
解る方、よろしくお願い致します。

回答No.3

imogasi

やりたいことに拘るから難しい方にいっちゃう気がします。
リスト化するとは各セルにリストをくっ付けることになり
注目するセルが変わって、何の事を言っているのか分からない。リストの１を選んだセルがB1セルなら、B1セルが１になり、B5でリストの１を選んだらB5が１になる。
これを条件付書式化するとすればどうなるのか。
一番最後の入力セル（これはVBAでないと捉えるのが難しい）の値でワークシートに色を付けるのですか。全体ですか、そのセルだけですか。ハッキリしない。シート全体を色づけするなんて聞いたこともないし。
むしろリストボックスを貼りつけ、その選んだ値をセル（プロパティのLｉｎｋｅｄＣｅｌｌ）にセットしその値でシートに色を付けるなら、条件付書式で出来る。

お礼

本当に説明が悪くてすみません。
入力規制でリストで▼メニューを作って、
それを選らんで処理ができるかという意味です。
その処理の例えでカラーという解りやすいものを
選らんでみたのです。
カラーはどこか指定のセルだけでも構いません。

本当にわかり難くて折角答えて下さっているのに
ご迷惑をお掛けしました。

条件付き書式のやり方は、
kenbow22様、cinnamon114様のおかげで
解決したのですが、
マクロのやり方も出来れば教えて頂きたいのです。

過去ログなども調べたのですが、
見つからなかったので。。。
よろしければ、マクロを教えて頂けるとありがたいです。

回答No.2

cinnamon114

条件付き書式で大丈夫だと思います。

　1.ワークシート全体を選択（ワークシート全部に色をつけるという事なので）
　2.「書式」→「条件付き書式」
　3.「数式が」を選択
　4.（基準となるセルがB1の場合）「=$B$1=1」を入力
　5.「書式」ボタンから「パターン」を選択して指定の色をクリック
　6.「3～5」の操作を同様にしていきます

但し、条件付き書式は3つまでですよ。

がんばってみてください。

お礼

丁寧に、やり方の順番までありがとうございます。
エクセルの苦手な私にはすごくわかりやすかったです。
ありがとうございます。

回答No.1

kenbow22

条件付書式を使えば出来ます。
Ａ１に『1』　Ａ２に『2』があるとして
任意のセルで
書式＞条件付書式
条件１　セルの値が　次の値に等しい　＝Ａ１
書式で赤を選択

条件2　セルの値が　次の値に等しい　＝Ａ2
書式で黄を選択

この条件でやってみて下さい。

お礼

早速のご返答、ありがとうございます。
試してみますね。
本当に大感謝です＾＾