在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」列中有什麼值？他們約會？ –

不要緊，它只是試圖從未使用日期格式的單元格獲取字符串值的腳本。非常感謝您的幫助。 –

回答