Фильтрация ярлыков строк в сводной таблице с помощью vba

Я искал много форумов, но до сих пор не нашел ответа на это:

Я пытаюсь отфильтровать ярлык строки, который варьируется от 1 до 10, чтобы показывать только 5 и 10.

Я написал следующий код, но он производит ошибку 1004 «Невозможно получить свойство PivotFields класса PivotTable».

ActiveWorkbook.Sheets("SideCalculations-KPIs").Activate With ActiveSheet.PivotTables("PivotTable1").PivotFields("ToStateId") .ClearAllFilters .PivotItems("5").Visible = True .PivotItems("10").Visible = True End With 

заранее спасибо

Это ясно указано в ошибке, имя PivotField неверно.

Возможность состоит в том, что имя сводного поля было изменено с «ToStateId». Чтобы найти соответствующее имя, введите следующий код:

 For each pField in ActiveSheet.PivotTables("PivotTable1").PivotFields Debug.Print pField.Name Next pField 

Перейдите в редактор VBA, нажмите Ctrl + G, откроется окно. Он покажет все доступные поля поворота. Затем, пожалуйста, используйте правильное поле поворота и попробуйте.

вы можете попробовать что-то вроде этого:

 dim pvItem as pivotitem For Each pvtitem In Sheets("SideCalculations-KPIs").PivotTables("PivotTable1").PivotItems if (pvitem.name="5" or pvitem.name="10) then pvitem.visible=true else pvitem.visible=false end if Next 
  • Powerpivot против SQL-соединения есть ли разница в эффективности?
  • PowerPivot вычисляет разницу дат в текущем контексте
  • Создать текущую полную меру в DAX из другого измерения (не подсчитанной колонки)
  • Имя столбца DAX из значения ячейки строки
  • Создание иерархии PowerBI без облака
  • Вау, это большая книга. К сожалению, мы не можем открыть книгу объемом более 10 МБ
  • Сила разворачивает многие отношения между двумя таблицами
  • Удаление десятичных разрядов на карте мощности
  • Обновить окно Pivot Power
  • Реорганизовать данные Excel
  • excel vba pivottable; Col фильтры работают, за исключением ошибки 1 столбца 1004
  • Interesting Posts

    Я хочу читать, записывать и сохранять файл Excel, который был добавлен в качестве ресурса в моем проекте. Я использую Visual Basic 2010 Express

    Запуск сохраненного процесса SAS в Excel завершается с ошибкой после двух запусков

    многомерные массивы excel

    Excel – эффективный способ поиска данных по листам

    SUM интервал строк, даже если ошибка

    Функция вырезания и вставки Excel VBA с индексом вне диапазона

    Excel Microsoft 2007 предотвращает автоматическое преобразование текста в дату

    Матч из нескольких листов

    Excel VBA – как проверить непустые значения в скрытом диапазоне

    Как остановить процесс Excel, который я начал с приложения C # .Net?

    Excel – Как удалить ячейки на основе условий

    Excel VBA неожиданное усечение

    Ошибка: выполнение не выполнено для задачи: app: transformClassesWithDexForDebug после добавления poi-ooxml: 3.7 library

    MissingMethodException при использовании Csvhelper UseExcelLeadingZerosFormatForNumerics = истинная конфигурация в c #

    Как экспортировать идентифицированные значения на новый лист?

    Давайте будем гением компьютера.