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

fumufumu_2006

>このプログラムは組めたのですが、No.3の回答を試したのですが、
>うまくいきません
どううまくいかないかわからないと、何とも言えないのですが・・・

「データ」というシートのモジュール部に
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "データシートのデータ変更"
Select Case Target.Column
Case 1, 6, 8, 10, 11, 18, 20
MsgBox Target.Address & "が変更されました"
Sheets("Sheet1").Worksheet_Change Cells(Target.Row, 1)
End Select
End Sub
をコピーしてください。
データシートのどれかを変更すると、
「データシートのデータ変更」
と表示するはずです。
表示しない場合は、プログラムの場所がおかしいか、マクロが実行できない状態ではないかと思います。
データシートのA,F,H,J,K,R,T列が変更されたら、
「$a$1が変更されました」
とか表示されるはずです。
その後エラーで止まるようなら、手動で動くようになって、A-H列を計算式に戻したシートの名前が間違っていると思います。
表示はされるのだけど、正しくならない場合は、データの日付の部分の書式が「日付」または「標準」になっていない（「文字列」とかになっていないか）
などで試してください。
うまくいかない場合は、どううまくいかないかを教えてください。

>この貼り付けの作業行った後、このマクロが動作するようにしたいのですが、やはり初心者には難しいのでしょうか？
思った通りにいかない場合の対処などは慣れの部分もあるので、ある程度の苦労は必要だと思います。
ただ、あまり苦労せずに経験値を上げるためには、効率よく質問（「うまくいかない」ではなく「こうこうなって、うまくいかない」）して欲しいです。

p.s.
完全独学のため、昔はとても苦労しました(苦労は今でもですが)。
インターネットの無い頃は、書籍だけがたよりですが、地方では種類も少ないし、価格も高かった・・・
今はかなり楽なんですよ（と、年寄りくさい）。

補足

お返事ありがとうございます。
具体的に言いますと
>「$a$1が変更されました」とか表示されるはずです。
ここまではうまくいくのですが、
実際にSheet1を開くとデータ(A-H、実際はB-O)は計算式どおりにちゃんと表示されているのですが、セルの色が全く変わっていません。

コードの記入場所ですが、「標準モジュール」は使用していません。各々のコード表示の場所に記入しています。

下記に実際の表記を書きます。
実際はB-O列(7区間14個の場合、A列には番号が入っています)、データの開始行は7行目で使用しています。
(カレンダの日付は5行目に入力しています)

P.S.本当にお早い回答助かっています。
まだまだVBAの初歩的なことからわからないのにこのような質問に対して回答いただいてありがとうございます。

Public Sub Worksheet_Change(ByVal Target As Range)
Dim c1 As Variant
Dim c2 As Variant
If Target.Column <= 15 Then 'B-O列の場合
'現在の設定クリア
'Range(Cells(Target.Row, 9), Cells(Target.Row, Cells(1, Columns.Count).End(xlToLeft).Column)).Interior.ColorIndex = xlNone
'本当はこれが正しいんだろうけど複雑なので
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone '変更された行の背景色をクリア
'B-C区間
c1 = Application.Match(Cells(Target.Row, 2), Rows(5), 0) '変更された行のA列の値を5行目から探す
c2 = Application.Match(Cells(Target.Row, 3), Rows(5), 0) '変更された行のB列の値を5行目から探す
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
'D-E区間
c1 = Application.Match(Cells(Target.Row, 4), Rows(5), 0) '変更された行のC列の値を5行目から探す
c2 = Application.Match(Cells(Target.Row, 5), Rows(5), 0) '変更された行のD列の値を5行目から探す
If (Not IsError(c1)) And (Not IsError(c2)) Then
If (c1 <= c2) Then
Range(Cells(Target.Row, c1), Cells(Target.Row, c2)).Interior.ColorIndex = 4 '黄緑
End If
End If
…以下省略
'F-G区間（省略します。）
'H-I区間（省略します。）
'J-K区間（省略します。）
'L-M区間（省略します。）
'N-O区間（省略します。）
End If
End If
End If
End Sub