مساعدة فيلتر بشرط ما هو مكتوب في الخلية

[عبد الله بولنوار]

الشرح في الملف المرفق

 

اريد فلتر للجدول

 

 

و جزاكم الله كل خير

مشترك2 (تم الاسترداد).rar

[محمد الريفى]

اخى الحبيب هل جربت حل بعيدا عن المعادلات والاكواد وانما بامكانيات الاكسيل المتاحه فيه

وهو الجداول المحوريه pivottable

ستعجبك كثير لانها تحقق الفلتره  والتلخيص بدقة متناهيه وحجمهما حولى 77 كيلو بايت فقط

تقبل منى تحياتى

 

مشترك2 (تم الاسترداد).rar

[عبد الله بولنوار]

اهلا بيك اخي محمد الريفي

 

اول مرة اسمع بال الجداول المحوريه pivottable

 

وجدتها اكثر تعقيدا من الكود

 

كما اني اريد ان اعمل البرنامج بسيط يستخدمه غيري

 

خاصة انني احتاج الجدول لاستخراج منه قيم بدالة الفولكوب و غيراها

 

 

شكرا مرة أخرى

[ياسر خليل أبو البراء]

جرب أخي الحبيب الملف التالي

Filter Table.rar

[محمد الريفى]

اخى الحبيب حاسس انك زعلان منى من البيفوت تيبل ولكن اليك الحل  بحلول عديده

 

1- حل ب PIVOTTABLE

2-حل بالمعادلات (صفيف)

=IFERROR(INDEX(التلاميذ!$C$9:$I$699;SMALL(IF((التلاميذ!$C$9:$C$699='حل بالمعادلات'!$C$6)*(التلاميذ!$D$9:$D$699='حل بالمعادلات'!$C$7);ROW(التلاميذ!$C$9:$C$699)-8;"");ROW(A1));MATCH(C$8;التلاميذ!$C$8:$I$8;0));"")

3- حل بال  advanced filter

تقبل منى تحياتى

مشترك2 (تم الاسترداد).rar

[عبد الله بولنوار]

جرب أخي الحبيب الملف التالي

لا معلم يعني معلم

 

ربي يجازيك خير و يرضي عليك الوالدين

 

ولو أنني أوتيت كل بلاغة ****** وأفنيت بحر النطق في النظم والنثر

لما كنت بعد القول إلا مقصرا ***** ومعترفا بالعجز عن واجب الشكر

[عبد الله بولنوار]

اخى الحبيب حاسس انك زعلان منى من البيفوت تيبل ولكن اليك الحل  بحلول عديده

 

1- حل ب PIVOTTABLE

2-حل بالمعادلات (صفيف)

=IFERROR(INDEX(التلاميذ!$C$9:$I$699;SMALL(IF((التلاميذ!$C$9:$C$699='حل بالمعادلات'!$C$6)*(التلاميذ!$D$9:$D$699='حل بالمعادلات'!$C$7);ROW(التلاميذ!$C$9:$C$699)-8;"");ROW(A1));MATCH(C$8;التلاميذ!$C$8:$I$8;0));"")

3- حل بال  advanced filter

تقبل منى تحياتى

ليه الزعل

 

بالعكس فتحت لي المجال للبحث عن الخاصية الجديدة في الجداول لم اسمع بها

 

 

جزيت الجنة و في الدنيا ما تتمنى

 

و رضى الوالدين

[عبد الله بولنوار]

اذا ممكن

 

تكون عدم الفلترة اذا كانت الخليتين فارغتين c6 و c7

 

يختفي من الجدول الصفوف الفارغة فقط

 

مع وافر الشكر

[ياسر خليل أبو البراء]

عدل الكود  للتالي:

Sub FilterTable()
    If IsEmpty(Range("C6")) Or IsEmpty(Range("C7")) Then Exit Sub
    With Sheets("التلاميذ").ListObjects("الجدول2").Range
        .AutoFilter Field:=1, Criteria1:=Range("C6").Value
        .AutoFilter Field:=2, Criteria1:=Range("C7").Value
    End With
End Sub

[عبد الله بولنوار]

 

عدل الكود  للتالي:

Sub FilterTable()
    If IsEmpty(Range("C6")) Or IsEmpty(Range("C7")) Then Exit Sub
    With Sheets("التلاميذ").ListObjects("الجدول2").Range
        .AutoFilter Field:=1, Criteria1:=Range("C6").Value
        .AutoFilter Field:=2, Criteria1:=Range("C7").Value
    End With
End Sub

شكرا على الاهتمام و الرد

 

لكن الكود لم يعمل عدم الفلترة

[ياسر خليل أبو البراء]

أخي الحبيب لم أفهم مقصدك

أضفت في الكود شرط إذا كانت الخلايا C6 أو C7 فارغة يخرج من الإجراء الفرعي بدون تنفيذ

[عبد الله بولنوار]

 

أخي الحبيب لم أفهم مقصدك

أضفت في الكود شرط إذا كانت الخلايا C6 أو C7 فارغة يخرج من الإجراء الفرعي بدون تنفيذ

 

نعم هذا ما طلبت

 

عندما تكون الخلية c7 فارغة تخرج في الجدول كل الافواج يعني الغاء الفلترة

عندما تكون الخلية   c6  و c7  فارغة  يلغي الفلترة تماما

 

 

مبدئيا قمت بانشاء ازرار لاجراء العملية كما في المرفق

Filter Table.rar

[seao]

اذا كان القائمة نريد ان نفلتر اكثر من تحديد ليظهر فى الجدول هل يوجد طريقة لهذا !!!!!!!