エクセルで工程表

質問

エクセルで工程表を作りたいです。
Ｃ１に第１工程の開始時間１２２０（１２：２０という意味）
Ｃ２に第１工程の終了時間１２４０（１２：４０）
Ｃ３に第２工程の開始時間１３００（１３：００）
Ｃ４に第２工程の終了時間１３２５（１３：２５）
　　　　　　　：
という感じで約１０工程まであります。
シート２は各セルを細かくしてあって、Ａ５を１２：００とし横軸に時間をとっています（５分刻み）
第１工程の１２：２０から１２：４０まで、つまりＥ５からＩ５までを黒くしたいです。
同じように第２工程１３：００から１３：２５までのセルを黒く・・・
関数では難しいと思うので、ＶＢＡでもかまいません。
何かいい方法がありましたら、教えてください。
よろしくお願いいたします。

回答No.1

n-jun

例えばこんな感じの事でしょうか？

Sub　Test()
　Dim　v,　vv,　tim
　Dim　i　As　Integer

With　Sheets("Sheet1")
　　　　　vv　=　.Range("C1:C10").Value　　　'セルC1～C10とした場合
End　With

ReDim　tim(1　To　UBound(vv,　1))
i　=　1

For　Each　v　In　vv
　　　　tim(i)　=　TimeSerial(Int(v　/　100)　-　12,　v　-　Int(v　/　100)　*　100,　0)　/　TimeSerial(0,　5,　0)　*　1
　　　　i　=　i　+　1
Next

With　Sheets("Sheet2")
　　　　　For　i　=　1　To　UBound(tim)　Step　2
　　　　　　　　　.Range("A5").Offset(,　tim(i)).Resize(,　tim(i　+　1)　-　tim(i)　+　1).Interior.ColorIndex　=　1
　　　　　Next
End　With
End　Sub
外れていたらすいません。

お礼

ありがとうございます。

このまま貼り付けたところ、エラーで動かなかったのですが、かなりいいヒントをいただきました。
参考にさせていただきます。

また、よろしくお願いいたします。