如何从VBA代码或公式中访问Excel数据透视表中的选定报表过滤器值？

Question

我有一个带有报告过滤器字段的数据透视表。 我需要根据用户在报表过滤器字段中选择的值进行一些操作。

如果用户选择单个值（或选择All ） - 获取该值没有问题。 在示例视频中，它是单元格B1，但是如果选择了多个值，则此字段仅显示Multiple selected 。

我在哪里可以获得所选的特定报告过滤器值？ 我可以从Excel公式中访问这些值吗？ 如果不是 - 我可以从VBA代码中访问这些值吗？

视频示例

Answer 1

由于stackoverflow中没有活动，我向其他几个论坛发布了问题。 我得到回应（导致解决方案）的唯一地方是msdn论坛 。 万一其他人在stackoverflow中搜索这个 - 我在这里发布了解决方案的精髓，在提供的链接上提供了更多信息。

我没有得到如何直接从公式访问报表过滤器值的信息 - 但这可以通过创建用户定义的函数来完成 - > 看看如何做到这一点

1）这是如何从VBA代码访问报告过滤器字段（由P.Thornton）：

Sub Button960_Click()
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
        Set pt = ActiveSheet.PivotTables(1)

        pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
        pt.PivotCache.Refresh

        Set pf = pt.PivotFields("your report field name")
        For Each pi In pf.PivotItems
            Debug.Print pi.Name, pi.Visible

            If pi.Visible Then
                '... user has selected this value!
            End If
        Next   
End Sub

请注意，您应该设置PivotCache.MissingItemsLimit = xlMissingNone否则您可能会遇到意外的结果。 在我的例子中，事实证明缓存有一堆不再存在于数据源的值。 这是一个遗留文件，那些不存在的值很可能在过去的某个时刻出现在文件中，后来从文件中删除。 因此，清除PivotCache清除一些旧的，不存在的数据。

2） 一个很好的解决方案如何在msdn论坛上提供的报告过滤器字段旁边显示所选值的列表 （由D.Tamburino提供）

PS感谢来自MSDN论坛的P.Thornton和D.Tamburino！