Question

好的，所以我有两个数据透视表，我希望它们始终显示相同的过滤器。问题是，过滤器没有标记相同。例如，第一个表中的过滤器“A”对应于第二个表中的过滤器“1”。如果只选择一个过滤器，我可以使用查找工作正常，问题是当选择多个过滤器时我不知道如何处理它。任何想法将不胜感激。

另外，我知道最简单的方法就是更改过滤器，使它们标记为相同，但我无法访问数据，因此这不是一个选项

Answer 1

我正在使用Worksheet_PivotTableUpdate事件。您将获得Target作为调用表。

 Dim chgPt as PivotTable
 Set chgPt = Target

 'You'll need to catch the change for either table.
 If chgPt.Name = "table1" Then 'Change table2
   pt2.PivotFields("nameOfFilter").CurrentPage = chgPt.PivotFields("nameOfFilter").CurrentPage 

 Else 'Change table1
  pt1.PivotFields("nameOfFilter").CurrentPage = chgPt.PivotFields("nameOfFilter").CurrentPage

 End If

当另一个更改时，自动更改数据透视表过滤器

1 个答案: