我正在嘗試創建一個回圈，將指定單元格中的日期（月/日/年/小時：分鐘）增加 14 天。
單元格 A2 是開始日期，單元格 A3 是增加 14 的日期，單元格 B3 是停止日期。
| 床單 | |
|---|---|
| 2020/3/1 0:00 | |
| 2020/3/14 11:59 | 2020/12/31 11:59 |
我使用以下代碼將單元格 A2 和 A3 增加 1 天，但我不知道如何將天數增加 14。
回圈停止的最終日期是單元格 B3 中設定的日期。
此外，當代碼由于某種原因似乎從 1/1/1900 開始日期而不是單元格 A2 中指定的日期時。有沒有辦法可以在單元格 A2 的指定日期開始回圈？
Sub test()
Start = Val(Range("A1").Value)
For Row = Val(Range("A3").Value) To Val(Range("B3").Value)
Range("A" & Row).Value = Start Row
Next
End Sub
謝謝！
uj5u.com熱心網友回復：
您可以使用它Dateadd來執行此操作。
Dim mydate As Date
Dim row As Long
With ActiveSheet
mydate = DateAdd("d", 14, .Cells(2, 1).Value) 'Get first increment
row = 3 'First row to place values in
Do Until mydate >= .Cells(3, 2).Value
.Cells(row, 1).Value = mydate
row = row 1
mydate = DateAdd("d", 14, mydate)
Loop
End With
uj5u.com熱心網友回復：
請嘗試下一個改編的代碼：
Sub testIncrement14Days()
Dim start As Date, row As Long
start = Range("A1").value: row = 3
Do While start <= CDate(Range("C3").value) 14
Range("A" & row).value = start 14
start = CDate(Range("A" & row).value)
row = row 1
Loop
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/371428.html
下一篇：如何獲得本月的第幾周(1:6)