كيفية تحديث pivottables في vba (مع أمثلة)

يمكنك استخدام الطرق التالية لتحديث الجداول المحورية في Excel باستخدام VBA:

الطريقة الأولى: تحديث جدول محوري محدد

 Sub RefreshPivotTable()
    Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub

سيقوم هذا الماكرو المحدد فقط بتحديث القيم الموجودة في الجدول المحوري المسمى PivotTable1 في الورقة 1 من المصنف.

الطريقة الثانية: تحديث كافة الجداول المحورية في المصنف

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

سيقوم هذا الماكرو الخاص بتحديث قيم كل جدول محوري في المصنف بأكمله.

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا.

مثال 1: تحديث جدول محوري محدد

لنفترض أننا أنشأنا جدولاً محوريًا من مجموعة من البيانات في Excel:

عندما نكون في علامة التبويب تحليل PivotTable على طول الشريط العلوي في Excel، يمكننا أن نرى في الزاوية اليسرى العليا أن PivotTable هذا يسمى PivotTable1 .

لنفترض أننا قمنا بتغيير القيمة الأخيرة لعمود النقاط في مجموعة البيانات من 22 إلى 200 :

يمكننا إنشاء الماكرو التالي لتحديث قيم هذا الجدول المحوري المحدد:

 Sub RefreshPivotTable()
    Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub

عندما نقوم بتشغيل هذا الماكرو، يتم تحديث قيم الجدول المحوري تلقائيًا:

المثال 2: قم بتحديث كافة الجداول المحورية في المصنف

لنفترض أننا أنشأنا جدولين محوريين من مجموعة بيانات في Excel:

يعرض الجدول المحوري الأول مجموع النقاط لكل فريق ولكل مركز.

ويبين الجدول المحوري الثاني متوسط النقاط حسب الفريق والمركز.

لنفترض أننا قمنا بتغيير القيمة الأخيرة لعمود النقاط في مجموعة البيانات من 22 إلى 200 .

يمكننا إنشاء الماكرو التالي لتحديث قيم جميع الجداول المحورية في المصنف بأكمله:

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

عندما نقوم بتشغيل هذا الماكرو، يتم تحديث القيم في كلا الجدولين المحوريين تلقائيًا:

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية إضافة القيم في النطاق
فبا: كيفية حساب متوسط قيمة النطاق
VBA: كيفية حساب القيم الفريدة في النطاق