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

or

كيفية ربط مرشح Pivot Table إلى خلية معينة في Excel؟

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

ربط مرشح Pivot Table إلى خلية معينة باستخدام رمز VBA


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

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

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

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

ربط مرشح Pivot Table إلى خلية معينة باستخدام رمز VBA

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

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

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

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

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

رمز VBA: مرشح مرشح 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 استنادًا إلى القيمة الحالية. انظر لقطة للشاشة:

عند تغيير قيمة الخلية ، سيتم تغيير البيانات التي تمت تصفيتها في Pivot Table تلقائيًا. انظر لقطة للشاشة:

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

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

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

تبويب Office لـ Excel


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


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 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.
    Gilmar Alves · 5 months ago
    Boa tarde...! Ótima publicação, como faço para utilizar o filtro em duas ou mais tabelas dinâmicas...? Agradeço desde já.

    Good afternoon...! Great publishing, how do I use the filter in two or more PivotTables ...? Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Jeri · 6 months ago
    what if i have more than 1 pivot table and to link to 1 cell. How shld i amend the code?
  • To post as a guest, your comment is unpublished.
    Sara · 1 years ago
    What if the cell that is linked to the Pivot Table, in this case H6, is on another worksheet? How does it change the code?
  • To post as a guest, your comment is unpublished.
    Frank · 1 years ago
    how to do it on mul;tiple field since in code there is only one target