制作一个button，在Excel中提前一个星期的date

在Excel中我有一个date字段。 我想做一个button，当按下将添加一个星期的date在该date字段。 我只有一个其他macrosbutton之前，所以任何帮助将不胜感激。

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是包含date的单元格
2. 7是添加到date的天数。

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

问候Arcass