انتقل إلى المحتوى الرئيسي

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

عند إنشاء جدول محوري في ورقة عمل ، بعد سحب الحقول إلى ملف القيم قائمة في قائمة حقول PivotTable، قد تحصل على كل نفس العد التنازلي تعمل كما هو موضح في لقطة الشاشة التالية. لكن الآن ، أنت تريد مجموع من وظيفة ليحل محل العد التنازلي للوظيفة مرة واحدة ، كيف يمكنك تغيير حساب عدة حقول جدول محوري مرة واحدة في Excel؟

doc-change-field-setting -1

قم بتغيير إعدادات الحقل في الجدول المحوري يدويًا واحدًا تلو الآخر

قم بتغيير إعدادات الحقول المتعددة في الجدول المحوري باستخدام كود VBA


السهم الأزرق الحق فقاعة قم بتغيير إعدادات الحقل في الجدول المحوري يدويًا واحدًا تلو الآخر

في Excel ، يمكنك تغيير حساب إعدادات الحقل عن طريق تغيير الوظيفة واحدة تلو الأخرى في ملف إعدادات حقل القيمة الحوار ، يرجى القيام بذلك على النحو التالي:

1. حدد حقلاً في منطقة القيم التي تريد تغيير وظيفة التلخيص الخاصة بها في الجدول المحوري ، وانقر بزر الماوس الأيمن للاختيار إعدادات حقل القيمة، انظر لقطة الشاشة:

doc-change-field-setting -1

2. ثم في إعدادات حقل القيمة في مربع الحوار ، حدد نوعًا واحدًا من الحساب الذي تريد استخدامه ضمن تلخيص القيمة من خلال علامة التبويب ، انظر لقطة الشاشة:

doc-change-field-setting -1

3. ثم انقر فوق OK لإغلاق مربع الحوار هذا ، ويمكنك رؤية تغيير وظيفة العد إلى وظيفة المجموع ، انظر الصورة:

doc-change-field-setting -1

4. كرر الخطوات المذكورة أعلاه لتغيير إعدادات حساب الحقول الأخرى واحدًا تلو الآخر.

ملحوظة: يمكنك أيضًا تغيير إعدادات الحقل بالنقر بزر الماوس الأيمن فوق خلية حقل واحدة واختيار تلخيص القيم من خلال وحدد عملية حسابية واحدة تريدها من قوائم السياق.

doc-change-field-setting -1


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

doc-change-field-setting -1
-1
doc-change-field-setting -6

ملاحظات: في الكود أعلاه ، يمكنك تغيير وظيفة Sum إلى أي حسابات أخرى ، مثل المتوسط ​​، الحد الأقصى ، الحد الأدنى كما تريد. تحتاج فقط إلى تغيير المجموع في هذه البرامج النصية: مجموعة فرعية عمومية DataFieldsToSum () و الوظيفة = xlSum إلى وظائف أخرى.

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (29)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Brilliant, thanks, this worked perfectly and save much time
This comment was minimized by the moderator on the site
Muchas gracias por el aporte
This comment was minimized by the moderator on the site
Hi!

I'm wondering how to use the code for Count Numbers instead of count, I've tried changing the code to Count Numbers and CountNumbers but netiher works..

Help is appreciated :)
This comment was minimized by the moderator on the site
Hello, Sara,
Sorry for that your Count Numbers field can't be changed in the code, so, you need to change the field one by one with the first method in this article.
Thank you!
This comment was minimized by the moderator on the site
Thank you so much, this VBA code works amazing. 
This comment was minimized by the moderator on the site
I got the error" Unable to get the PivotTable property of the range class". Do you know hoe can I fix this?
This comment was minimized by the moderator on the site
I got this error, "Unable to get the Pivot Table property of the Range class". Do you know how I can fix this?
This comment was minimized by the moderator on the site
Thank you so much!!! That is sooo helpful and brilliant! Saved me soooo much time
This comment was minimized by the moderator on the site
Thank you so much for the VBA code, I LOVE it!
This comment was minimized by the moderator on the site
Thank you. The code worked beautifully and saved me a lot of wasted time and energy!
This comment was minimized by the moderator on the site
I've used the VBA solution with great success in the past, but it doesn't work with the data model. Do you know if there is a solution for that?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations