MyTetra Share
Делитесь знаниями!
Как выборочно скрыть стрелки автофильтра
Время создания: 12.10.2019 20:26
Текстовые метки: Фильтр, Filter, AutoFilter, Mode, AutoFilterMode, Sort
Раздел: !Закладки - VBA - Excel - Листы - Фильтр-сортировка

Как выборочно скрыть стрелки автофильтра

Автор Дмитрий Якушев На чтение2 мин. Просмотров64

Что делает макрос: Само собой разумеется, что функция AutoFilter в Excel является одной из самых полезных. Единственная проблема заключается в том, что стандартная функциональность AutoFilter применяет стрелки раскрывающегося списка к каждому столбцу в выбранном наборе данных. Хорошей новостью является то, что с макросом VBA, вы можете выборочно скрыть стрелки автофильтра раскрывающегося списка.

Содержание

  1. Как макрос работает
  2. Код макроса
  3. Как использовать

Как макрос работает

В VBA, мы можем использовать объект AutoFilter, чтобы включить автофильтры для определенного диапазона. Например:

Range("B5:G5").AutoFilter


После того, как применится автофильтр, мы можем манипулировать с каждой колонкой в Автофильтре. Например, вы можете выполнить некоторые действия на третьей колонке в Автофильтре, вот так:

Range("B5:G5").AutoFilter Field:3


Вы можете выполнять множество действий на поле Автофильтр. В этом случае, мы заинтересованы сделать стрелки раскрывающегося списка невидимыми в поле. Для этого мы можем использовать параметр VisibleDropDown. Установка этого параметра в значение False делает стрелку раскрывающегося списка невидимой.


Range("B5:G5").AutoFilter Field:3,

VisibleDropDown:=False


Код макроса

Пример макроса, где мы включаем автофильтры, а затем делаем видимыми только первую и последнюю раскрывающиеся стрелки .



Sub SkritStrelkiAvtofiltra()

With Range("B5:G5")

.AutoFilter

.AutoFilter Field:=1, VisibleDropDown:=True

.AutoFilter Field:=2, VisibleDropDown:=False

.AutoFilter Field:=3, VisibleDropDown:=False

.AutoFilter Field:=4, VisibleDropDown:=False

.AutoFilter Field:=5, VisibleDropDown:=False

.AutoFilter Field:=6, VisibleDropDown:=True

End With

End Sub



 
MyTetra Share v.0.52
Яндекс индекс цитирования