كيفية تصفية الجدول المحوري بناءً على قيمة خلية محددة في إكسيل؟
عادة ، نقوم بتصفية البيانات في Pivot Table عن طريق تحديد العناصر في القائمة المنسدلة كما هو موضح في لقطة الشاشة أدناه. في الواقع ، يمكنك تصفية جدول محوري استنادًا إلى القيمة الموجودة في خلية معينة. ستساعدك طريقة VBA في هذه المقالة على حل المشكلة.
تصفية الجدول المحوري استنادًا إلى قيمة خلية محددة برمز VBA
تصفية الجدول المحوري استنادًا إلى قيمة خلية محددة برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في تصفية Pivot Table استنادًا إلى قيمة خلية معينة في Excel. الرجاء القيام بما يلي.
1. الرجاء إدخال قيمة ستقوم بتصفية Pivot Table بناءً عليها في خلية مسبقًا (هنا أحدد الخلية H6).
2. افتح ورقة العمل التي تحتوي على Pivot Table الذي ستقوم بترشيحه حسب قيمة الخلية. ثم انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
3. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ رمز 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. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
ثم يتم تصفية Pivot Table بناءً على القيمة الموجودة في الخلية H6 كما هو موضح أدناه لقطة الشاشة:
يمكنك تغيير قيمة الخلية للآخرين حسب حاجتك.
ملاحظات: يجب أن تتطابق القيم التي تكتبها في الخلية H6 تمامًا مع القيم الموجودة في القائمة المنسدلة للفئة بالجدول المحوري.
مقالات ذات صلة:
- كيفية دمج أوراق متعددة في جدول محوري في إكسيل؟
- كيفية إنشاء جدول محوري من ملف نصي في إكسيل؟
- كيفية ربط مرشح Pivot Table بخلية معينة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!