如何检查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