0

我在 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
4

1 回答 1

1

如果单元格包含实际的生日,则需要将年份更改为当前年份,例如:

If DateSerial(Year(Date), Month(Cell), Day(Cell)) - Date <= 7 Then
于 2010-08-21T22:49:16.300 回答