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

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

1 个答案: