كيفية سرد جميع جداول البيانات المحورية من مصنف؟

لنفترض أن لديك مصنفاً كبيراً يحتوي على العديد من الجداول المحورية، والآن تريد سرد جميع الجداول المحورية في هذا المصنف، هل هذا ممكن؟ بالطبع، ستساعدك كود VBA التالي في هذه المقالة. لمعرفة المزيد من التفاصيل، يرجى قراءة المقال أدناه.

سرد جميع الجداول المحورية من مصنف باستخدام كود VBA

سرد جميع الجداول المحورية من مصنف باستخدام كود VBA

يمكن أن يساعدك الكود البرمجي VBA التالي في سرد أسماء جميع الجداول المحورية مع خصائصها، مثل نطاق بيانات المصدر، اسم ورقة العمل، تاريخ التحديث وما إلى ذلك.

1. افتح المصنف الذي تريد سرد جميع الجداول المحورية منه.

2. اضغط باستمرار على مفتاحي ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

3. انقر فوق إدراج > وحدة، ثم الصق الكود التالي في نافذة الوحدة.

كود VBA: سرد جميع الجداول المحورية من مصنف

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 لتشغيل هذا الكود، سيتم سرد جميع أسماء الجداول المحورية، نطاق بيانات المصدر، اسم ورقة العمل والخصائص الأخرى في ورقة عمل جديدة تُوضع في مقدمة ورقة العمل النشطة كما هو موضح في لقطة الشاشة التالية:

مقالات ذات صلة:

كيفية التحقق مما إذا كان هناك جدول محوري موجود في مصنف؟

كيفية إضافة حقول متعددة إلى جدول محوري؟