エクセルでセルに色を付ける（多条件）

質問

質問を検索していてある程度はわかったのですが、
セルに条件によって色を付けるやり方は条件付書式でできるみたいですが、条件が３つまでしか指定できません。
４つ以上ある場合はどうすればよいでしょうか。
例えば、Ａ１セルにはＡからＥまでの文字が入力されます。
入力された文字によってＢ１セルをＡなら赤、Ｂなら青といった具合に違う色を表示させたいのです。
エクセル２０００です。
宜しくお願いします。

回答No.6

imogasi · ベストアンサー

>実際の手順を教えてもらえませんか
（１）問題にしているワークシートを開く
（２）メニユーのツール－マクロ－ＶＢＥをクリック。
ＶＢＥの画面になります。
（３）左側のフレーム（四角い部分）に「プロジェクト」と表題に部分にある問題のシート名をＷクリック。
（４）右側のフレーム（コードウインドウ）の「Ｇｅｎｅｒａｌ」の右の▼をクリックして「Ｗｏｒｋｓｈｅｅｔ」をクリック。
（５）Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
がでますが無視。
（６）electionChangeが出ている欄の▼をクリックして
「Ｃｈａｎｇｅ」をクリック。
（７）Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
となります。
（８）この真中に、回答のＶＢＡプログラムをコピペします。最初行と最後行はダブらないよう、コピペ対象から外すこと。
（９）表示－オブジェクトをクリックして、ワークシート画面に戻り、操作をする。

回答No.5

papayuka

#4です。

Changeの引数、Targetで変更されたセル範囲が全て渡されます。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

それをループで処理しています。
Dim r As Range
For Each r In Target

回答No.4

papayuka

シートタブを右クリックし、コードの表示で出てきたVBE画面の空いている所にコピペします。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
For Each r In Target
　If r.Column = 1 Then
　　Select Case UCase(r.Value)
　　Case "A"
　　　r.Offset(0, 1).Interior.ColorIndex = 3
　　Case "B"
　　　r.Offset(0, 1).Interior.ColorIndex = 5
　　Case "C"
　　　r.Offset(0, 1).Interior.ColorIndex = 6
　　Case "D"
　　　r.Offset(0, 1).Interior.ColorIndex = 7
　　Case "E"
　　　r.Offset(0, 1).Interior.ColorIndex = 8
　　Case Else
　　　r.Offset(0, 1).Interior.ColorIndex = xlColorIndexNone
　　End Select
　End If
Next r
End Sub

大文字と小文字を区別するなら UCase(r.Value) を r.Value にします。

お礼

お礼が遅くてすいません。
教えて頂いた方法でできたのですが、上記マクロでセルの場所はどこで指定しているのですか？
マクロはど素人なので、教えてもらえませんか？

回答No.3

imogasi

シートのChangeイベントプロセジュアーに
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Select Case Target.Value
Case "a"
Cells(1, "B").Font.Color = vbRed
Case "b"
Cells(1, "B").Font.Color = vbCyan
Case "c"
Cells(1, "B").Font.Color = vbYellow
Case "d"
Cells(1, "B").Font.Color = vbBlue
End Select
End If
End Sub
A１の値で、B1セルの文字の色を変えます。

お礼

お礼が遅くてすいません。
マクロはど素人なので、もう少し詳しくというか、実際の手順を教えてもらえませんか？
「Changeイベントプロセジュアー」とかいった用語がわかりません。
すいません。

回答No.2

Hageoyadi

参考URLを応用することで多条件に対応できます。

参考URL：

http://www.moreexcellent.com/excel/macro/selectcase.htm

回答No.1

list

マクロを使用すれば出来ると思います。