Как автоматически изменить критерий фильтра в VBA?

131
21

Я пытаюсь настроить, используя кнопку выбора, фильтр для моих данных в Excel?

У меня есть дата погашения, и я хочу исключить с этим фильтром все истекшие элементы.

Ячейка A3 дала мне сегодняшнюю дату с помощью функции Excel Today().

Я знаю, что это работает:

Sub OptionButton6_Click()
Rows("12:12").Select
Selection.AutoFilter
ActiveSheet.Range("$A$12:$AK$175").AutoFilter Field:=7, Criteria1:= _
">12/09/2016" , Operator:=xlAnd
Range("A1").Select
End Sub

И я пробовал это:

Sub OptionButton6_Click()
Rows("12:12").Select
Selection.AutoFilter
ActiveSheet.Range("$A$12:$AK$175").AutoFilter Field:=7, Criteria1:= _
A3, Operator:=xlAnd
Range("A1").Select
End Sub

с A3: =CONCATENATE(">",TEXT(TODAY(),"dd/mm/yyyy"))

Есть ли у вас идеи о том, как решить эту проблему?

Большое спасибо заранее, Trancavel

спросил(а) 2021-01-19T18:02:35+03:00 9 месяцев, 1 неделя назад
1
Решение
113

Попробуй это:

ActiveSheet.Range("$A$12:$AK$175").AutoFilter Field:=7, _
Criteria1:= ">" & DateValue(Now()), Operator:=xlAnd

ответил(а) 2021-01-19T18:02:35+03:00 9 месяцев, 1 неделя назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема