根据日期检索过滤数据的Criteria1值

Question

我有一个基于几个标准过滤的工作表，其中一个基于日期（例如我想要2018年的日期）

我找到了各种例程，如下所示：

http://www.vbaexpress.com/forum/archive/index.php/t-7564.html

但是，每当循环进入带有日期条件的列时，代码就会在以下行崩溃：

sMsg = sMsg & vbCrLf & sField & oFlt.Criteria1

您是否知道如何根据日期检索标准？

此致

Thanasis

Answer 1

尝试在错误行前添加：

MsgBox CDate(oFlt.Criteria1)
sMsg = sMsg & vbCrLf & sField & oFlt.Criteria1

然后尝试解决，直到你设法完成它。可能Criteria1无法转换为日期或类似日期。