ไปยังเนื้อหาหลัก

วิธีเชื่อมโยงตัวกรองตาราง Pivot กับเซลล์บางเซลล์ใน Excel

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2024-11-05

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

เชื่อมโยงตัวกรองตาราง Pivot กับเซลล์บางเซลล์ด้วยรหัส VBA


เชื่อมโยงตัวกรองตาราง Pivot กับเซลล์บางเซลล์ด้วยรหัส VBA

ตาราง Pivot ที่คุณจะเชื่อมโยงฟังก์ชันตัวกรองกับค่าของเซลล์ควรมีฟิลด์ตัวกรอง (ชื่อของฟิลด์ตัวกรองมีบทบาทสำคัญในโค้ด VBA ต่อไปนี้)

ใช้ตาราง Pivot ด้านล่างเป็นตัวอย่างฟิลด์ตัวกรองในตาราง Pivot เรียกว่า Categoryและมีสองค่า "รายจ่าย"และ"การขาย”. หลังจากเชื่อมโยงตัวกรองตาราง Pivot กับเซลล์แล้วค่าของเซลล์ที่คุณจะนำไปใช้กับตัวกรองตาราง Pivot ควรเป็น "ค่าใช้จ่าย" และ "ยอดขาย"

เชื่อมโยงตัวกรอง Pivot Table กับเซลล์บางเซลล์

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

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")) 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

หมายเหตุ : :

1) "Sheet1” คือชื่อของแผ่นงานที่เปิด
2) "PivotTable 2” คือชื่อของ Pivot Table ที่คุณจะเชื่อมโยงฟังก์ชันตัวกรองกับเซลล์
3) ฟิลด์การกรองในตาราง Pivot เรียกว่า "Category".
4) เซลล์ที่อ้างอิงคือ H6 คุณสามารถเปลี่ยนค่าตัวแปรเหล่านี้ตามความต้องการของคุณ

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

ตอนนี้ฟังก์ชันตัวกรองของ Pivot Table เชื่อมโยงกับเซลล์ H6

รีเฟรชเซลล์ H6 จากนั้นข้อมูลที่เกี่ยวข้องใน Pivot Table จะถูกกรองออกตามค่าที่มีอยู่ ดูภาพหน้าจอ:

รีเฟรชเซลล์ จากนั้นข้อมูลที่เกี่ยวข้องจะถูกกรองออกตามค่าที่มีอยู่

เมื่อเปลี่ยนค่าเซลล์ข้อมูลที่กรองแล้วในตาราง Pivot จะเปลี่ยนโดยอัตโนมัติ ดูภาพหน้าจอ:

เมื่อเปลี่ยนค่าเซลล์ ข้อมูลที่กรองใน Pivot Table จะถูกเปลี่ยนแปลงโดยอัตโนมัติ

ภาพหน้าจอของ kutools สำหรับ excel ai

ปลดล็อก Excel Magic ด้วย Kutools AI

  • การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
  • สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
  • การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
  • การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
  • การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ
ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!