Come faccio a verificare se la data di una cella di Excel è entro una settimana?

Question

Sto utilizzando VBA in Excel 2010 per fare un semplice programma di compleanno promemoria. Ho una colonna di date (colonna D). Come posso controllare se una cellula è entro una settimana da oggi?

Non sono sicuro di quale sarebbe la sintassi VBA per l'istruzione condizionale:

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

Se le celle contengono compleanni effettivi, sarà necessario cambiare l'anno per l'anno in corso, dice:

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