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

عادةً، لا يتم تحديث الجدول المحوري في ورقة العمل المحمية. في هذه المقالة، سأقدم لك كود VBA لتحديث الجدول المحوري من ورقة عمل محمية.

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

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

افتراضيًا، لا توجد طريقة مباشرة لكي تقوم بتحديث الجدول المحوري في ورقة العمل المحمية، ولكن باستخدام كود VBA التالي، يمكنك بسرعة تحديث جميع الجداول المحورية في ورقة العمل الحالية عند تغيير البيانات في الجدول الأصلي الخاص بك.

1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تحديث الجدول المحوري في ورقة العمل المحمية:

Sub RefreshAll()
'Updateby Extendoffice 20161109
    Dim xpt As PivotTable
    With ActiveSheet
        .Protect UserInterfaceOnly:=True
        For Each xpt In .PivotTables
            xpt.RefreshTable
        Next xpt
    End With
End Sub

3. وبعد ذلك اضغط على مفتاح F5 لتشغيل هذا الكود، إذا تغيرت بياناتك الأصلية، سيتم تحديث جميع الجداول المحورية في الورقة النشطة فورًا.