Range("A1:A300").AutoFilter _
Field:=1, Criteria1:="<>" & Format("04.04.06", "#")
Автофильтр и даты
Возникла проблемма с использованием автофильтра применительно к датам. Если выбирать с критерием "=", то все работает:
Selection.AutoFilter Field:=1, Criteria1:=DateSerial(Year("04.04.06"), Month("04.04.06"), Day("04.04.06"))
Но как только ставлю "<>", то фильтр ничего не фильтрует. Включается и оставляет все на своих местах:
Selection.AutoFilter Field:=1, Criteria1:="<>" & DateSerial(Year("04.04.06"), Month("04.04.06"), Day("04.04.06"))
Подскажите, как научить его выделять, с условием "не равно"!
Заранее спасибо!
Selection.AutoFilter Field:=1, Criteria1:=DateSerial(Year("04.04.06"), Month("04.04.06"), Day("04.04.06"))
Но как только ставлю "<>", то фильтр ничего не фильтрует. Включается и оставляет все на своих местах:
Selection.AutoFilter Field:=1, Criteria1:="<>" & DateSerial(Year("04.04.06"), Month("04.04.06"), Day("04.04.06"))
Подскажите, как научить его выделять, с условием "не равно"!
Заранее спасибо!
Вариант I.
Вариант II.
Вариант III.
P.S. Если не использовать дату в виде текста, то функции Cdate(), DateValue() можно убрать.
Код:
Вариант II.
Код:
Range("A1:A300").AutoFilter _
Field:=1, Criteria1:="<>" & CDbl(CDate("04.04.06"))
Field:=1, Criteria1:="<>" & CDbl(CDate("04.04.06"))
Вариант III.
Код:
Range("A1:A300").AutoFilter _
Field:=1, Criteria1:="<>" & CDbl(DateValue("04.04.06"))
Field:=1, Criteria1:="<>" & CDbl(DateValue("04.04.06"))
P.S. Если не использовать дату в виде текста, то функции Cdate(), DateValue() можно убрать.
Спасибо огромное! Наконец-то я сдвинулся с мертвой точки! :)