จะแสดงรายการตาราง 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 ได้อย่างไร?