ループ ループ(Do_While_Loop)の記述

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

 
Do While DateSerial(dateYearMax, dateMonthMax, dateDayMax) + 1 > dateKariDate

dateKariDate = CDate(dateKariDate) + 1

With shtWork
 rngA = rngA + 1
 .Range("k" & rngA).Value = dateKariDate
End With

Loop 

 

2000年01月01日|[VBサンプルコード]:[ループ]