تصفية متعددة

[خليل خليل داماس]

السلام عليكم:

لدي جدول فيه أسماء الطلاب و العدد كبير , حوالي الألف . و لدي ال Auto id لكل طالب .
السؤال : 
هل يمكن إيجاد مجموعة من القيم , لل  Auto id دفعة واحدة . - مثلاً 7 و 33 و 35 و 44 و 67 و 209 و .... الخ .
ولكم جزيل الشكر

ملاحظة , في الأكسس , يمكن ذلك . أنا اكتب القيم , و بينها عبارة or 

[أبو العاصم]

بص يا أخى هناك كود فلتر ان بليس

لو أحد الأخوة يضعه لك

أو أبحث عنه ثم أضعه لك 

لكن إرفق الملف يكون أفضل تقبل تحياتى 

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

أخي الكريم ارفق ملف ووضح المطلوب

[خليل خليل داماس]

أشكركم على الرد ( أبو العاصم و ياسر خليل أبو البراء ) , و بعتذر على تأخّري .

في هذا الملف , أريد تصفية لعدة أسماء من خلال ال auto id , يعني أريد فرضاً . الرقم 9 و11و 13و 19 و 22 و 23 و 35 و 66 و 71 و 98 و 99 . و لكن دفعة واحدة .
و ليس إسم إسم .  و شكرا

http://www.4shared.com/file/Jm9Iq2pqba/Book1.html

[خليل خليل داماس]

العمود الأول على اليسار هو ال auto id

http://www.4shared.com/file/c3hpV463ba/Book1__1_.html?

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

يرجى رفع الملف بعد ضغطه ببرنامج ضغط على سيرفر المنتدى

تقبل تحياتي

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

أخي الفاضل سولان سولان

إليك الملف التالي عله يفي بالغرض

Sub FilterMulipleCriteria()
'يقوم الكود بعمل تصفية بناءً على عدة شروط ، ووضعت الشروط على شكل مصفوفة
'---------------------------------------------------------------------
'[Sheet1] بدء التعامل مع ورقة العمل
    With Sheets("Sheet1")
'إلغاء التصفية في ورقة العمل
        .AutoFilterMode = False
'التصفية في النطاق المحدد بناءً على الشروط الموضوعة في مصفوفة
        .Range("A1:C1").AutoFilter Field:=1, Criteria1:=Array("9", "11", "13", "19", "22", "23", "35", "66", "71", "98", "99"), Operator:=xlFilterValues
    End With
End Sub

تقبل تحياتي

Filter By Muliple Criteria YasserKhalil.rar

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

أخي الفاضل يرجى تغيير اسم الظهور للغة العربية

لم يروقني الحل الأول بشكل كبير حيث لو أنك أردت أن تضيف المزيد من الشروط سيكون أمراً مرهقاً .. فخطرت لي فكرة أنه يمكن وضع قيم الشروط في عمود ثم تحويل القيم لمصفوفة والتعامل معها في الكود

إليك الكود والإصدار الثاني

Sub FilterMulipleCriteria()
'يقوم الكود بعمل تصفية بناءً على عدة شروط ، ووضعت الشروط على شكل مصفوفة
'---------------------------------------------------------------------
    Dim Crit As Variant
'تعيين مصفوفة الشروط من القيم في العمود السابع
    Crit = Split(Join(Application.Transpose(Range("G2:G" & Cells(Rows.Count, 7).End(3).Row))))
'[Sheet1] بدء التعامل مع ورقة العمل
    With Sheets("Sheet1")
'إلغاء التصفية في ورقة العمل
        .AutoFilterMode = False
'التصفية في النطاق المحدد بناءً على الشروط الموضوعة في مصفوفة
        .Range("A1:C1").AutoFilter Field:=1, Criteria1:=Crit, Operator:=xlFilterValues
    End With
End Sub

تقبل تحياتي

Filter By Muliple Criteria YasserKhalil V2.rar

[خليل خليل داماس]

ألف شكر لإهتمامكم و جزاكم الله كلّ خير 
سأرفع الملف كما طلبه مني الأخ ياسر خليل أبو البراء و بشكل مضغوط :

Book1.rar

[خليل خليل داماس]

طبعاً أنا أخذت الفكرة من اكسس و لم تنجح معي في اكسل .
في اكسس :
من 
home - sort and filter - advanced - filter by form    الصورة في المرفقات . 
و نختار القيم التي نريد و بينها حرف العطف : or 

ثم ننقر على Toggle Filter .

 

تم تعديل مايو 27, 2015 بواسطه solansolan

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

الأخ الفاضل

يرجى تغيير اسم الظهور للغة العربية

 

هل اطلعت على المشاركة رقم 7 ورقم 8 ؟ وهل أدت المطلوب أم لا ؟

لم تشر إلى ذلك في ردودك في المشاركتين رقم 9 و 10

تقبل تحياتي

[خليل خليل داماس]

ألف شكر لإهتمامك . و بعتذر منك جداً ( ياسر خليل ) , لم تؤدّ المطلوب ( المشاركات 7 و 8 ) 

ببساطة :

عندي قائمة لأسماء الأولاد . و كل تلميذ له ( Auto ID ) , يعني ترقيم تلقائي من الأكسس . و لكن في الأكسل . أريد البحث عن مجموعة من التلاميذ , و كل تلميذ له ID .
يعني ان أجد هؤلاء التلاميذ . بدفعة واحدة . كما انا أشرت طريقة التصفية في اكسس و بدفعة واحدة .

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

الكود يؤدي ما تقول أخي الحبيب خليل

إذا لم يكن الكود يؤدي المطلوب يرجى إرفاق النتائج المتوقعة

[خليل خليل داماس]

شكرأ لإهتمامك . و عذّبتك معي . انا نصبت الأوفيس 2013  و مشي الحال .

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

تمام الحمد لله أن تم المطلوب على خير

 

ومبروك عليك نسخة 2013 عقبال باقي الأعضاء وخصوصاً اللي لسه ماسكين في 2003

 

بس ايه هي النسخة اللي مشتغلش عليها الكود؟

 

وأخيراً يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب

تقبل تحياتي

[أبو العاصم]

السيد الجليل ياسر بن خليل

هل ممكن تنفيذ التالى

مصفوفة الشروط تكون فى الصفحة 2 وهى النطاق من A50 : A5 بشرط الظاهر من الفلتر

اى ان نطاق الشروط قمت بفلترته فى الصفحة 2 واريد فلترتة شروطه فى الصفحة 1 

مهم جدان :(

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

أخي الفاضل أبو العاصم

إليك الملف التالي عله يكون المطوب (وإن كنت أفضل أن تكون الموضوعات مستقلة )

Sub FilterMulipleCriteria()
    Dim Crit As Variant
    Dim WkRg  As Range
    
    With Sheets("Sheet2")
        Set WkRg = .Range("A5:A" & .Cells(.Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeVisible)
        Dim F As Range
        Dim I
        ReDim Crit(1 To WkRg.Cells.Count)
        I = 1
        For Each F In WkRg
            Crit(I) = Format(F, "@")
            I = I + 1
        Next
    End With
    
    With Sheets("Sheet1")
        .AutoFilterMode = False
        .Range("A1:C1").AutoFilter Field:=1, Criteria1:=Crit, Operator:=xlFilterValues
    End With
End Sub

تقبل تحياتي

Filter By Muliple Criteria Based On Visible Cells Only.rar