Установить значение для фильтра

bulgakov Пользователь Сообщений: 160 Регистрация: 02.05.2015	#1 29.04.2016 11:16:28 Добрый день! Подскажите как макросом установить значение фильтра, в моем случае мне надо выделить текущий месяц xlFilterValues, Criteria2:=Array(что тут писать?) Изменено: bulgakov - 29.04.2016 11:16:47

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

29.04.2016 11:20:22

Запишите код установки фильтра макрорекордером, покажите полученный код.
Тогда вам подскажут, как вместо фиксированного значения подставить аналогичное для текущего месяца

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

bulgakov

Пользователь

Сообщений: 160 Регистрация: 02.05.2015

29.04.2016 12:03:03

Код

1 2	`ActiveSheet.Range("$A$4:$BM$2049").AutoFilter Field:=2, Operator:= _` `xlFilterValues, Criteria2:=Array(1,` `"4/28/2016")`

Изменено: bulgakov - 29.04.2016 12:03:28

Андрей VG

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

29.04.2016 21:19:43

Доброе время суток
Поскольку примера так и не было приложено, то вариант для умной таблицы.

Код

Public Sub setCurrentMonthFilter()
    Dim pLO As ListObject
    Set pLO = ActiveSheet.ListObjects("Календарь")
    pLO.Range.AutoFilter Field:=1, Operator:=xlFilterValues, _
        Criteria2:=Array(1, Format$(Date, "mm\/01\/yyyy"))
End Sub

Успехов.

Читают тему