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