จะแสดงรายการตาราง Pivot ทั้งหมดจากสมุดงานได้อย่างไร?
สมมติว่าคุณมีสมุดงานขนาดใหญ่ซึ่งมีตาราง Pivot หลายตารางตอนนี้คุณต้องการแสดงรายการตาราง Pivot ทั้งหมดในสมุดงานนี้เป็นไปได้หรือไม่? แน่นอนรหัส VBA ต่อไปนี้ในบทความนี้จะช่วยคุณได้ หากต้องการทราบรายละเอียดเพิ่มเติมโปรดอ่านบทความด้านล่าง
แสดงรายการตาราง Pivot ทั้งหมดจากสมุดงานด้วยรหัส VBA
แสดงรายการตาราง Pivot ทั้งหมดจากสมุดงานด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยให้คุณแสดงชื่อตาราง Pivot ทั้งหมดพร้อมกับแอตทริบิวต์เช่นช่วงข้อมูลต้นทางชื่อแผ่นงานวันที่รีเฟรชเป็นต้น
1. เปิดสมุดงานของคุณที่คุณต้องการแสดงรายการตาราง Pivot ทั้งหมด
2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.
3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: แสดงรายการตาราง Pivot ทั้งหมดจากสมุดงาน
Sub ListPivotsInfor()
'Update 20141112
Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
.Cells(I, 1) = "Name"
.Cells(I, 2) = "Source"
.Cells(I, 3) = "Refreshed by"
.Cells(I, 4) = "Refreshed"
.Cells(I, 5) = "Sheet"
.Cells(I, 6) = "Location"
For Each St In ActiveWorkbook.Worksheets
For Each pt In St.PivotTables
I = I + 1
.Cells(I, 1).Value = pt.Name
.Cells(I, 2).Value = pt.SourceData
.Cells(I, 3).Value = pt.RefreshName
.Cells(I, 4).Value = pt.RefreshDate
.Cells(I, 5).Value = St.Name
.Cells(I, 6).Value = pt.TableRange1.Address
Next
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub
4. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้ชื่อตาราง Pivot ช่วงข้อมูลต้นทางชื่อแผ่นงานและแอตทริบิวต์อื่น ๆ ทั้งหมดจะแสดงรายการในแผ่นงานใหม่ซึ่งวางไว้ด้านหน้าแผ่นงานที่ใช้งานอยู่ดังภาพหน้าจอต่อไปนี้:
บทความที่เกี่ยวข้อง:
วิธีตรวจสอบว่ามีตาราง Pivot อยู่ในสมุดงานหรือไม่?
จะเพิ่มหลายช่องลงในตาราง Pivot ได้อย่างไร?
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
