كيف تسرد كل الجداول المحورية من مصنف؟
لنفترض أن لديك مصنفًا كبيرًا يحتوي على جداول محورية متعددة ، الآن ، فأنت تريد سرد جميع الجداول المحورية في هذا المصنف ، هل هذا ممكن؟ بالطبع ، فإن كود فبا التالي في هذه المقالة سيفيدك. لمعرفة المزيد من التفاصيل ، يرجى قراءة المقال أدناه.
سرد جميع الجداول المحورية من مصنف برمز VBA
سرد جميع الجداول المحورية من مصنف برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على سرد كافة أسماء الجدول المحوري مع سماتها ، مثل نطاق البيانات المصدر واسم ورقة العمل والتاريخ المحدث وما إلى ذلك.
1. افتح المصنف الذي تريده لسرد كل الجداول المحورية.
2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
رمز فبا: سرد جميع الجداول المحورية من مصنف
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 for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!