Обновление фильтра в таблице каждый раз, когда обновляются срезы

Question

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

Спрашивается, что, когда я меняю сводки для новой информации, она отфильтровывает все пустые строки в диапазоне. Мне нужно его повторно применять каждый раз, когда я что-то переключаю в центрах, чтобы убедиться, что я всегда показываю последние данные.

Это то, что я пробовал в нескольких форматах, но, похоже, ничего не получилось:

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Column = 5 Then
    ActiveSheet.AutoFilter.ApplyFilter
End If 
End Sub

Answer 1

Следующий пример кода поможет вам отфильтровать сводную таблицу при обновлении среза.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

 Dim Sheet as WorkSheet, Pivot as PivotTable

 If ActiveWorkbook.SlicerCaches("Region").SlicerItems("East").Selected = True Then

   For Each Sheet in ThisWorkbook.WorkSheets
     For Each Pivot in Sheet.PivotTables
     Pivot.RefreshTable
     Pivot.Update
     Next
   Next

End Sub

NB. Я принял имя Sacheer Cache & Item, вам нужно изменить оба в соответствии с вашими значениями.

Я надеюсь, что это поможет вам.