كيف يمكن سرد جميع الجداول المحورية من مصنف؟
افترض أن لديك مصنفًا كبيرًا يحتوي على عدة جداول بيانات محورية، وتريد الآن سرد جميع الجداول المحورية الموجودة فيه—هل هذا ممكن؟ بالطبع! سيقوم كود 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل