كيف يمكنني التحقق مما إذا كان تاريخ خلية Excel في غضون أسبوع واحد؟

Question

أنا أستخدم VBA في Excel 2010 لإنشاء برنامج تذكير عيد ميلاد بسيط. لدي عمود من التواريخ (العمود د). كيف أتحقق مما إذا كانت الخلية في غضون أسبوع واحد من اليوم؟

لست متأكدًا مما سيكون عليه بناء جملة 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