如何检查Excel单元格的日期是否在一周内?
问题描述:
我在Excel 2010中使用VBA来制作简单的生日提醒程序。我有一列日期(D列)。如何检查一个单元格是否在今天的一周内?如何检查Excel单元格的日期是否在一周内?
我不知道该条件语句的语法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
答
如果细胞包含实际的生日,你将需要一年更改为当前的一年,说:
If DateSerial(Year(Date), Month(Cell), Day(Cell)) - Date <= 7 Then
谢谢!这正是我需要的;我只需要绑定它> = 0以及它完美的作品 – echoblaze 2010-08-21 23:21:54