Как правильно фильтровать даты в VBA?

Question

В настоящее время я работаю над автоматизацией процесса сортировки для фильтрации определенных дат из данных.

Мне нужны только данные, которые находятся под августом 2018 года, но есть еще несколько дат, которые не относятся к месяцуавгуста.

ActiveSheet.ListObjects("SCRATCH").Range.AutoFilter Field:=10, Operator:= _
    xlFilterValues, Criteria2:=Array(1, "8/31/2018")

Answer 1

Следующие работы, если даты в вашей таблице хранятся как значения даты (а не как текст).

Показать все даты до определенной даты, например, 1 августа 2018 года:

ActiveSheet.ListObjects("SCRATCH").Range.AutoFilter _
    Field:=10, _
    Criteria1:="<" & CDbl(CDate("8/1/2018"))

---

Показать все даты в течение периода между двумя датами, например, в августе 2018 года:

ActiveSheet.ListObjects("SCRATCH").Range.AutoFilter _
    Field:=10, _
    Criteria1:=">=" & CDbl(CDate("8/1/2018")), _
    Operator:=xlAnd, 
    Criteria2:="<=" & CDbl(CDate("8/31/2018"))