Фиксированная сводная таблица на входе пользователя

Мне нужно отфильтровать сводную таблицу на пользовательском значении ввода в поле ввода в Excel. как я могу отфильтровать эту сводную таблицу по пользовательскому значению ввода, которое я беру в LYear. Ниже мой код, который не работает

Sub LoopThroughPivotItems() Dim PT As PivotTable Dim PF As PivotField Dim PI As PivotItem Set PT = ActiveSheet.PivotTables("PivotTable4") 'Set PF = PT.PivotFields("2013") LYear = InputBox("Enter Year") 'PF.Value = LYear ActiveSheet.PivotTables("PivotTable4").PivotFields("2012").CurrentPage = LYear 'PF.AutoShowField = LYear 'PF.AutoShowField = "LYear" 'For Each PI In PF.PivotItems 'PI.Visible = True ' Error is occuring here 'Next PI If PI = PF.PivotItems Then PI.Visible = True Else: PI.Visible = False End If End Sub 

 lYear = InputBox("Enter Year") ActiveSheet.PivotTables("PivotTable4").PivotFields("Year").PivotItems(lYear).Visible = True For Each pit In ActiveSheet.PivotTables("PivotTable1").PivotFields("Year").PivotItems If pit.Value <> lYear Then pit.Visible = False End If Next pit 
Interesting Posts

Excel слияние двух строк в один

Имя и значения: отдельные ячейки или диапазон

Excel применяет формулу до конца столбца

excel 2013 настроить контекстные фигуры и формы группы меню правой кнопкой мыши

icCube – Как изменить информацию, которая будет экспортирована в файл Excel

Создание электронной почты из Excel по строке с прикрепленными элементами на основе соответствия получателей в каждой строке

Преобразование HTML-таблицы в Excel в IE 11

Идентификация и чтение файлов блокировки Microsoft Office

Массовое смещение всего листа Excel

Почему не удается установить значение для строки и столбца с помощью Apache POI?

Excel 2010 показывает элементы в выпадающем списке, где выполняются критерии

Связывание нескольких документов Excel с БД доступа

Как я могу удалить макросы из одного файла из листа Excel?

Код застрял в повторяющемся цикле между датами

Matlab XlsRead – это плохо оформленный код?

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