Excel 将数据透视表筛选器链接到单元格

Excel 将数据透视表筛选器链接到单元格,excel,vba,pivot-table,Excel,Vba,Pivot Table,我知道类似的问题已经被问了很多次,但我找到的解决方案和调整,以适应我的需要似乎不起作用,所以我真的非常感谢任何帮助 我的问题是我有一个数据透视表2,我想把它的过滤器链接到一个单元格值(C1)。 单元格值本身是从连接到另一个数据源透视表的切片器中提取的。 我希望数据透视表2的筛选器在单元格C1中的值更改时自动更改 这是我录制的宏,因此可能更容易开始: Sub Change_Pivot_Table_Filter() Range("C59").Select ActiveShe

我知道类似的问题已经被问了很多次,但我找到的解决方案和调整,以适应我的需要似乎不起作用,所以我真的非常感谢任何帮助

我的问题是我有一个数据透视表2,我想把它的过滤器链接到一个单元格值(C1)。 单元格值本身是从连接到另一个数据源透视表的切片器中提取的。 我希望数据透视表2的筛选器在单元格C1中的值更改时自动更改

这是我录制的宏,因此可能更容易开始:

    Sub Change_Pivot_Table_Filter()

    Range("C59").Select
    ActiveSheet.PivotTables("PivotTable2").PivotFields("delivery_date"). _
    CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("delivery_date")
    .PivotItems("10/21/2016").Visible = False
    .PivotItems("10/23/2016").Visible = True
    End With
    End Sub

非常感谢

您可以使用工作表更改事件来获得所需的结果。 像这样的

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 3 Then
If Target.Value <> "" Then
ActiveSheet.PivotTables("PivotTable2").PivotFields("delivery_date").CurrentPage = Target.Value
End If
End If
End Sub
Private子工作表\u更改(ByVal目标作为范围)
如果Target.Row=1,Target.Column=3,则
如果Target.Value为“”,则
ActiveSheet.PivotTables(“数据透视表2”)。数据透视字段(“交货日期”)。CurrentPage=Target.Value
如果结束
如果结束
端接头