Vba 在自动筛选上使用多个条件

我有供应商数据，包含所有合同的信息（正在进行和已完成）。我需要使用组合框筛选出供应商正在进行的合同

在VBA的autofilter函数中使用多个条件时，不会返回任何行。代码没有给出任何错误

数据：

代码：

当我删除日期条件时，代码会工作，但在使用这两个条件时不会返回任何内容

对于供应商“aaa”，代码应返回2行
对于供应商“bbb”：1行和

---

对于供应商“ccc”：如果不使用美国地区设置，则代码中的1行日期可能有问题。尝试将日期转换为双精度：

ActiveSheet.Range("$A$1").AutoFilter Field:=4, Criteria1:=">" & CDbl(Date)

---

如果不使用美国地区设置，代码中的日期可能会有问题。尝试将日期转换为双精度：

ActiveSheet.Range("$A$1").AutoFilter Field:=4, Criteria1:=">" & CDbl(Date)

ActiveSheet.Range("$A$1").AutoFilter Field:=4, Criteria1:=">" & CDbl(Date)