在Excel VBA递增日期

这是我当前的代码：在Excel VBA递增日期

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

当元件Z-1是一个日期

我要到7天添加到前一个单元格但它抛出一个错误，它这是解决这个问题的正确方法还是有一个更简单的方法？

谢谢

2017-07-06 M.Ustun

你得到了什么错误，在哪里？ C列是什么？ – Jordan

这是错误的还是故意使用了分配左侧的列1（= A），而是使用右侧的列3（= C）？ – FunThomas

是的，谢谢你发现，这是一个错字 –

尝试DateAdd功能，使用内循环：

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

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

想了解更多关于此功能去MSDN

2017-07-06 12:41:41

嗨，我试过这段代码，但它告诉我我有一个“类型不匹配”？ –

@ M.Ustun在“C”列中有什么值？他们约会？ –

不要紧，它只是试图从未使用日期格式的单元格获取字符串值的脚本。非常感谢您的帮助。 –

回答