条件付き書式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.5

fumufumu_2006

たぶんわかったような気がします。
Sheet1のB7に入っている計算式が=データ!A2だった場合などの、Sheet1とデータの行が違う場合に問題が起こるのだと思います。
Sheet1のA7の計算式が=データ!A2だった場合で考えます。
ANo.3のプログラムでは、「データ」シートのセルの変更で、データのA2（2行目）を変更すると、Sheet1に2行目を変更した場合のチェックをさせます。
実際にチェックしなければいけないのは7行目です。
ということで、チェックする行を補正して伝えます。
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1, 6, 8, 10, 11, 18, 20 '「データ」というシートのA,F,H,J,K,R,T列が変更されたら（1個足りないのだけど）
'下は、Target(このシートの変更されたセル）の行(例えばA2だった場合は2)と、それによって計算式で変更されたSheet1のセルの行(例えばA7が変更された場合は7)の違いを補正するための+5を付けてSheet1のWorksheet_Changeを呼ぶ
Sheets("Sheet1").Worksheet_Change Cells(Target.Row + 5, 1) 'Sheet1のWorksheet_Changeを実行。必要なのは行番号で、列番号は8(A-Hの場合)以下なら実行するので適当に1にしてます。
End Select
End Sub

p.s.
これでうまく動かない場合は、Sheet1のA7とB7に入っている計算式も教えてください。

補足

上記のように変更したところ
Sheets("Sheet1").Worksheet_Change Cells(Target.Row + 5, 1)
の＋5の影響か,「Sheet1」の5行目の書式が変更されたので、
＋7に変更したら、「Sheet1」の７行目のみ
＋8に変更したら、「Sheet1」の８行目のみ
書式が正常になりました。
なぜか1行のみ変更となってしまいます。
参考に
Sheet1のA7…=IF((データ!$A2)="","",データ!$A2)
Sheet1のB7…=IF(データ!$AA2="","",データ!$AA2)
という計算式をしようしております。
私が詳しくない為、初歩的なミスをしているのかもしれません。
お手数をおかけしてすみません。