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

Question

我尝试了很多改动，但无法使这项工作......帮助PLZ：）

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

在正确的工作表内创建子（Graficos）。尝试将其重命名为“Sheet6”以及代码。

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

数据透视表名称：“sellin”

表：“Grafico”

第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具有值，并且该值是客户名称之一。然后代码运行正常。