Do untilで判定されない

質問

office2010
WORKシートのI4802セルに2019/08/28という日付データが登録されています
J2セルに2019/1/1の日付を設定し、その右セルに＋１日ずつ設定するマクロ（カレンダ日付イメージ）で、上記WORKシートのI4802セルまでの日付を設定したい。

下記がそのマクロ
Sub test()

Rows("1:2").Select
Selection.ClearContents

Range("J2") = "2019/1/1"

Dim i As Long

Dim day As String

day = Worksheets("WORK").Range("I4802").Value

i = 11

Do Until Worksheets("Sheet2").Cells(2, i + 1) = day

Worksheets("Sheet2").Cells(2, i) = Worksheets("Sheet2").Cells(2, i - 1) + 1

i = i + 1

Loop

End Sub
上記を実行すると、ずっと計算して、2063/10/30までいって実行時エラーで停止します。

2019/08/28で終了しないのは何故でしょう？
日付判定になってると思うのですが、原因分からず。
また、その修正方法も教えて頂きたく

回答No.1

mt2015 · ベストアンサー

単純なミスです
誤：Do Until Worksheets("Sheet2").Cells(2, i + 1) = day
正：Do Until Worksheets("Sheet2").Cells(2, i - 1) = day

+1にしているせいで空のセル＝0と変数dayを比較しています。

お礼

回答ありがとうございます。なるほど助かりました。

回答No.3

imogasi

すでに原因はご指摘がある。それで済なんだが。
ーー
この程度のことなら、すぐ質問するのでなく、色々変数を確認して、やってみれば、原因の箇所わかることでは。
繰り返しが、すっぽ抜けるなら、ストパーの値がおかしいだけだろう。
普通は、繰り返しの終値が、注目点かな。日付の場合は、日付シリアル値という
整数（１９００年来の順序数。エクセル特有の考え方）だから、文字列になっていないかなど注意するとか、関数で日付シリアル値に確実には変換して、Msgboxでも出して確認しておくとか。
Sub test()
Rows("1:2").Select
Selection.ClearContents
Cells(2, 10) = "2019/1/1"
Dim i As Long
Dim day As String
Days = DateValue("2019/08/28")　
'DoUntiliで、式でなく、変数に一旦持たせたもので判別するのもおすすめ
i = 11
'---
Do Until Worksheets("Sheet2").Cells(2, i - 1) > Days
’－－前回の繰り返しで、次のために１を足しているから、直前はi-1で見る
Worksheets("Sheet2").Cells(2, i) = Worksheets("Sheet2").Cells(2, i - 1) + 1
Columns(i).AutoFit
i = i + 1
Loop
'---
End Sub

お礼

回答ありがとうございます。そう、式の結果をdebug.printで見られなかったのです。変数に一旦持たせたもので判別、これでやろうと思います。

回答No.2

watabe007

参考に
Sub test()
　　Dim i As Long
　　Dim day As Date
　　i = 10
　　day = Worksheets("WORK").Range("I4802").Value
　　With Worksheets("Sheet2")
　　　　.Rows("1:2").ClearContents
　　　　.Range("J2").Value = "2019/1/1"
　　　　Do Until .Cells(2, i).Value = day
　　　　　　i = i + 1
　　　　　　.Cells(2, i) = .Cells(2, i - 1) + 1
　　　　Loop
　　End With
End Sub

お礼

回答ありがとうございます。すっきりしたマクロで分かりやすいです。