كيفية تصفية جدول محوري بناءً على قيمة خلية محددة في Excel؟

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

تصفية الجدول المحوري بناءً على قيمة خلية محددة باستخدام كود VBA

تصفية الجدول المحوري بناءً على قيمة خلية محددة باستخدام كود VBA

يمكن أن يساعدك الكود التالي لـ VBA في تصفية جدول محوري ديناميكيًا بناءً على قيمة خلية محددة في Excel. يرجى اتباع الخطوات التالية:

1. الرجاء إدخال القيمة التي ستصفّي الجدول المحوري بناءً عليها مسبقًا في خلية (اخترت هنا الخلية H6).

2. افتح ورقة العمل التي تحتوي على الجدول المحوري الذي ستصفّيه بناءً على قيمة الخلية. ثم انقر بزر الماوس الأيمن على تبويب الورقة وحدد عرض الكود من قائمة السياق. انظر لقطة الشاشة:

3. في نافذة Microsoft Visual Basic for Applications التي ستظهر، قم بنسخ الكود التالي لـ VBA في نافذة الكود.

كود VBA: تصفية الجدول المحوري بناءً على قيمة الخلية

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

ملاحظات: في الكود،

4. اضغط على مفتاحي Alt + Q لإغلاق نافذة Microsoft Visual Basic for Applications.

سيقوم الجدول المحوري الآن بالتصفية ديناميكيًا بناءً على القيمة الموجودة في الخلية H6، كما هو موضح في لقطة الشاشة أدناه:

يمكنك تحديث قيمة الخلية لتطبيق تصفية مختلفة عند الحاجة.

ملاحظة: يجب أن تتطابق القيم التي تكتبها في الخلية H6 تمامًا مع القيم الموجودة في قائمة الفئات المنسدلة للجدول المحوري.

مقالات ذات صلة:

• كيفية دمج أوراق متعددة في جدول محوري في Excel؟
• كيفية إنشاء جدول محوري من ملف نصي في Excel؟
• كيفية ربط تصفية الجدول المحوري بخلية معينة في Excel؟