亞寵展、全球?qū)櫸锂a(chǎn)業(yè)風(fēng)向標(biāo)——亞洲寵物展覽會(huì)深度解析
627
2025-04-01
如何基于Excel中的特定單元格值篩選數(shù)據(jù)透視表？
如何基于Excel中的特定單元格值篩選數(shù)據(jù)透視表？
通常，我們通過在下拉列表中選擇項(xiàng)目來過濾數(shù)據(jù)透視表中的數(shù)據(jù)，如下面的屏幕截圖所示。 實(shí)際上，您可以根據(jù)特定單元格中的值過濾數(shù)據(jù)透視表。 本文中的 VBA 方法將幫助您解決問題。
使用VBA代碼根據(jù)特定單元格值過濾數(shù)據(jù)透視表
使用VBA代碼根據(jù)特定單元格值過濾數(shù)據(jù)透視表下面的VBA代碼可以幫助您基于Excel中的特定單元格值過濾數(shù)據(jù)透視表。 請(qǐng)執(zhí)行以下操作。
1.請(qǐng)輸入一個(gè)值，您將根據(jù)該值預(yù)先將數(shù)據(jù)透視表過濾到一個(gè)單元格中（這里我選擇單元格H6）。
2.打開包含要根據(jù)單元格值過濾的數(shù)據(jù)透視表的工作表。 然后右鍵單擊工作表選項(xiàng)卡，然后從上下文菜單中選擇“查看代碼”。 看截圖：
3.在開幕 Microsoft Visual Basic應(yīng)用程序 窗口，將下面的VBA代碼復(fù)制到“代碼”窗口中。
VBA代碼：根據(jù)單元格值過濾數(shù)據(jù)透視表
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:H7")) 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
Copy
：在代碼中，
1）“Sheet1”是工作表的名稱。
2）“數(shù)據(jù)透視表2”是數(shù)據(jù)透視表的名稱。
3）數(shù)據(jù)透視表中的過濾字段稱為“產(chǎn)品分類".
4）您要過濾數(shù)據(jù)透視表的值放在單元格中 H6.
您可以根據(jù)需要更改上述變量值。
4。 按 其他 + Q 關(guān)閉鍵 Microsoft Visual Basic應(yīng)用程序 窗口。
然后，數(shù)據(jù)透視表將根據(jù)單元格H6中的值進(jìn)行過濾，如下圖所示：
您可以根據(jù)需要將單元格值更改為其他值。
備注：您在單元格H6中鍵入的值應(yīng)與數(shù)據(jù)透視表的“類別”下拉列表中的值完全匹配。
相關(guān)文章： 如何在Excel中將多個(gè)工作表合并到數(shù)據(jù)透視表中？ 如何在Excel中從文本文件創(chuàng)建數(shù)據(jù)透視表？ 如何將數(shù)據(jù)透視表過濾器鏈接到Excel中的某個(gè)單元格？最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡(jiǎn)化您在 1500 多種場(chǎng)景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級(jí)數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢(shì)。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對(duì)于初學(xué)者來說輕而易舉，對(duì)于專家來說是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購(gòu)...
Office Tab 為 Office 帶來選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購(gòu)...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
