Используя этот код (конечно, обновленный для моих переменных), при изменении поля фильтр мгновенно меняется на правильный, а затем почти сразу очищается. Попытка выяснить, почему он это делает (интересно, имеет ли это какое-то отношение к ClearAllFilters в конце подраздела?)

Как бы вы сделали это с фильтром отчета, который имеет иерархию?

Привет! Спасибо за ваш макрос.

Я пытался использовать его для нескольких сводных таблиц на одной странице, но это не сработало. Я написал это так:

Private Sub Worksheet_Change (ByVal Target As Range)
Dim xPTable1 как сводная таблица
Dim xPFile1 как PivotField
Dim xStr1 как строка
On Error Resume Next
Если Intersect(Target, Range("D7")) ничего не значит, тогда выйдите из Sub
Приложение.ScreenUpdating = False
Установите xPTable1 = Рабочие листы ("BUSCADOR"). Сводные таблицы ("PV_ETAPA1")
Установите xPFile1 = xPTable1.PivotFields("ETAPA1")
xStr1 = Цель.Текст
xPFile1.ClearAllFilters
xPFile1.CurrentPage = xStr1
Application.ScreenUpdating = True

Dim xPTable2 как сводная таблица
Dim xPFile2 как PivotField
Dim xStr2 как строка
On Error Resume Next
Если Intersect(Target, Range("G7")) ничего не значит, тогда выйдите из Sub
Приложение.ScreenUpdating = False
Установите xPTable2 = Рабочие листы ("BUSCADOR"). Сводные таблицы ("PV_ETAPA2")
Установите xPFile2 = xPTable2.PivotFields("ETAPA2")
xStr2 = Цель.Текст
xPFile2.ClearAllFilters
xPFile2.CurrentPage = xStr2
Application.ScreenUpdating = True

End Sub

Может быть, вы можете помочь мне!

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

Привет, почему-то этот макрос после входа на страницу Visual Basic вообще не отображается. Я не могу включить/запустить этот макрос, я проверил все настройки центра управления безопасностью, но ничего не происходит, пожалуйста, помогите мне

Привет, я не могу заставить это работать. Ячейка, на которую я хочу сослаться, вытягивается из формулы - может быть поэтому фильтр не может найти ее, поскольку он смотрит на формулу, а не на значение, которое возвращает формула? Заранее спасибо, Хизер МакДонах.

Мне удалось изменить/отфильтровать 3 разных поворота, которые находятся на одной вкладке. Я также добавил строку в свой набор данных «Данные не найдены», иначе фильтр оставил значение «ВСЕ», чего я не хотел. Вышеупомянутое очень помогло мне заработать славу у руководства, поэтому я хотел поделиться. Обратите внимание, что (Все) чувствительно к регистру, мне потребовалось немного времени, чтобы понять это.
Private Sub Worksheet_Change (ByVal Target As Range)
'контрольная работа
Dim xPTable как сводная таблица
Dim xPFile как PivotField
Dim xStr как строка

Dim x2PTable как сводная таблица
Dim x2PFile как PivotField
Dim x2Str как строка

Dim x3PTable как сводная таблица
Dim x3PFile как PivotField
Dim x3Str как строка

On Error Resume Next
Если Intersect(Target, Range("a2:e2")) ничего не значит, то выйдите из Sub

Приложение.ScreenUpdating = False

'стол-1
Установить xPTable = Рабочие листы ("Графические"). Сводные таблицы ("Сводная таблица1")
Установить xPFile = xPTable.PivotFields("Отдел MR - Отдел")
xStr = Цель.Текст
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Если xPFile.CurrentPage = "(Все)", тогда xPFile.CurrentPage = "Данные не найдены"

'стол-2
Установить x2PTable = Рабочие листы ("Графические"). Сводные таблицы ("Сводная таблица2")
Установить x2PFile = x2PTable.PivotFields("Отдел MR - Отдел")
x2Str = Цель.Текст
x2PFile.ClearAllFilters
x2PFile.CurrentPage = x2Str
Если x2PFile.CurrentPage = "(Все)", тогда x2PFile.CurrentPage = "Данные не найдены"

'стол-3
Установить x3PTable = Рабочие листы ("Графические"). Сводные таблицы ("Сводная таблица3")
Установить x3PFile = x3PTable.PivotFields("Отдел MR - Отдел")
x3Str = Цель.Текст
x3PFile.ClearAllFilters
x3PFile.CurrentPage = x3Str
Если x3PFile.CurrentPage = "(Все)", тогда x3PFile.CurrentPage = "Данные не найдены"

Application.ScreenUpdating = True

End Sub

Возможно ли это с таблицами Google? Если да, то как?

Olá, gostaria де сабля себе quisesse filtrar mais де ума категории como poderia ser?

Что делать, если я хочу связать ячейку выбора с другой вкладкой? Это мой код до сих пор
Private Sub Worksheet_Change (ByVal Target As Range)
Dim xPTable1 как сводная таблица
Dim xPFile1 как PivotField
Dim xStr1 как строка
On Error Resume Next
Если Intersect(Target, Range("B1")) ничего не значит, тогда выйдите из Sub
Приложение.ScreenUpdating = False
Установите xPTable1 = Worksheets("SM_SKU PIVOTS").PivotTables("PivotTable1")
Установите xPFile1 = xPTable1.PivotFields("География")
xStr1 = Цель.Текст
xPFile1.ClearAllFilters
xPFile1.CurrentPage = xStr1
Application.ScreenUpdating = True

Dim xPTable2 как сводная таблица
Dim xPFile2 как PivotField
Dim xStr2 как строка
On Error Resume Next
Если Intersect(Target, Range("B1")) ничего не значит, тогда выйдите из Sub
Приложение.ScreenUpdating = False
Установите xPTable2 = Worksheets("SM_SKU PIVOTS").PivotTables("PivotTable4")
Установите xPFile2 = xPTable2.PivotFields("География")
xStr2 = Цель.Текст
xPFile2.ClearAllFilters
xPFile2.CurrentPage = xStr2
Application.ScreenUpdating = True

Dim xPTable3 как сводная таблица
Dim xPFile3 как PivotField
Dim xStr3 как строка
On Error Resume Next
Если Intersect(Target, Range("B1")) ничего не значит, тогда выйдите из Sub
Приложение.ScreenUpdating = False
Установите xPTable3 = Worksheets("SM_SKU PIVOTS").PivotTables("PivotTable8")
Установите xPFile3 = xPTable3.PivotFields("География")
xStr3 = Цель.Текст
xPFile3.ClearAllFilters
xPFile3.CurrentPage = xStr3
Application.ScreenUpdating = True

End Sub

Привет!

Я новичок в VBA и хотел бы иметь код для выбора сводного фильтра на основе диапазона ячеек.
Как я могу изменить «CurrentPage» на значение диапазона?
Спасибо!!
-------------------------------------------------- -----------------------------------------
Подпрограмма PrintTour()

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
«[Береич 1].[Тур].[Тур]»). _
Очистить все фильтры
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
«[Береич 1].[Тур].[Тур]»). _
CurrentPage = "[Bereich 1].[Tour lt. Anlieferungstag].&[4001-01]"
End Sub

Большое спасибо за этот код! Я заработал после настройки в соответствии с моими полями, но после форматирования некоторых изменений на моем листе теперь это не работает! Я переместил его из A1 в B1, изменил форматирование некоторых ячеек, чтобы выделить его, и т. д. Ничего особенного, но теперь он не обновляется, когда я изменяю текст в B1. У кого-нибудь есть идеи?

Private Sub Worksheet_Change (ByVal Target As Range)
'контрольная работа
Dim xPTable как сводная таблица
Dim xPFile как PivotField
Dim xStr как строка

Dim x2PTable как сводная таблица
Dim x2PFile как PivotField
Dim x2Str как строка

Dim x3PTable как сводная таблица
Dim x3PFile как PivotField
Dim x3Str как строка

On Error Resume Next
Если Intersect(Target, Range("b1")) ничего не значит, тогда выйдите из Sub

Приложение.ScreenUpdating = False

'стол-1
Установите xPTable = Worksheets("Line Report").PivotTables("PivotTable7")
Установить xPFile = xPTable.PivotFields("Источник утопии")
xStr = Цель.Текст
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr

'стол-2
Установить x2PTable = Рабочие листы («Линейный отчет»). Сводные таблицы («Сводная таблица2»)
Установить x2PFile = x2PTable.PivotFields("Источник утопии")
x2Str = Цель.Текст
x2PFile.ClearAllFilters
x2PFile.CurrentPage = x2Str

'стол-3
Установить x3PTable = Рабочие листы («Линейный отчет»). Сводные таблицы («Сводная таблица3»)
Установить x3PFile = x3PTable.PivotFields("Источник утопии")
x3Str = Цель.Текст
x3PFile.ClearAllFilters
x3PFile.CurrentPage = x3Str

Application.ScreenUpdating = True

End Sub

Как это работает с Power Pivot при использовании нескольких таблиц? Я записал макрос, изменяющий значение в фильтре. Внесено несколько изменений, чтобы приведенный выше код работал. Но выдает ошибку несоответствия типа. Неважно что я делаю.

Привет,
Большое спасибо за эти объяснения.

J'aimerai utiliser un filtre (1 cellule) en F4 par example qui filtrerait deux TCD qui sont sur la meme feuille.

Cela fonctionne très bien avec un TCD mais dès que j'essaye de comber le second, ça ne marche pas.
Не могли бы вы помочь мне ?

Merci Ьеаисоир
Эмброуз

Привет,

Merci beaucoup pour cette explication qui Marche parfaitement.
En revanche, j'aimerais pouvoir utiliser ce code pour pouvoir filtrer deux tableaux croisés dynamiques en meme temps qui sont sur la même feuille. La seule petite différence entre les deux, c'est qu'ils n'utilisent pas les memes sources. En revanche, ле filtre sur lequel себе базы ces TDC ЭСТ ле Même.

Pourriez-vous m'aider à faire évoluer ce code afin que cela fonctionne?

Голосовой код, используемый в том или ином виде, с TCD:

Private Sub Worksheet_Change (ByVal Target As Range)
'Обновить Extendoffice 20180702
Dim xPTable как сводная таблица
Dim xPFile как PivotField
Dim xStr как строка
On Error Resume Next
Если Intersect(Target, Range("G4")) ничего не значит, тогда выйдите из Sub
Приложение.ScreenUpdating = False
Установите xPTable = Worksheets("Cadrage").PivotTables("Tableau croisé dynamique7")
Установите xPFile = xPTable.PivotFields("N°PROJET")
xStr = Цель.Текст
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub

Merci Ьеаисоир