![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.3ベストアンサー
- 回答日時:
#02です
>例えばA1~E10の範囲に背景色を付ける方法
ちゃんと先の回答に書いたのですがねぇ(^^;
Const trg As String = "A1" ' "A1:A3"のように複数セルでもよい
A1:E100にしたいなら3行目を
Const trg As String = "A1:E100"
にします。
蛇足ですが、#02のマクロは複数セル範囲を同時に更新した場合には対応していません。それは「リストから選択入力する」と書かれていたからです。でもA1:E100という補足を見て、複数セルの同時更新も対応した方がよいように感じました。その場合のマクロは以下になります
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng, r As Range
Const trg As String = "A1:E100" ' "A1"のように単一セルでもよい
Set rng = Intersect(Target, Range(trg))
If Not rng Is Nothing Then
For Each r In rng
Select Case r.Value
Case Is = "A" 'もし入力されたのが"A"ならば
r.Interior.ColorIndex = 3 '背景色を赤にする
Case Is = "B" 'もし入力されたのが"B"ならば
r.Interior.ColorIndex = 4 '背景色を黄緑にする
Case Is = "C" 'もし入力されたのが"C"ならば
r.Interior.ColorIndex = 5 '背景色を青にする
Case Is = "D" 'もし入力されたのが"D"ならば
r.Interior.ColorIndex = 6 '背景色を黄色にする
Case Is = "E" 'もし入力されたのが"E"ならば
r.Interior.ColorIndex = 7 '背景色をマゼンダにする
Case Else
r.Interior.ColorIndex = xlNone
End Select
Next r
End If
End Sub
zap35さん有り難う御座いました、出来ました。
1回目の回答で範囲指定の方法も記述されていたのですね!
うっかり見落としてしまいました。
今後とも宜しくお願いします。
No.2
- 回答日時:
条件付き書式は3つまでしか指定できないのでマクロを使うことになりますね
サンプルマクロを掲載しますので、以下のマクロをシート名タブ右クリック→コードの表示で開く画面に貼り付けてください。ワークシート画面に戻りA1セルにA,B,C,D,Eのいずれかを入力すると背景色が変わります。
入力規則のリストで選択入力する文字列で
Case Is = "A~E"
の5箇所を書き換えてください。
また入力規則でリストから入力するセルのアドレスを、マクロの3行目の
Const trg As String = "A1"
に記述してください
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Const trg As String = "A1" ' "A1:A3"のように複数セルでもよい
Set rng = Intersect(Target, Range(trg))
If Not rng Is Nothing Then
Select Case rng.Value
Case Is = "A" 'もし入力されたのが"A"ならば
rng.Interior.ColorIndex = 3 '背景色を赤にする
Case Is = "B" 'もし入力されたのが"B"ならば
rng.Interior.ColorIndex = 4 '背景色を黄緑にする
Case Is = "C" 'もし入力されたのが"C"ならば
rng.Interior.ColorIndex = 5 '背景色を青にする
Case Is = "D" 'もし入力されたのが"D"ならば
rng.Interior.ColorIndex = 6 '背景色を黄色にする
Case Is = "E" 'もし入力されたのが"E"ならば
rng.Interior.ColorIndex = 7 '背景色をマゼンダにする
Case Else
rng.Interior.ColorIndex = xlNone
End Select
End If
End Sub
色番号(ColorIndex)は下記URLを参照して、好きな色に変更してください
http://furyu.tea-nifty.com/annex/2006/05/excel_c …
この回答への補足
zap35さん回答有り難う御座います。
すみませんがもう少し教えて下さい。
私は「マクロ」初心者というより、Excel初心者です。
指示通りのマクロを貼り付け、実行出来る様になりました。
が、これだとA1セルだけしか「背景色」を付ける事が出来ない様です、例えばA1~E10の範囲に背景色を付ける方法を教えて欲しいのですが、宜しくお願いします。
No.1
- 回答日時:
メニューの書式-->条件付書式 でいけるかと思いましたが、手元のExcel2000だと条件3つまでですねぇ。
EXCEL2003ではどうでしょう?
これでだめならマクロ(VBA)ですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/06/23 15:02
- Excel(エクセル) エクセルの数式について教えてください。 7 2023/06/18 10:16
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/06/15 14:11
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- Excel(エクセル) Excelで、いくつか項目のあるリストで、一つの行のある欄に値を入力すると、その行全体に色がつき、か 2 2022/11/18 20:43
- その他(Microsoft Office) EXCELのセルへの色づけ 2 2023/06/07 01:22
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルでセルのコメントが消...
-
エクセルでセルにポインタする...
-
エクセルの入力規則で作ったリ...
-
エクセルで電話番号から市内局...
-
エクセル逆三角マークで選択項...
-
シートを保護しても入力規則を...
-
エクセルVBA ブックを閉じる前...
-
【Excel】ドロップダウンリスト...
-
カンマで区切った数値をCOU...
-
エクセルで、入力できる箇所を...
-
入力規則の入力時メッセージの...
-
エクセルで。
-
エクセルで、入力制限(プルダ...
-
エクセルでセルに入力しないと...
-
エクセル 入力規則のリストボ...
-
フォーム入力で入力規則を設定...
-
エクセルでセルに入力されたデ...
-
Excel ある条件での入力禁止
-
エクセルで指定範囲にある名前...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルでセルにポインタする...
-
エクセルでセルのコメントが消...
-
エクセルVBA ブックを閉じる前...
-
シートを保護しても入力規則を...
-
エクセルの入力規則で作ったリ...
-
【Excel】ドロップダウンリスト...
-
エクセル逆三角マークで選択項...
-
エクセルで、入力できる箇所を...
-
エクセル 入力規則のリストボ...
-
入力規則の入力時メッセージの...
-
カンマで区切った数値をCOU...
-
Excel 自動的に半角英数になり...
-
エクセルで、入力制限(プルダ...
-
エクセルで電話番号から市内局...
-
ドロップダウンリスト(INDIREC...
-
エクセルVBA ユーザーフォーム...
-
エクセルで。
-
エクセルのセルの手入力を禁止。
-
初期値をIF文で設定した後入力...
おすすめ情報