كيفية تغيير إعدادات الحقول المتعددة في جدول محوري؟

عندما تقوم بإنشاء جدول محوري في ورقة عمل، وبعد سحب الحقول إلى قائمة القيم في قائمة حقول الجدول المحوري، قد تحصل على جميع الدوال الخاصة بالعد كما هو موضح في لقطة الشاشة التالية. ولكن الآن، إذا كنت تريد استبدال دالة العد بعملية الجمع دفعة واحدة، كيف يمكنك تغيير حساب الحقول المتعددة في الجدول المحوري مرة واحدة في 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 إلى وظائف أخرى.