在Excel VBA中增加日期

Question

这是我目前的代码：

For z = 3 To 52
    Cells(z, 1) = Cells((z - 1), 3) + 7
Next z      

其中，单元格z-1是日期

我想在上一个单元格中添加7天，但它会抛出错误，这是解决此问题的正确方法还是有更简单的方法？

谢谢

Answer 1

尝试使用DateAdd函数，在循环内部使用：

Cells(Z, 1) = DateAdd("ww", 1, Cells((Z - 1), 3))

注意：第一个参数是Interval，将其设置为"ww"，这意味着数周。

要了解有关此功能的更多信息，请转至MSDN