条件付き書式4つ以上のＶＢＡについて教えてください。

質問

条件付き書式4つ以上でのVBAの作成方法を教えて下さい。

下記のような表があります。
　　A　　　　　B　　　　　C　　　　　D　　　　E　　　　　F　　　　G　　　　　H　　　　　I　　J　　K・・・
１　開始日　　終了日　　　開始日　　終了日　　開始日　　終了日　　開始日　　終了日　　　4/1　2　　3　　4 ・・・
２　2008/4/10 2008/4/20　2008/5/10 2008/5/20　2008/6/10 2008/6/30　2008/7/10 2008/7/19　（ここのセルに色をつけたい）
３　2008/4/03 2008/4/20　2008/5/10 2008/5/20　2008/6/10 2008/6/30　2008/7/10 2008/7/191　（ここのセルに色をつけたい）
・・・以下複数行

条件付き書式の設定方法
「数式が」「=AND(I$1>=$A1,I$1<=$B1)」の場合
「セルのパターンを（任意の色）」と設定

はわかるのですが、
開始日と終了日が4つ以上（実際は７つあります）あり
これを1行に表したいのです。
各工程を色で表したいのです（(1)工程A～B(セルの色：赤)、(2)工程Ｃ～Ｄ(青)…）

できれば色をつけた上で、(1)工程と色がついたセルの上に入力したいです。
（※こちらは難しそうなので色をつける方法だけでもお願いします。）、
どうしてもVBAの設定がわからないので教えて下さい。よろしくお願い致します。
初心者なのでＶＢＡの設定方法（どこに入力し、どのように実行すればよいか）も教えていただければ助かります！！

回答No.2

fumufumu_2006

こんなのではどうでしょうか？

ちなみに、I1からの4/1 2 3 ... は表示だけで、実際は日付データ(2008/4/1 2008/4/2 2008/4/3 ...)だという場合です。
質問のデータで、A-B赤、C-D青にします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c1 As Variant
Dim c2 As Variant
If Target.Column <= 8 Then 'A-H列の場合
'現在の設定クリア
'Range(Cells(Target.Row, 9), Cells(Target.Row, Cells(1, Columns.Count).End(xlToLeft).Column)).Interior.ColorIndex = xlNone '本当はこれが正しいんだろうけど複雑なので
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone '変更された行の背景色をクリア
'A-B区間
c1 = Application.Match(Cells(Target.Row, 1), Rows(1), 0) '変更された行のA列の値を1行目から探す
c2 = Application.Match(Cells(Target.Row, 2), Rows(1), 0) '変更された行のB列の値を1行目から探す
If (Not IsError(c1)) And (Not IsError(c2)) Then
If (c1 <= c2) Then
Range(Cells(Target.Row, c1), Cells(Target.Row, c2)).Interior.ColorIndex = 3 '赤
End If
End If
'C-D区間
c1 = Application.Match(Cells(Target.Row, 3), Rows(1), 0) '変更された行のC列の値を1行目から探す
c2 = Application.Match(Cells(Target.Row, 4), Rows(1), 0) '変更された行のD列の値を1行目から探す
If (Not IsError(c1)) And (Not IsError(c2)) Then
If (c1 <= c2) Then
Range(Cells(Target.Row, c1), Cells(Target.Row, c2)).Interior.ColorIndex = 5 '青
End If
End If
End If
End Sub

7区間の場合です。
上の各区間の設定を繰り返してもいいのですが、ループにしてみました。
ついでに背景色をcolorindexで指定すると濃すぎるので、rgb()で中間色も指定できるようにしました。
質問のデータが4区間なので、質問のデータでは「For i=1 To 4」にしないと、正しく表示しません。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c1 As Variant
Dim c2 As Variant
Dim c As Variant
Dim i As Integer
'各区間の色設定
'c = Array(3, 5, 4, 6, 7, 8, 9) '背景色(ColorIndexを使う場合)
c = Array(RGB(255, 192, 192), RGB(192, 192, 255), RGB(192, 255, 192), RGB(255, 255, 192), RGB(255, 192, 255), RGB(192, 255, 255), RGB(255, 255, 255))
If Target.Column <= 14 Then 'A-N列の場合(7区間) 質問のデータの場合は4区間なので8にしてください
'現在の設定クリア
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone '変更された行の背景色をクリア
'A-B区間
For i = 1 To 7 '質問のデータの場合は4区間の4にしないと、おかしくなります
c1 = Application.Match(Cells(Target.Row, i * 2 - 1), Rows(1), 0) '変更された行のA列の値を1行目から探す
c2 = Application.Match(Cells(Target.Row, i * 2), Rows(1), 0) '変更された行のB列の値を1行目から探す
If (Not IsError(c1)) And (Not IsError(c2)) Then
If (c1 <= c2) Then
'Range(Cells(Target.Row, c1), Cells(Target.Row, c2)).Interior.ColorIndex = c(i - 1) 'ColorIndexを使う場合は、上のc=array(...)でColorIndex用のデータを用意しておく
Range(Cells(Target.Row, c1), Cells(Target.Row, c2)).Interior.Color = c(i - 1)
End If
End If
Next
End If
End Sub

お礼

ありがとうございます！
1番目の方法でできましたのですが…
（2番目の方法は私には難しいようです）
あと補足として、
実はA～H行が別シートにあり
データ参照で持ってきています。
その為、変更された行というのが有効にならないようです。
別シートの指定方法があれば教えて下さい。
説明不足ですみません。

補足

ありがとうございます！
1番目の方法でできましたのですが…
（2番目の方法は私には難しいようです）
補足内容として、
実はA～H行が別シートにあり
(例：「データ」というシートのA,F,H,J,K,R,T行から)
データ参照(IF(データ!$A2="","",データ!$A2)）で持ってきています。
その為、変更された行というのが有効にならないようです。
別シートの指定方法があれば教えて下さい。
説明不足ですみません。