كيف يمكن تغيير إعدادات متعددة للحقول في جدول محوري؟
عند إنشائك جدول بيانات محوري في ورقة عمل، وبعد سحب الحقول إلى قائمةالقيمفيقائمة حقول PivotTable، قد تحصل على دالةالعدنفسها لجميع الحقول، كما هو موضح في لقطة الشاشة التالية. ولكنك الآن تريد استبدال دالةالعدبدالةالمجموعدفعة واحدة. فكيف يمكنك تغيير حسابات عدة حقول في جدول البيانات المحوري دفعة واحدة في Excel؟
تغيير إعدادات الحقول في جدول بيانات محوري يدويًا واحدًا تلو الآخر
تغيير عدة إعدادات الحقول في جدول بيانات محوري باستخدام كود VBA
تغيير إعدادات الحقول في جدول بيانات محوري يدويًا واحدًا تلو الآخر
في Excel، يمكنك تغيير حساب إعدادات الحقول عن طريق تغيير الدالة واحدة تلو الأخرى في مربع حوارقيمة إعدادات الحقول، يُرجى اتباع الخطوات التالية:
1. حدد الحقل في منطقة القيم الذي تريد تغيير دالة الملخص الخاصة به في الجدول المحوري، ثم انقر بزر الماوس الأيمن واخترقيمة إعدادات الحقول. انظر لقطة الشاشة:
2. بعد ذلك، في مربع حوارقيمة إعدادات الحقول، اختر نوع الحساب الذي ترغب في استخدامه ضمن علامة التبويبتلخيص القيمة حسب. انظر لقطة الشاشة:
3. ثم انقر علىموافقلإغلاق هذا المربع، وستلاحظ أن دالة العد قد تغيّرت إلى دالة المجموع، كما في لقطة الشاشة التالية:
4. كرّر الخطوات أعلاه لتغيير إعدادات الحساب للحقول الأخرى واحدةً تلو الأخرى.
ملاحظة:يمكنك أيضًا تغيير إعدادات الحقول بالنقر بزر الماوس الأيمن على خلية أحد الحقول، ثم اختيارتلخيص القيم حسب، وتحديد الحساب المطلوب من القوائم السياقية.
تغيير عدة إعدادات الحقول في جدول بيانات محوري باستخدام كود VBA
ستكون الطريقة السابقة مرهقة وتستغرق وقتًا طويلاً إذا كان لديك العديد من حسابات الحقول التي تحتاج إلى تعديل. لحسن الحظ، يمكنني الآن تزويدك بكود يُمكّنك من تغيير إعدادات عدة حقول دفعة واحدة!
1. انقر على أي خلية داخل جدولك المحوري.
2. اضغط مع الاستمرار على مفتاحيALT + F11، وسيفتح لك ذلك نافذةMicrosoft Visual Basic for Applications.
3. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي فينافذة الوحدة النمطية.
كود 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 لتنفيذ هذا الكود، وسيتم تحويل جميع إعدادات الحقول في الجدول المحوري المحدد إلى الحساب المطلوب دفعة واحدة. انظر لقطات الشاشة:
|
 |
 |
ملاحظة: في الكود أعلاه، يمكنك تغيير دالة المجموع ()Sum) إلى أي دالة حسابية أخرى مثل المتوسط (Average) أو القيمة العظمى (Max) أو الصغرى (Min) حسب رغبتك. كل ما عليك فعله هو استبدال كلمة «Sum» في هذين السطرين: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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل