Как я могу проверить, дата Excel Cell в течение одной недели?

Question

Я использую VBA в Excel 2010, чтобы сделать простую программу напоминания на день рождения. У меня есть колонка с датами (столбец 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