text filter contains

[سيف النصر]

السلام عليكم ورحمة الله وبركاته
كعادتي بعد أن تعبت من البحث في جوجل وعدم موافقة نتائج البحث لما اريد (علشان ما بحبش اتعب حد معايا )
اعود لأطرح سؤالي في هذا المنتدى لعلمي ان الاجابة ستكون على الوجه المطلوب او زيادة
سؤالي هو
اريد كود يظهر لي المربع الحواري custom Auto filter كما يظهر بالصورة بمجرد الضغط على زر contains الموجود بالأعلى الى جوار العمود H علماُ بأني استخدم الفلتر في C7
واليكم الصورة لمزيد من التوضيح
ويا حبذا لو كان الكود يعمل بالملف دون ان اضطر أن اغير صيغة ملف الاكسيل الى macro
ورجاء من كان عنده اضافة افضل بعد ذلك  فلا يبخل بها فلقد تعودت على الكرم من أعضاء المنتدى الكرام
وجزاكم الله كل خير .
مرفق الملف

ALL ITEM.rar

تم تعديل أبريل 1, 2015 بواسطه seif elnasr

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

أخي الفاضل

أهلا بك في المنتدى بين إخوانك ..

طالما أنه هناك أكواد فلابد أن يكون امتداد الملف إما Xls أو Xlsm أو Xlsb ... أما الامتداد xlsx فلا يجوز التعامل معه في الأكواد لأنه لن يحتفظ بالأكواد بعد إغلاق الملف في حالة اختيار Yes أثناء الحفظ ..

الطلب الآخر ..لما تريد ظهور المربع الحواري الخاص بعملية الفلترة ..يمكنك من خلال الكود وضع الأسطر المناسبة التي تمكنك من عملية الفلترة بناءً على أية شروط بدون ظهور المربع الحواري ..

[سيف النصر]

أخي الفاضل

أهلا بك في المنتدى بين إخوانك ..

طالما أنه هناك أكواد فلابد أن يكون امتداد الملف إما Xls أو Xlsm أو Xlsb ... أما الامتداد xlsx فلا يجوز التعامل معه في الأكواد لأنه لن يحتفظ بالأكواد بعد إغلاق الملف في حالة اختيار Yes أثناء الحفظ ..

الطلب الآخر ..لما تريد ظهور المربع الحواري الخاص بعملية الفلترة ..يمكنك من خلال الكود وضع الأسطر المناسبة التي تمكنك من عملية الفلترة بناءً على أية شروط بدون ظهور المربع الحواري ..

تمام يا  أ/ياسر

بخصوص امتداد الملف

طيب ايه الاسطر المناسبة الى حضرتك اتكلمت عنها معلش اصل انا ضعيف في الاكسيل

واتمنى اقلاقي عند حضرتك حاجة تظهر لى المربع الحواري ده علشان انا ببحث بكلمة او جزء من كلمة فيظهرلى كل الاسطر المحتوية على على نص البحث

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

أخي الحبيب الموضوع ممكن أن تبسطه

في الخلية K1 أدخل جزء من النص المراد البحث عنه ثم اضغط زر الأمر

ليقوم بتنفيذ هذا السطر ..

Sub AutoFilterMe()
    ActiveSheet.Range("$A$7:$N$7").AutoFilter Field:=3, Criteria1:="=" & "*" & Range("K1").Value & "*"
End Sub

ALL ITEM.rar

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

أو يمكنك استخدام صندوق الإدخال

Sub AutoFilterMe()
    Dim X As String
    X = InputBox("أدخل جزء من النص المراد البحث عنه", "إدخال")
    ActiveSheet.Range("$A$7:$N$7").AutoFilter Field:=3, Criteria1:="=" & "*" & X & "*"
End Sub

[سيف النصر]

ربنا يبارك فيك
ويزيدك علم وفهم وحفظ ويحقق لك كل اللى تتمناه
ربنا يجعل ايامك كلها خير وسعاده
شكراً على اهتمامك بالموضوع

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

الحمد لله الذي بنعمته تتم الصالحات

 

نورت المنتدى يا أخ سيف النصر وإن شاء الله نشوفك دايماً معانا ..

لا تنسان بدعوة بظهر الغيب