كيفية سرد جميع جداول البيانات المحورية من مصنف؟
لنفترض أن لديك مصنفاً كبيراً يحتوي على العديد من الجداول المحورية، والآن تريد سرد جميع الجداول المحورية في هذا المصنف، هل هذا ممكن؟ بالطبع، ستساعدك كود 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 لتشغيل هذا الكود، سيتم سرد جميع أسماء الجداول المحورية، نطاق بيانات المصدر، اسم ورقة العمل والخصائص الأخرى في ورقة عمل جديدة تُوضع في مقدمة ورقة العمل النشطة كما هو موضح في لقطة الشاشة التالية:
مقالات ذات صلة:
كيفية التحقق مما إذا كان هناك جدول محوري موجود في مصنف؟
كيفية إضافة حقول متعددة إلى جدول محوري؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد