制作一个按钮，将Excel中的日期提前一周

Question

在Excel中，我有一个日期字段。 我想制作一个按钮，当按下按钮时会在该日期字段中添加一个星期到日期。我只有一个其他宏按钮之前，所以任何帮助将不胜感激。

Answer 1

以下代码HOULD达到目的：

Sub advanceDatebyOneWeek() 

    Dim firstDate As Date, secondDate As Date 
    firstDate = DateValue(Range("D5").Value) 
    secondDate = DateAdd("d", 7, firstDate) 
    Range("D5").Value = secondDate 

End Sub 

其中：

1. D5是包含日期
2. 7所述细胞是天数要添加到的日期。

参考文献： http://www.excel-vba-easy.com/vba-programming-date-time-excel-vba.html

问候 Arcass