為每個循環將月份添加到以前的單元格日期

Question

所有，

我編寫了一個小程序，我希望每個循環將當前月份插入第一個單元格“ 01” / MM / YY，然后在循環中向日期添加一個月。 使用以下示例；

K1 = 01/06/2018
L1 = 01/07/2018
M1 = 01/08/2018 etc

我正在使用的代碼如下-錯誤在DateAdd行上。

Sub test()
Dim dt As date
dt = "01/" & Application.Text(Now(), "MM/YY")
Dim i As Double
i = 1

For Each c In Range("K1:XFD1")
    If c.Value = "" Then Exit For  
 c.Value = dt
'change date to one months time
 dt = DateAdd(m, i, dt)
 i = i + 1     
Next c

End Sub

關於此的任何幫助將不勝感激。

Answer 1

放"m"而不是m 。 m將是一個變量。 "m"是一個文字字符串，表示參數為“ month”。

dt = DateAdd("m", i, dt)