Скрыть все выпадающие AutoFilter с одной строкой кода - PullRequest
0 голосов
/ 05 февраля 2019

У меня довольно большой файл Excel с большим количеством данных.Я использую список проверки, который приводит к фильтрации через VBA.Поскольку у меня 52 столбца (по одному на каждую неделю года), я автоматически получаю небольшую стрелку раскрывающегося списка в каждом заголовке.

Я использую этот небольшой фрагмент кода, чтобы вручную скрыть стрелку раскрывающегося списка для каждого столбца:

Worksheets("Agenda").Range("B6").AutoFilter Field:=1, VisibleDropDown:=False

Это работает отлично, однако, когда я создаю цикл for с его циклом по всем 52 столбцам, требуется много времени для завершения кода, и он запускается каждый раз, когда кто-то добавляет фильтр ссписок проверки.

Есть ли способ сделать это, просто используя одну строку кода?Могу ли я установить для VisibleDropDown значение False для всех столбцов в указанной таблице?

Заранее спасибо!

1 Ответ

0 голосов
/ 05 февраля 2019

Это довольно просто, я думаю ...
- Выберите все ваши данные
- Выберите "Формат таблицы"
- Перейдите на ленту таблицы
- Переименуйте таблицу в "myBigTable"
- Макро строка: ActiveSheet.ListObjects("YourTableName").ShowAutoFilterDropDown = False

...