使用VBA更新数据透视表过滤器

Question

我试图根据具有不同数据源的不同工作表上的另一个数据透视表的过滤器来过滤数据透视表。

我有两张（主要和尺寸实际 - 样式），并希望按“样式”过滤。 主页是我想要选择要过滤的样式的位置，从那里我想让其他工作表更新过滤所选择的样式（如果使用按钮进行过滤会有帮助）。 我已经更改了一些代码来解释我想要过滤的字段（样式）。 现在，我将主工作表数据透视表重置为在尺寸实际 - 样式上选择样式过滤器时显示所有值。 我需要切换，而不是清除过滤器，我希望它使用过滤器中的选定样式进行更新。

Option Explicit
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
On Error Resume Next
Dim wsMain As Worksheet
Dim ws As Worksheet
Dim ptMain As PivotTable
Dim pt As PivotTable
Dim pfMain As PivotField
Dim pf As PivotField
Dim pi As PivotItem
Dim bMI As Boolean

On Error Resume Next
Set wsMain = ActiveSheet
Set ptMain = Target

Application.EnableEvents = False
Application.ScreenUpdating = False

For Each pfMain In ptMain.PageFields
bMI = pfMain.EnableMultiplePageItems
For Each ws In ThisWorkbook.Worksheets
    For Each pt In ws.PivotTables
        If ws.Name & "_" & pt <> wsMain.Name & "_" & ptMain Then
            pt.ManualUpdate = True
            Set pf = pt.PivotFields("Style")
                    bMI = pfMain.EnableMultiplePageItems
                    With pf
                        .ClearAllFilters
                        Select Case bMI
                            Case False
                                .CurrentPage = pfMain.CurrentPage.Value
                            Case True
                                .CurrentPage = "(All)"
                                For Each pi In pfMain.PivotItems
                                    .PivotItems("Style").Visible = 
pi.Visible
                                Next pi
                                .EnableMultiplePageItems = bMI
                        End Select
                    End With
                    bMI = False

            Set pf = Nothing
            pt.ManualUpdate = False
        End If
    Next pt
Next ws
Next pfMain

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

我试图让第二张纸上的过滤器根据第一张纸张样式过滤器上的选择更新其过滤器。