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