创建一个按钮，在Excel中将日期提前一周

Question

在Excel中，我有一个日期字段。 我想创建一个按钮，按下该按钮会在该日期字段中添加一周的日期。我之前只制作了一个其他的宏按钮，所以任何帮助都会受到赞赏。

Answer 1

以下代码可以解决这个问题：

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