vba - excel:在高级过滤器中更改格式日期

Question

我正在使用高级过滤器在数据库中的日期之间进行搜索。
我将我的标准并排放置，以便我可以一起搜索一个或多个信息。

这是示例:


这是代码:

Sub FiltroAutomatico()
'
' FiltroAutomatico Macro
'

'
    Sheets("BASE_TOTAL_ATUAL").Range("A1:J445").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Range("CONSULTA!Criteria"), 
CopyToRange:=Range _
        ("CONSULTA!Extract"), Unique:=False
    Range("H25").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("G3").Select
End Sub

无论如何，问题是当我搜索类似 的内容时>03/03/2017 和 <25/03/2017 它没有像我预期的那样工作。

我认为问题在于 Excel 无法正确识别我的日期(我的 Excel 是葡萄牙语，这里的日期是 dd/mm/yyyy 格式)。我改用美国日期进行了测试，效果很好。

有没有办法从高级过滤器更改格式日期以了解我的标准格式是 dd/mm/yyyy 而不是 mm/dd/yyyy？

Answer 1

我无法对此进行测试，但 VBA 过滤器中的日期一直以美国为中心。我建议您让您的用户以您的本地格式输入实际的开始和结束日期(但不在实际标准范围内)。在条件范围本身中，使用以下公式:

=">" & StartDate
="<" & EndDate

其中 StartDate 和 EndDate 是指用户输入的日期。
您甚至可以将其保留在与上面显示的相同的物理位置，但将标准范围设置在其他位置。或者您可以让他们在用户表单中输入。

单元格将显示类似 >49076 的内容其中数字是自(通常) 1/1/1900 以来的天数.但它应该工作。

如果您让他们在别处输入日期，请​​确保 LOCK和 PROTECT标准单元格，因此用户无法删除或更改公式。