如何设置数据表过滤器等于数据透视表过滤器

Question

我有两个表 - 一个是原始数据 - 另一个是数据透视表。我需要能够链接值，有时数据表和数据透视表的多个值。两者都有切片器和那些切片器需要匹配。

但是，切片机显式定义哪些值是True或False - 我希望改为使用滤镜功能。事情是这样的：

Worksheets("Opportunity Details").ListObjects("RawData").Range.AutoFilter Field:=9, Criteria1:= _ 
    Worksheets("PIVOTDATE").PivotTables("OppPivot2").PivotFields("Record Manager").Range 

显然，这句法不工作 - 我希望有只设置一个等于另一个虽然有些简单的方法。

Answer 1

好吧，这是不容易找到，但解决的办法是很优雅：

With ActiveWorkbook 
    For Each oSi In OD_am.SlicerItems 
     On Error Resume Next 
     If OP_am.SlicerItems(oSi.Value).Selected <> OD_am.SlicerItems(oSi.Value).Selected Then 
      OD_am.SlicerItems(oSi.Value).Selected = OP_am.SlicerItems(oSi.Value).Selected 
     End If 
    Next 
End With 

几乎是一个for循环线比较SlicerItems线。不需要明确地命名每个部分。我担心apivot桌子和普通桌子的切片机不能正确传达信息 - 但它很有用！

感谢此参考： http://www.jkp-ads.com/articles/slicers04.asp