如何检查 Excel 单元格的日期是否在一周内？
我正在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
I'm using VBA in Excel 2010 to make a simple birthday reminder program. I have a column of dates (Column D). How do I check if a cell is within one week of today?
I'm not sure what the VBA syntax for the conditional statement would be:
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
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
如果单元格包含实际的生日，您需要将年份更改为当前年份，例如：
If the cells contain actual birthdays, you will need to change the year to the current year, say: