查找小于今天日期VBA的单元格

时间:2015-08-13 08:07:03

标签: excel vba

我正在尝试创建一个表单,该表单将在单个列中找到日期值小于今天日期的任何单元格并返回行号。我正在尝试使用匹配功能但只接收错误。

任何人都知道从哪里开始这个?

干杯

詹姆斯

1 个答案:

答案 0 :(得分:0)

确定。

是的,这可以通过使用VBA以不同方式完成,但如果您不了解VBA,那将很难。您可以使用这样的excel公式,这可能会为您提供所需的信息。

如果您的日期位于A列并从A1开始。

将此公式添加到B2并将其复制到列中的其他单元格中。

=IF(A1<TODAY(),ROW(A1),"After")

这是一个起点。

我不知道你使用的是什么表格。例如,如果许多日期在今天之前,你会选择第一个吗?

即 将其添加到C1

=IF(B1<>"After",1,0)

将此添加到C2并向下复制

=IF(B2<>"After",C1+1,C1)

将此添加到D1

=IF(C1<>0,A1,"")

将此添加到D2并向下复制

=IF(AND(C2<>0,C1=0),A2,"")

将其添加到单元格E1

 =SUM(D:D)

Chnage列D和E具有日期格式。

Cell E1现在为您提供的列表中的第一个日期少于今天。

哈维