如何将数据透视表过滤器链接到Excel中的某个单元格？

如何将数据透视表过滤器链接到Excel中的某个单元格？

如果要将数据透视表筛选器链接到某个单元格，并根据该单元格值对数据透视表进行筛选，则本文中的方法可以为您提供帮助。

使用VBA代码将数据透视表过滤器链接到特定单元格

使用VBA代码将数据透视表过滤器链接到特定单元格

您要将其筛选功能链接到数据透视表的数据透视表应包含一个筛选字段（筛选字段的名称在以下VBA代码中起着重要作用）。

以下面的数据透视表为例，数据透视表中的过滤器字段称为 产品分类，其中包括两个值“开支“和”销售”。 将数据透视表筛选器链接到一个单元格后，将应用于筛选数据透视表的单元格值应为“费用”和“销售”。

1.请选择一个单元格（在这里我选择单元格H6），您将链接到数据透视表的过滤器功能，并提前在该单元格中输入一个过滤器值。

2.打开包含要链接到单元格的数据透视表的工作表。 右键单击工作表标签，然后选择 查看代码 从上下文菜单中。 看截图：

3.在 Microsoft Visual Basic应用程序 窗口，将下面的VBA代码复制到“代码”窗口中。

VBA代码：将数据透视表过滤器链接到某个单元格

Private Sub Worksheet_Change(ByVal Target As Range) Update by Extendoffice 20180702 Dim xPTable As PivotTable Dim xPFile As PivotField Dim xStr As String On Error Resume Next If Intersect(Target, Range("H6")) Is Nothing Then Exit Sub Application.ScreenUpdating = False Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2") Set xPFile = xPTable.PivotFields("Category") xStr = Target.Text xPFile.ClearAllFilters xPFile.CurrentPage = xStr Application.ScreenUpdating = True End Sub

:

4。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

现在，数据透视表的筛选功能已链接到单元格H6。

刷新单元格H6，然后根据现有值筛选出数据透视表中的相应数据。 看截图：

更改单元格值时，数据透视表中的筛选数据将自动更改。 看截图：

相关文章： 如何在Excel中将多个工作表合并到数据透视表中？ 如何在Excel中从文本文件创建数据透视表？ 如何基于Excel中的特定单元格值筛选数据透视表？