如何將數(shù)據(jù)透視表過濾器鏈接到Excel中的某個(gè)單元格？

如何將數(shù)據(jù)透視表過濾器鏈接到Excel中的某個(gè)單元格？

如果要將數(shù)據(jù)透視表篩選器鏈接到某個(gè)單元格，并根據(jù)該單元格值對(duì)數(shù)據(jù)透視表進(jìn)行篩選，則本文中的方法可以為您提供幫助。

使用VBA代碼將數(shù)據(jù)透視表過濾器鏈接到特定單元格

使用VBA代碼將數(shù)據(jù)透視表過濾器鏈接到特定單元格

您要將其篩選功能鏈接到數(shù)據(jù)透視表的數(shù)據(jù)透視表應(yīng)包含一個(gè)篩選字段（篩選字段的名稱在以下VBA代碼中起著重要作用）。

以下面的數(shù)據(jù)透視表為例，數(shù)據(jù)透視表中的過濾器字段稱為 產(chǎn)品分類，其中包括兩個(gè)值“開支“和”銷售”。 將數(shù)據(jù)透視表篩選器鏈接到一個(gè)單元格后，將應(yīng)用于篩選數(shù)據(jù)透視表的單元格值應(yīng)為“費(fèi)用”和“銷售”。

1.請(qǐng)選擇一個(gè)單元格（在這里我選擇單元格H6），您將鏈接到數(shù)據(jù)透視表的過濾器功能，并提前在該單元格中輸入一個(gè)過濾器值。

2.打開包含要鏈接到單元格的數(shù)據(jù)透視表的工作表。 右鍵單擊工作表標(biāo)簽，然后選擇 查看代碼 從上下文菜單中。 看截圖：

3.在 Microsoft Visual Basic應(yīng)用程序 窗口，將下面的VBA代碼復(fù)制到“代碼”窗口中。

VBA代碼：將數(shù)據(jù)透視表過濾器鏈接到某個(gè)單元格

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 關(guān)閉鍵 Microsoft Visual Basic應(yīng)用程序 窗口。

現(xiàn)在，數(shù)據(jù)透視表的篩選功能已鏈接到單元格H6。

刷新單元格H6，然后根據(jù)現(xiàn)有值篩選出數(shù)據(jù)透視表中的相應(yīng)數(shù)據(jù)。 看截圖：

更改單元格值時(shí)，數(shù)據(jù)透視表中的篩選數(shù)據(jù)將自動(dòng)更改。 看截圖：

相關(guān)文章： 如何在Excel中將多個(gè)工作表合并到數(shù)據(jù)透視表中？ 如何在Excel中從文本文件創(chuàng)建數(shù)據(jù)透視表？ 如何基于Excel中的特定單元格值篩選數(shù)據(jù)透視表？