Question

全部，

我已经编写了一个小程序，我希望每个循环将当前月份插入第一个单元格＆＃34; 01＆＃34; / 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"是一个文字字符串，表示参数为“月”。

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

将月份添加到上一个单元格日期对于每个循环

1 个答案: