![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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を探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルVBA ブックを閉じる前...
-
エクセル逆三角マークで選択項...
-
エクセルでセルのコメントが消...
-
エクセル 入力規則のリストボ...
-
Excelでセルに名前を定義したい...
-
【Excel】ドロップダウンリスト...
-
Excelで同じセルに入力し エン...
-
エクセルでセルにポインタする...
-
エクセルで日付が入力されたセ...
-
ExcelのVBAで、特定のセルを入...
-
エクセルVBA ユーザーフォーム...
-
EXCEL:入力規則の「リスト」は...
-
エクセルの「入力規則」のプル...
-
エクセルで負数の最大値を求めたい
-
Excel セルをクリック⇒リスト⇒...
-
Excel 一番右のセルを参照する
-
Excelのリストで1文字目のみを...
-
ある数値が、また別の二つの数...
-
入力規則の入力時メッセージの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルでセルにポインタする...
-
エクセル逆三角マークで選択項...
-
エクセルVBA ブックを閉じる前...
-
エクセルでセルのコメントが消...
-
シートを保護しても入力規則を...
-
エクセル 入力規則のリストボ...
-
【Excel】ドロップダウンリスト...
-
Excel 自動的に半角英数になり...
-
エクセルVBA ユーザーフォーム...
-
エクセルの入力規則で作ったリ...
-
エクセルで、入力できる箇所を...
-
カンマで区切った数値をCOU...
-
エクセルで、入力制限(プルダ...
-
エクセルで電話番号から市内局...
-
ドロップダウンリスト(INDIREC...
-
入力規則の入力時メッセージの...
-
エクセルで負数の最大値を求めたい
-
Excelで同じセルに入力し エン...
-
excelの入力規則リストで重複不...
おすすめ情報