0

シート内の複数個所に条件付き書式を設定したいのですが・・・

Excel2010で作業を行っていますが、同じファイルを2003でも使用するので、VBAで設定できればと思っています。 ①A列のセルに入力されてた内容に応じて、A列B列の背景を5色に色わけをする。
②C列のセルに入力されてた内容に応じて、CD列の文字の3色に色わけをする。
③F列が入力されたら、A～F列全部の背景をグレーにする。（ACの入力よりも優先)

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_cell_color.html

上記ページを参照し、現在ワークシートのモジュールに以下のように書いてある状態です。
ここまではうまくいったのですが、②③の処理をさせるにはどのように加えたらいいのでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myColor As Variant
Dim c As Range
Dim myRng As Range
Set myRng = Application.Intersect(Range("A:A"), Target)
If myRng Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each c In myRng
Select Case c.Value
Case "作成中": myColor = 3
Case "要確認": myColor = 5
Case "削除": myColor = 6
Case "依頼済": myColor = 15
Case "決済待": myColor = 43
Case Else: myColor = xlNone
End Select
Cells(c.Row, 1).Resize(1, 2).Interior.ColorIndex = myColor
Next c
Application.EnableEvents = True
End Sub

よろしくお願いします・・・。

質問者が選んだベストソリューション

Yahoo!知恵袋 3879日前