将 Excel 数据透视表数据源显示为单元格值答案

【问题标题】：display Excel PivotTable Data Source as cellvalue将 Excel 数据透视表数据源显示为单元格值
【发布时间】：2021-04-23 23:31:12
【问题描述】：

我正在尝试找到一种在 Excel 工作表中显示数据透视表数据源的方法。我知道我们可以通过单击数据透视表工具分析 > 更改数据源 > 更改数据源以在单独的窗口中显示源来手动查看数据源。我想知道是否可以将源值动态显示为链接单元格中的文本（下面的示例单元格 F4）。

可以是单向关系，意思是改变数据透视表数据源，显示单元格应该会自动更新，但是改变显示单元格中的单元格值并不一定会导致数据透视表数据源的变化。（**但如果双向更改，那就更好了。）

欢迎 VBA 和非 VBA 解决方案。

非常感谢任何建议。

非常感谢！

【问题讨论】：

标签： excel pivot-table

【解决方案1】：

创建这个函数。

Function PivotTableSource(myPivot As String) As String
    Dim rawSource As String
    Dim a1Source As String
    Dim bracket As Long

    Application.Volatile
    rawSource = ActiveSheet.PivotTables(myPivot).SourceData
    a1Source = Application.ConvertFormula(rawSource, xlR1C1, xlA1)
    bracket = InStr(1, a1Source, "]")
    PivotTableSource = "=" & Mid(a1Source, bracket + 1)
End Function

然后将=PivotTableSource("PivotTable1") 放入单元格 F4。 PivotTable1 是在电子表格中创建的第一个数据透视表的默认名称。如果您的数据透视表被命名为其他名称，请更改它。

【讨论】：

【解决方案2】：

查看与数据透视表数据源相关的事件会很有趣，例如在 Microsoft 文档中。

如果数据源更改触发了事件，您可以创建一个处理程序来更新 F4 单元格中的值。

在更改数据透视表的数据源的同时录制宏也可能会提供一些有趣的提示。

【讨论】：