نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تصفية Pivot table استنادًا إلى قيمة خلية محددة في Excel؟

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

تصفية Pivot Table استناداً إلى قيمة خلية محددة باستخدام رمز VBA


حدد الصفوف بأكملها بسهولة استنادا إلى قيمة الخلية في عمود سيرتيان:

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

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تنزيل النسخة التجريبية المجانية الآن!


تصفية Pivot Table استناداً إلى قيمة خلية محددة باستخدام رمز VBA

يمكن أن يساعدك رمز VBA التالي على تصفية Pivot Table استنادًا إلى قيمة خلية محددة في Excel. يرجى القيام بما يلي.

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

2. يحتوي فتح ورقة العمل على Pivot Table الذي ستقوم بتصفية حسب قيمة الخلية. ثم انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد "عرض الرمز" من قائمة السياق. انظر لقطة للشاشة:

3. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، نسخ أدناه رمز VBA في إطار التعليمات البرمجية.

رمز VBA: Filter Pivot Table استنادًا إلى قيمة الخلية

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

الملاحظات: في التعليمات البرمجية،

شنومكس) "Sheet1"هو اسم ورقة العمل.

شنومكس) "PivotTable2"هو اسم Pivot Table.

3) يسمى حقل التصفية في الجدول المحوري "اختر الفئةالمناسبة لإعلانك".

4) يتم وضع القيمة التي تريد تصفيتها في الجدول المحوري في الخلية H6.

يمكنك تغيير قيم المتغير أعلاه حسب الحاجة

4. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

ثم يتم تصفية Pivot Table استنادًا إلى القيمة الموجودة في الخلية H6 على النحو الموضح أدناه:

يمكنك تغيير قيمة الخلية للآخرين حسب حاجتك.

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


تبويب أوفيس - الاستعراض المبوب ، وتحرير ، وإدارة المصنفات في Excel:

يقوم Office Tab بدمج الواجهة المبوبة كما تظهر في متصفحات الويب مثل Google Chrome والإصدارات الجديدة من Internet Explorer و Firefox إلى Microsoft Excel. وستكون أداة لتوفير الوقت ولا يمكن استبدالها في عملك. انظر أدناه العرض التوضيحي:

انقر على نسخة تجريبية مجانية من تبويب أوفيس!

تبويب Office لـ Excel


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



أدوات الإنتاجية الموصى بها لبرنامج Excel

Kutools for Excel يساعدك دائمًا في إنهاء العمل قبل الوقت ، وتبرز من الحشد

  • أكثر من الميزات المتقدمة القوية 300 ، المصممة لسيناريوهات عمل 1500 ، مما يزيد الإنتاجية بنسبة 70 ، يمنحك المزيد من الوقت لرعاية الأسرة والاستمتاع بالحياة.
  • لم تعد بحاجة إلى حفظ الصيغ ورموز VBA ، امنح عقلك قسطًا من الراحة من الآن فصاعدًا.
  • كن خبيرًا في Excel في دقائق 3 ، يمكن إجراء العمليات المعقدة والمتكررة في ثوانٍ ،
  • قلل من آلاف عمليات لوحة المفاتيح والماوس كل يوم ، قل وداعًا للأمراض المهنية الآن.
  • 110,000 من الأشخاص المؤثرين للغاية واختيار 300 + للشركات ذات الشهرة العالمية.
  • 60-day ميزات كاملة تجريبية مجانية. 60 يوم استعادة الاموال الضمانات. سنوات 2 من الترقية المجانية والدعم.

يجلب الاستعراض المبوب والتحرير إلى Microsoft Office ، أقوى بكثير من علامات تبويب المتصفح

  • تم تصميم Office Tab لتطبيقات Word و Excel و PowerPoint وتطبيقات Office الأخرى: Publisher و Access و Visio و Project.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Justin · 10 months ago
    How would you do this with a report filter that has a hierarchy?

  • To post as a guest, your comment is unpublished.
    Daniel · 11 months ago
    Using this code (updated for my variables of course), when changing the field, the filter changes momentarily to the correct one, and then clears itself almost immediately. Trying to figure out why it's doing this (wondering if it has something to do with the ClearAllFilters at the end of the sub?)