#excel #vba #office365
Вопрос:
Чтобы сэкономить время фильтрации по нескольким критериям, я настроил ручной фильтр с помощью функции AdvancedFilter (см. Ниже). Он работает нормально, однако я удивлен, увидев, что все раскрывающиеся кнопки исчезают из заголовка таблицы-чтобы восстановить их, мне нужно перейти в раздел «Дизайн таблицы» gt; «Параметры стиля таблицы» gt; gt; Отметьте поле «Строка заголовка», а затем включите его снова. Есть идеи, почему это происходит?
' Clear any existing filter On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 ' Make sure you are outside the table Range("A1").Select ' Set the dimensions of the variables Dim rngDatabase As Range Dim rngCriteria As Range ' Define the database and criteria ranges Set rngDatabase = Sheet1.Range("Table1[#All]") Set rngCriteria = Sheet1.Range("A2:J3") ' Filter the database using the criteria rngDatabase.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _ :=rngCriteria, Unique:=False Большое спасибо.
Комментарии:
1. Не могли бы вы добавить в код шаг, который вы выполняете вручную?
2. Если я это сделаю, например, со следующим кодом: ` ` » Восстановите диапазон заголовков таблиц(«A7»). Выберите Активный лист. Список объектов(«Таблица 1»). Заголовки = Ложная таблица активов. Список объектов(«Таблица 1»). Заголовки = True « Затем расширенные критерии фильтрации исчезают, и вся таблица появляется снова (больше никакой фильтрации). … Вероятно, именно поэтому кнопки выпадающего списка заголовка исчезают: вы не можете использовать AdvancedFilter и базовый фильтр одновременно. Я думаю, это решает мой вопрос… Большое спасибо.
Ответ №1:
Я думаю, что нашел ответ: вы не можете использовать AdvancedFilter одновременно с базовым фильтром (доступно через выпадающие меню заголовка таблицы).
Всякий раз, когда я восстанавливаю кнопки заголовка, мой расширенный фильтр сбрасывается, и вся таблица появляется снова. Да!
Спасибо за комментарий, который помог мне понять!