製作一個按鈕，將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