كيف يمكن إضافة حقول متعددة إلى جدول بيانات محوري؟
عند إنشاء جدول محوري، نقوم عادةً بسحب الحقول واحدًا تلو الآخر إلى منطقة تسميات الصفوف أو القيم. فإذا كانت لديك قائمة طويلة من الحقول، فقد يكون من السهل إضافة بعضها كتسميات صفوف، لكن إضافة الباقي يدويًّا إلى منطقة القيم قد تستغرق وقتًا طويلاً. هل هناك طريقة سريعة لإضافة جميع الحقول المتبقية دفعة واحدة إلى منطقة القيم بنقرة واحدة فقط؟
إضافة حقول متعددة إلى منطقة القيم في جدول بيانات محوري باستخدام كود VBA
إضافة حقول متعددة إلى منطقة القيم في جدول بيانات محوري باستخدام كود VBA
لا يوفّر برنامج Excel حاليًا ميزة أصلية — مثل خانة اختيار «تحديد الكل» — في لوحة قائمة الحقول تتيح لك إضافة جميع الحقول المتبقية دفعة واحدة إلى منطقة القيم بنقرة واحدة فقط. ومع ذلك، يمكنك تنفيذ هذه المهمة بكفاءة باستخدام ماكرو VBA بسيط. ويُعدّ هذا الأسلوب مثاليًا خصوصًا إذا كنت بحاجة إلى تكرار هذه العملية بشكل متكرر أو عند التعامل مع عدد كبير من حقول البيانات. فيما يلي الخطوات التفصيلية والتحذيرات الضرورية لمساعدتك على تطبيق هذه الطريقة بنجاح:
1.بعد إنشاء جدول البيانات المحوري الخاص بك، أضف الحقول التي ترغب في استخدامها كتسميات صفوف عبر طريقة السحب والإفلات المعتادة. واترك الحقول الأخرى—التي تنوي تلخيصها كقيم—خارج قسماختيار الحقول لإضافتها إلى التقرير. للرجوع، راجع لقطة الشاشة التالية:
3. في نافذة VBA، انتقل إلىإدراج > وحدة برمجية (Module)لإنشاء وحدة جديدة. ثم انسخ والصق كود VBA التالي في نافذة الوحدة. للوصول إلى نافذة VBA، من شريط Excel، اخترDeveloper > Visual Basic. تأكد من أنك تعمل في المصنف الصحيح.
2. اضغطALT + F11 لفتح نافذة محررمايكروسوفت Visual Basic for Applications. أو يمكنك الوصول إليها بالنقر على
كود VBA: إضافة حقول متعددة إلى منطقة القيم في جدول بيانات محوري في ورقة العمل النشطة
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. بعد ذلك، اضغطF5 لتشغيل الماكرو، أو انقر على زر التشغيل (Run) في شريط أدوات محرر VBA. سيقوم الماكرو بمعالجة جميع الجداول المحورية الموجودة في ورقة العمل الحالية: فبالنسبة لكل جدول، سيضيف أي حقول لم تُضفها مسبقًا كتسميات صفوف أو أعمدة مباشرةً إلى منطقة القيم. ونتيجةً لذلك، سيظهر كل حقل بيانات متاح كقيمة ملخّصة في جدولك المحوري، مما يسهّل إجراء تحليلات شاملة بسرعة. راجع لقطة الشاشة التالية كمرجع:
ملاحظة: يُطبِّق هذا الماكرو التغييرات على جميع الجداول البيانات المحورية الموجودة في ورقة العمل النشطة عند تشغيله. إذا كان لديك عدة جداول بيانات محورية وترغب في تحديث واحد منها فقط، فكِّر في نقل ذلك الجدول المحوري مؤقتًا إلى ورقة منفصلة. قبل تشغيل أي كود VBA، تذكَّر دائمًا حفظ عملك، لأن الماكرو قد يؤدي إلى تغييرات لا يمكن التراجع عنها. علاوةً على ذلك، سيحاول هذا الماكرو إضافة جميع الحقول المتبقية—بما في ذلك تلك التي قد لا تكون مناسبة للتلخيص الرقمي—مما قد يؤدي إلى أخطاء في التلخيص أو نتائج غير ذات معنى للحقول التي تحتوي على بيانات غير رقمية.
مقالات ذات صلة:
كيف يمكن عرض قائمة بجميع الجداول المحورية من مصنف؟
كيف يمكنني التحقق من وجود جدول محوري في المصنف؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل