教えて下さい。EXCELVB

質問

1か月後のデータがB13の日付データより新しくなったら処理を終えたいのですが、無限ループになってしまいます。
uもデバックになります。
良い書き方があれば教えて下さい。日付の比較の仕方も合っているかどうか分かりません。
分かる方どうぞよろしくお願いします。

DIM　i　,u　as　integer
　　　　　i = 7
u = 6
Do Until Sheets("A").Range("B13") <= Sheets("A").Cells(i, 10)

Sheets("A").Cells(i, 10) = DateAdd("m", 1, Cells(u, 10))
i = i + 1
u = u + 1

Loop

回答No.1

kybo · ベストアンサー

あなたのコードだと、

Sheets("A").Range("B13") <= Sheets("A").Cells(i, 10)
最初は、B13とJ7を比較して大きければループを抜ける→J7はこの時点では空欄なので、抜けない

2番目にこの Until にたどり着いた時はB13とJ8を比較して大きければループを抜ける→J8はこの時点では空欄なので、抜けない

・・・と常に空欄となっている時と、B13を比較しているので、無限ループとなるのです。

なので、以下の様にしてみてください

Sub test()
Dim i As Integer, u As Integer
Dim J As Boolean
i = 6
u = 5
Do
i = i + 1
u = u + 1

Sheets("A").Cells(i, 10) = DateAdd("m", 1, Cells(u, 10))

Loop Until Sheets("A").Range("B13") <= Sheets("A").Cells(i, 10)

End Sub

として下さい。

お礼

どうもありがとうございました。
感激です。