التصفية المتقدمة بالكود ولكن بشرط يحتوي على وليس بنطاق معين محدد سؤال

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

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

أبو أنس

[عبدالله باقشير]

السلام عليكم

استخدم احرف البدل في التصفية

-------------------------------------------------------------------------------------

أحرف البدل

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

استخدم للبحث عن

؟ (علامة استفهام) أي حرف مفرد

على سبيل المثال، يتم العثور على "سمير" و"سفير" عند كتابة س؟ير.

* (علامة نجمية) أي عدد من الأحرف

على سبيل المثال، يتم العثور على "شمال شرق" و"جنوب شرق" عند كتابة *شرق

~ (تيلدا) متبوعة بـ ؟، أو *، أو ~ علامة استفهام، أو علامة نجمية، أو تيلدا

على سبيل المثال، يتم العثور على "حر91؟" عند كتابة حر91~؟

-------------------------------------------------------------------------------

[الشهابي]

أستاذ / عبد الله

معلومات مفيدة

جزاك الله خير

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

بداية أستاذي الفاضل خبور خير (ابا عبد الله) اشكر لك التكرم بالرد حفظك الله ورعاك

سوف ارفق ملف ارجو تحقيق ذلك فيه

المطلوب هو الفلتره المتقدمة وفق معيار متغير حسب الاختيار من قائمة منسدلة ومن ثم ترحيل نتيجة التصفية إلى صفحة ال FILTER

أنا سعيد جداً بتشريفك لسرالي هذا

ارجو النظر إلى بعض مشاركاتي الاخيرة اذا سمح وقتك لانها بحاجة اليك

أبو أنس

مستودع.rar

[عبدالله باقشير]

السلام عليكم

اخي الحبيب الشهابي الله ينورك بالعلم النافع

اخي ابو انس حفظك ربي وجزاك خيرا

الكود المستخدم :

Sub kh_Filter()

With Sheets("Filter")

    .Activate

    .Range("J2").Value = "*" & [Grit] & "*"

    .Range("J1:J2").Name = "Criteria"

    .Range("B5:H5").Name = "Extract"

End With

Range("Listfilter").AdvancedFilter xlFilterCopy, Range("Criteria"), Range("Extract")

End Sub

تفضل المرفق 2003

مستودع.rar

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

كنت منتظر من الصبح فقط لكي ارى اسمك منشط في المنتدى والآن عندنا مساءاً في الصين لست بحاجة للنظر إلى المرفق وذلك لثقتي فيك وسوف اراه لاحقاً.

لقد كنت افكر بطريقة الرد عليك ولكني لم اصل الى نتيجة ترضيني

اللهم احشرني وذريتي من بعدي مع عبد الله باقشير وذريته من بعده إلى يوم الدين مع النبيين والصديقين والشهداء وصالح المسلمين وكل أعضاء منتدانا الحبيب

أبوأنس ناصر حاجب (اليافعي)

[عبدالله باقشير]

السلام عليكم

اخي الحبيب أبوأنس ناصر حاجب (اليافعي)

حفظك ربي وتقبل دعائك وجزاك خيرا

آمــــــــــــــــــــين

تقبل تحياتي وشكري

[عبدالله المجرب]

اللهم أمين

===

احترافية حتى في اكواد الفلترة

سلمت يمينك يا ابا علي

[عبدالله باقشير]

اللهم أمين

===

احترافية حتى في اكواد الفلترة

سلمت يمينك يا ابا علي

اخي ابو احمد حفظك الله

تقبل تحياتي وشكري

[mhrrd]

السلام عليكم

اخي الحبيب الشهابي الله ينورك بالعلم النافع

اخي ابو انس حفظك ربي وجزاك خيرا

الكود المستخدم :

Sub kh_Filter()

With Sheets("Filter")

	.Activate

	.Range("J2").Value = "*" & [Grit] & "*"

	.Range("J1:J2").Name = "Criteria"

	.Range("B5:H5").Name = "Extract"

End With

Range("Listfilter").AdvancedFilter xlFilterCopy, Range("Criteria"), Range("Extract")

End Sub

تفضل المرفق 2003 مستودع.rar

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

.Range("J2").Value = "*" & [Grit] & "*"

اريد شرح لهذا الكود