Изменить фильтр с OLAP Pivot для обновления Slicer - PullRequest
Новая
       24

Изменить фильтр с OLAP Pivot для обновления Slicer

0 голосов
/ 20 сентября 2019

Мне нужно отфильтровать базу категории 'BU' из одной ячейки.Тем не менее, я получаю сообщение об ошибке в последней строке, когда я изменяю категорию с «Newcat».ОТМЕТЬТЕ, что у меня есть 2 фильтра в этом стержне, в котором 2-й фильтр будет использоваться для моего слайсера.Ценю любую помощь.Спасибо! 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("W2:Z3")) Is Nothing Then Exit Sub

'Set the Variables to be used
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String

NewCat = Worksheets("WeeklyChanges").Range("W2").Value
Set pt = 
Worksheets("WeeklyChanges").PivotTables("STCPivot")
Set Field = pt.PivotFields("[PLchange].[BU].[BU]")

With pt
Field.ClearAllFilters
Field.VisibleItemsList = Array("[PLchange].[BU].&[Newcat]")

pt.RefreshTable
End With

End Sub
...