如果要将数据透视表筛选器链接到某个单元格,并根据该单元格值对数据透视表进行筛选,则本文中的方法可以为您提供帮助。
使用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,然后根据现有值筛选出数据透视表中的相应数据。 看截图:
更改单元格值时,数据透视表中的筛选数据将自动更改。 看截图:
根据certian列中的单元格值轻松选择整个行:
选择特定的单元格 实用程序 Kutools for Excel
可以帮助您根据Excel中的certian列中的单元格值快速选择整个行,如下图所示。 根据单元格值选择所有行后,可以根据需要在Excel中手动将其移动或复制到新位置。
立即下载并试用! (30-天免费试用)准备好增强您的 Excel 任务了吗? 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!
⏱️ 高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。
***