كيف يتم تحديث Pivot Table تلقائيًا في Excel؟

عادة ، عندما نقوم بتحديث البيانات المصدر لجدول محوري ، لن يتم تحديث الجدول المحوري حتى نضغط عليه حلل > تحديث يدويا. سيكون هذا مملًا جدًا إذا ظل الجدول المحوري في ورقة عمل أخرى وقد تنسى تحديثه. هنا ، ستقدم هذه المقالة VBA لتحديث جدول محوري تلقائيًا في Excel.

قم تلقائيًا بتحديث Pivot Table بواسطة VBA

قم تلقائيًا بتحديث Pivot Table بواسطة VBA

الرجاء اتباع الخطوات التالية لتطبيق VBA لتحديث الجدول المحوري المحدد تلقائيًا في Excel.

1. في شريط علامة تبويب الورقة ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تحتوي على بيانات المصدر ، وحدد عرض الرمز في قائمة السياق. انظر لقطة الشاشة:

2. في نافذة Microsoft Visual Basic for Applications المفتوحة ، يرجى لصق الرمز.

فبا: التحديث التلقائي للجدول المحوري المحدد

Private Sub Worksheet_Change(ByVal Target As Range)
 Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
 End Sub

الملاحظات:
(1) في كود أوراق العمل ("اسم الورقة").الجداول المحورية("اسم PivotTable") .PivotCache.Refresh ، يرجى استبدال اسم الورقة باسم الورقة التي تحتوي على الجدول المحوري المحدد ، واستبدل ملف اسم PivotTable باسم الجدول المحوري المحدد.
(2) حدد أي خلية في الجدول المحوري المحدد ، وسوف تحصل على اسمها على حلل علامة التبويب (أو مزيد من الخيارات التبويب). انظر لقطة الشاشة:

3. احفظ الكود.

من الآن فصاعدًا ، عند تغيير البيانات في البيانات المصدر ، سيتم تحديث الجدول المحوري المحدد تلقائيًا.

اجمع بسهولة أوراق عمل / مصنفات / ملفات CSV في ورقة عمل / مصنف واحد

قد يكون من الشاق دمج عشرات الأوراق من مصنفات مختلفة في ورقة واحدة. ولكن مع Kutools for Excel's الجمع بين (أوراق العمل والمصنفات) يمكنك إنجاز ذلك بعدة نقرات فقط!

احصل على نسخة تجريبية مجانية كاملة الميزات لمدة 30 يومًا الآن!

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

🤖	مساعد 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 (1)

No ratings yet. Be the first to rate!

César Augusto Betanc

about 6 years ago

#23752

This comment was minimized by the moderator on the site

If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

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