如何檢查Excel單元格的日期是否在一週內？

Question

我在Excel 2010中使用VBA來製作簡單的生日提醒程序。我有一列日期（D列）。如何檢查一個單元格是否在今天的一週內？

我不知道該條件語句的語法VBA會是什麼：

For i = 2 To MAX_ROW 
    cell = ActiveSheet.Cells(i, 4) 
    If (Date(cell) - Date(Now()) <= 7) Then 
     MsgBox(ActiveSheet.Cells(i, 1) 
    End If 
Next 

Answer 1

如果細胞包含實際的生日，你將需要一年更改爲當前的一年，說：

If DateSerial(Year(Date), Month(Cell), Day(Cell)) - Date <= 7 Then