エクセルVBAについて
VBAを勉強しているものです。
添付資料のようなグラフを作っております。
###############################################################
Sub 時間グラフ作成()
Dim 開始 As Date
Dim 終了 As Date
Dim 開始経過時間 As Long, 終了経過時間 As Long
Dim 開始目盛 As Long, 終了目盛 As Long
開始 = Worksheets("(1)(1)(1)(1)(1)").Range("F2").Value
開始経過時間 = DateDiff("n", CDate("9:00"), 開始)
開始目盛 = Int(開始経過時間 / 5)
Worksheets("(2)(2)(2)(2)").Range("H2").Offset(, 開始目盛).Interior.ColorIndex = 8
If 開始 <= "11:00" And 終了 >= "12:00" Then
終了 = Worksheets("(1)(1)(1)(1)(1)").Range("G2").Value
終了経過時間 = DateDiff("n", CDate("9:00"), 終了)
終了目盛 = Int(終了経過時間 / 5)
Worksheets("(2)(2)(2)(2)").Range("H2").Offset(, 終了目盛 - 12).Interior.ColorIndex = 8
Range(Range("H2").Offset(, 開始目盛), Range("H2").Offset(, 終了目盛 - 12)).Interior.ColorIndex = 8
Else
終了 = Worksheets("(1)(1)(1)(1)(1)").Range("G2").Value
終了経過時間 = DateDiff("n", CDate("9:00"), 終了)
終了目盛 = Int(終了経過時間 / 5)
Worksheets("(2)(2)(2)(2)").Range("H2").Offset(, 終了目盛).Interior.ColorIndex = 8
Range(Range("H2").Offset(, 開始目盛), Range("H2").Offset(, 終了目盛)).Interior.ColorIndex = 8
End If
End Sub
###############################################################
休憩時間のIfの処理がうまくいかなくて困っています・・・。
&とAndで変わったり(どちらもうまくいかず)、
()をつけたりしても変わらず、そもそも根本的に
間違っているのか・・・。
よろしくお願いいたします。
(グラフの繰り返しの処理は未だ考え中で触っておりません)
