Pivot: VBA для проверки выбора всего, кроме пустого, в сводной таблице

Привет, у меня есть вопрос о сводных таблицах

С помощью нижеприведенной темы мне удалось получить код, но он не работает, надеюсь, кто-нибудь сможет увидеть, где это происходит. Как выбрать (All) в сводной таблице фильтра

Предпочтительно, VBA должен ВЫБРАТЬ ВСЕ и, если возможно, чем отменить выбор BLANK, но я еще не достиг этого:

Sub Showallpivot() Dim pt As PivotTable Dim pf As PivotField Set pt = ActiveSheet.PivotTables("PivotTable1") For Each pf In pt.PivotFields pf.ShowAllItems = True Next pf End Sub 

Что я делаю не так?

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

«Ответ» в сообщении, с которым вы связаны, используя ваш код, будет выглядеть примерно так …

 Sub Showallpivot() Dim pt As PivotTable Set pt = ActiveSheet.PivotTables("PivotTable1") pt.ClearAllFilters End Sub 

Это устранит любую фильтрацию, которая была введена в действие, оставив сводную таблицу в полной форме.

Если это не делает то, что вы хотите, тогда вам нужно дать более четкое объяснение проблемы.

Ваш комментарий «Предпочтительно, VBA должен ВЫБРАТЬ ВСЕ и, если возможно, чем отменить выбор BLANK, но я еще не дошел до этой точки» означает, что вы ищете другую информацию, за исключением отображения всей сводной таблицы. Вы не предоставили достаточно подробностей, чтобы я мог комментировать дальше. Это должен быть отдельный вопрос.

  • Могут ли вычисленные поля ссылаться на итоговые суммы в формуле, в сводных таблицах?
  • Заголовки столбцов Pivot Table, использующие меньше
  • сводная таблица второго уровня = GetPivotData
  • Даты полей Excel Pivot не группируются после фиксации текстовых записей
  • Добавить столбец с настраиваемым текстом в сводную таблицу
  • Вычисленное поле сводной таблицы
  • Таблицы сводной таблицы Excel сгруппированы
  • Сводная таблица в Excel - как сгруппировать аналогичные данные вместе
  • Сводная помощь
  • Сортировка таблиц сводных таблиц Excel по нескольким столбцам
  • Поиск средних промежуточных итогов в сводных таблицах
  • Давайте будем гением компьютера.