根据单元格区域更改数据透视表筛选器

Question

我已经尝试了很多更改，但无法使这项工作...帮助 plz :)

我想根据单元格范围更改数据透视表过滤器。

在正确的工作表中创建子 (Graficos)。已尝试将其重命名为“Sheet6”以及代码。

数据透视表字段：“客户”

数据透视表名称：“sellin”

工作表：“涂鸦”

第 21 行的错误 1004：Field.CurrentPage = NewCat

应用程序定义或对象定义的错误

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Intersect(Target, Range("F1:F2")) Is Nothing Then Exit Sub

Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String

Set pt = Worksheets("Grafico").PivotTables("sellin")
Set Field = pt.PivotFields("Customer")

NewCat = Worksheets("Grafico").Range("F1").Value

With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With

End Sub

Answer 1

确保单元格 F1 有一个值，并且该值是客户名称之一。然后代码运行正常。