エクセル ７つの条件によるフォント設定

質問

同じような質問が出ていたら申し訳ございません。
環境はoffice2000パーソナルでWindows Xpです。
あるセルに”月曜～日曜”と入れたら、そのセルを含む行のフォントの色が各曜日により変わるように設定したいのですが、どのようにしたらよいのでしょうか?
３つであれば条件付き書式で良いとおもうのですが、７つになるとマクロしか無いのでしょうか?
マクロであればどのようなマクロになるのでしょうか?
アドバイスをお願い致します。

回答No.2

merlionXX · ベストアンサー

> もし、A1、A2、A3・・・と曜日が各列で変わっていくときはどのようにすればよいのでしょうか

ならば、「あるセルに”月曜～日曜”と入れたら」などと書かず、最初からそう質問してほしかったですね。

If Target.Address <> "$A$1" Then Exit Sub　の行を帰れば変更できます。
新たな質問もまだあいまいですが、
もしA列であればどこでもそのような設定をしたいなら

If Target.Column <> 1 Then Exit Sub
に変えます。

あるいは、A1～A7の範囲にだけ設定するなら
If Intersect(Target, Range("A1:A7")) Is Nothing Then Exit Sub
に変えます。

お礼

質問が的確でなく申し訳ございません。
おかげ様で無事作る事が出来ました。ありがとうございました。

回答No.1

merlionXX

仮に「あるセル」がA1だとします。
そのような設定をしたいワークシートのシートタブを右クリックして「コードの表示」
出てきたシートモジュールに

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Select Case Left(Target.Value, 1)
Case "月": c = 3
Case "火": c = 4
Case "水": c = 5
Case "木": c = 6
Case "金": c = 7
Case "土": c = 8
Case "日": c = 9
End Select
Target.EntireRow.Font.ColorIndex = c
End Sub

としてみてください。

お礼

回答ありがとうございます。
ワークシートのシートタブを右クリックでシートモジュールが出るとは知りませんでした。

補足

対応ありがとうございます。
もし、A1、A2、A3・・・と曜日が各列で変わっていくときはどのようにすればよいのでしょうか?