วิธีกรองตาราง Pivot ตามค่าเซลล์เฉพาะใน Excel

การกรองข้อมูลในตารางสรุปข้อมูลโดยทั่วไปจะทำโดยการเลือกไอเท็มจากรายการดร็อปดาวน์ อย่างไรก็ตาม อาจมีสถานการณ์ที่คุณต้องการให้ตารางสรุปข้อมูลกรองแบบไดนามิกตามค่าในเซลล์ที่ระบุ บทช่วยสอนนี้นำเสนอโซลูชัน VBA ง่ายๆ เพื่อทำให้กระบวนการนี้เป็นอัตโนมัติ ทำให้จัดการและวิเคราะห์ข้อมูลของคุณได้อย่างมีประสิทธิภาพมากขึ้น

กรองตาราง Pivot ตามค่าเซลล์เฉพาะด้วยรหัส VBA

กรองตาราง Pivot ตามค่าเซลล์เฉพาะด้วยรหัส VBA

โค้ด VBA ต่อไปนี้สามารถช่วยให้คุณกรองตารางสรุปข้อมูลแบบไดนามิกตามค่าเซลล์เฉพาะใน Excel ได้ โปรดทำดังต่อไปนี้

1. โปรดป้อนค่าที่คุณจะกรอง Pivot Table ตามเซลล์ล่วงหน้า (ที่นี่ฉันเลือกเซลล์ H6)

2. เปิดแผ่นงานที่มีตาราง Pivot ซึ่งคุณจะกรองตามค่าของเซลล์ จากนั้นคลิกขวาที่แท็บแผ่นงานแล้วเลือกดูรหัสจากเมนูบริบท ดูภาพหน้าจอ:

3. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกโค้ด VBA ด้านล่างลงในหน้าต่าง Code

รหัส VBA: กรองตาราง Pivot ตามค่าของเซลล์

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

หมายเหตุ : : ในรหัส

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

ตอนนี้ตารางสรุปข้อมูลจะกรองแบบไดนามิกตามค่าในเซลล์ H6 ดังที่แสดงในภาพหน้าจอด้านล่าง:

คุณสามารถอัปเดตค่าเซลล์เพื่อใช้ตัวกรองอื่นตามต้องการ

หมายเหตุ: ค่าที่คุณพิมพ์ในเซลล์ H6 ควรตรงกับค่าในรายการแบบเลื่อนลงประเภทของตาราง Pivot

บทความที่เกี่ยวข้อง:

• วิธีรวมแผ่นงานหลายแผ่นเป็นตาราง Pivot ใน Excel
• วิธีสร้าง Pivot Table จากไฟล์ Text ใน Excel
• วิธีเชื่อมโยงตัวกรองตาราง Pivot กับเซลล์บางเซลล์ใน Excel