كيفية تغيير إعدادات الحقول المتعددة في جدول محوري؟
عندما تقوم بإنشاء جدول محوري في ورقة عمل، وبعد سحب الحقول إلى قائمة القيم في قائمة حقول الجدول المحوري، قد تحصل على جميع الدوال الخاصة بالعد كما هو موضح في لقطة الشاشة التالية. ولكن الآن، إذا كنت تريد استبدال دالة العد بعملية الجمع دفعة واحدة، كيف يمكنك تغيير حساب الحقول المتعددة في الجدول المحوري مرة واحدة في Excel؟
تغيير إعدادات الحقل في الجدول المحوري يدويًا واحدًا تلو الآخر
تغيير إعدادات الحقول المتعددة في الجدول المحوري باستخدام كود VBA
تغيير إعدادات الحقل في الجدول المحوري يدويًا واحدًا تلو الآخر
في Excel، يمكنك تغيير حساب إعدادات الحقل عن طريق تغيير الدالة واحدة تلو الأخرى في مربع الحوار إعدادات حقل القيمة، يرجى القيام بما يلي:
1. حدد حقلًا في منطقة القيم الذي تريد تغيير دالة الملخص له في الجدول المحوري، ثم انقر بزر الماوس الأيمن واختر إعدادات حقل القيمة، انظر لقطة الشاشة:
2. بعد ذلك، في مربع الحوار إعدادات حقل القيمة، حدد نوع الحساب الذي تريد استخدامه ضمن علامة التبويب تلخيص القيم بواسطة، انظر لقطة الشاشة:
3. ثم انقر فوق موافق لإغلاق هذا الحوار، ويمكنك رؤية أن دالة العد قد تغيرت إلى دالة الجمع، انظر لقطة الشاشة:
4. كرر الخطوات أعلاه لتغيير إعدادات حساب الحقول الأخرى واحدًا تلو الآخر.
ملاحظة: يمكنك أيضًا تغيير إعدادات الحقل عن طريق النقر بزر الماوس الأيمن على خلية حقل واختيار تلخيص القيم بواسطة واختيار الحساب الذي تحتاجه من القوائم السياقية.
تغيير إعدادات الحقول المتعددة في الجدول المحوري باستخدام كود VBA
الطريقة المذكورة أعلاه ستستغرق وقتًا وتكون مملة إذا كان هناك العديد من حسابات الحقول التي يجب تغييرها، هنا يمكنني أن أقدم لك كودًا لتغيير إعدادات الحقول المتعددة في نفس الوقت.
1. انقر فوق أي خلية في جدولك المحوري.
2. اضغط مع الاستمرار على مفتاحي ALT + F11، وسيفتح نافذة Microsoft Visual Basic for Applications.
3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود VBA: تغيير إعدادات الحقول المتعددة في الجدول المحوري
Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
.ManualUpdate = True
For Each xPF In .DataFields
With xPF
.Function = xlSum
.NumberFormat = "#,##0"
End With
Next
.ManualUpdate = False
End With
End Sub
4. ثم اضغط على مفتاح F5 لتنفيذ هذا الكود، وستتم تغيير جميع إعدادات الحقول في الجدول المحوري المحدد الخاص بك إلى الحساب الذي تحتاجه دفعة واحدة، انظر لقطات الشاشة:
|
 |
 |
ملاحظة: في الكود أعلاه، يمكنك تغيير دالة الجمع إلى أي حسابات أخرى، مثل المتوسط، الحد الأقصى، الحد الأدنى كما تريد. تحتاج فقط إلى تغيير الجمع في هذه البرامج النصية: Public Sub SetDataFieldsToSum() و .Function = xlSum إلى وظائف أخرى.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد