如何設置數據表過濾器等於數據透視表過濾器

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