Excel 2013 VBA从单个单元格中筛选多个透视表无效_Vba_Excel

Excel 2013 VBA从单个单元格中筛选多个透视表无效

vba excel

Excel 2013 VBA从单个单元格中筛选多个透视表无效,vba,excel,Vba,Excel,第一次张贴我有一个Excel 2013电子表格，上面有三个pivot故事。我试图通过引用同一工作表上的单元格来自动更新它们。VBA代码是： Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'This line stops the worksheet updating on every change, it only updates when cell B1 is touched If Intersect(Target,

第一次张贴

我有一个Excel 2013电子表格，上面有三个pivot故事。我试图通过引用同一工作表上的单元格来自动更新它们。VBA代码是：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'This line stops the worksheet updating on every change, it only updates when cell B1 is touched
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub

'Set the Variables to be used and assigns their values

Dim WS1 As Worksheet: Set WS1 = ActiveWorkbook.Worksheets("PIVOT")
Dim PT1 As PivotTable: Set PT1 = WS1.PivotTables("pgmTable1")
Dim PT2 As PivotTable: Set PT2 = WS1.PivotTables("pgmTable2")
Dim PT3 As PivotTable: Set PT3 = WS1.PivotTables("pgmTable3")

Dim PF1 As PivotField: Set PF1 = PT1.PivotFields("REPORTING_DATE")
Dim PF2 As PivotField: Set PF2 = PT2.PivotFields("REPORTING_DATE")
Dim PF3 As PivotField: Set PF3 = PT3.PivotFields("REPORTING_DATE")

Dim filterCell As Date

'This reassigns the filter to the sheet-defined value
filterCell = WS1.Range("B1").Value

'This updates and refreshes the PIVOT tables
With PT1
PF1.ClearAllFilters
PF1.CurrentPage = filterCell
PT1.RefreshTable
End With

With PT2
PF2.ClearAllFilters
PF2.CurrentPage = filterCell
PT2.RefreshTable
End With

With PT3
PF3.ClearAllFilters
PF3.CurrentPage = filterCell
PT3.RefreshTable
End With

End Sub

它回来了

运行时错误“1004”：应用程序定义的错误或对象定义的错误

这段代码过去曾用于包含单透视表的工作表。我是一个相对的笨蛋，把这件事混在一起了。我确信有一种更优雅的方法可以使用for循环进行更新

此外，我还尝试将这些数据透视表拆分到它们自己的工作表中，但没有成功

任何帮助都将不胜感激

嗯，你为什么不在Excel中使用“切片器”？您可以轻松地连接多个数据透视表，而无需使用VBA

单击透视表中的任意单元格

进入“分析”

查找“插入切片器”

选择要用作筛选器的字段

在切片器中单击鼠标右键

查找“Report Connections…”并连接所有要使用切片器过滤的数据透视表

注意：所有透视表都需要相同的源

这是我做的。它是西班牙语的，但我使用的是英文版的Excel。