أبو أنس حاجب قام بنشر فبراير 15, 2012 قام بنشر فبراير 15, 2012 السلام عليكم ورحمة الله وبركاته هل يمكن تطبيق اكواد التصفية المتقدمة على عمود ولكن بشرط ان يكون البيان المراد الفلتره له فقط (يحتوي على) جزء من الاسم وليس (يساوي) لكامل الاسم أبو أنس
عبدالله باقشير قام بنشر فبراير 15, 2012 قام بنشر فبراير 15, 2012 السلام عليكم استخدم احرف البدل في التصفية ------------------------------------------------------------------------------------- أحرف البدل يمكن استخدام أحرف البدل التالية كمعايير مقارنة لعوامل التصفية وعند البحث عن محتوى واستبداله. استخدم للبحث عن ؟ (علامة استفهام) أي حرف مفرد على سبيل المثال، يتم العثور على "سمير" و"سفير" عند كتابة س؟ير. * (علامة نجمية) أي عدد من الأحرف على سبيل المثال، يتم العثور على "شمال شرق" و"جنوب شرق" عند كتابة *شرق ~ (تيلدا) متبوعة بـ ؟، أو *، أو ~ علامة استفهام، أو علامة نجمية، أو تيلدا على سبيل المثال، يتم العثور على "حر91؟" عند كتابة حر91~؟ -------------------------------------------------------------------------------
الشهابي قام بنشر فبراير 15, 2012 قام بنشر فبراير 15, 2012 أستاذ / عبد الله معلومات مفيدة جزاك الله خير
أبو أنس حاجب قام بنشر فبراير 16, 2012 الكاتب قام بنشر فبراير 16, 2012 السلام عليكم ورحمة الله وبركاته بداية أستاذي الفاضل خبور خير (ابا عبد الله) اشكر لك التكرم بالرد حفظك الله ورعاك سوف ارفق ملف ارجو تحقيق ذلك فيه المطلوب هو الفلتره المتقدمة وفق معيار متغير حسب الاختيار من قائمة منسدلة ومن ثم ترحيل نتيجة التصفية إلى صفحة ال FILTER أنا سعيد جداً بتشريفك لسرالي هذا ارجو النظر إلى بعض مشاركاتي الاخيرة اذا سمح وقتك لانها بحاجة اليك أبو أنس مستودع.rar
عبدالله باقشير قام بنشر فبراير 16, 2012 قام بنشر فبراير 16, 2012 السلام عليكم اخي الحبيب الشهابي الله ينورك بالعلم النافع اخي ابو انس حفظك ربي وجزاك خيرا الكود المستخدم : 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
أبو أنس حاجب قام بنشر فبراير 16, 2012 الكاتب قام بنشر فبراير 16, 2012 السلام عليكم ورحمة الله وبركاته كنت منتظر من الصبح فقط لكي ارى اسمك منشط في المنتدى والآن عندنا مساءاً في الصين لست بحاجة للنظر إلى المرفق وذلك لثقتي فيك وسوف اراه لاحقاً. لقد كنت افكر بطريقة الرد عليك ولكني لم اصل الى نتيجة ترضيني اللهم احشرني وذريتي من بعدي مع عبد الله باقشير وذريته من بعده إلى يوم الدين مع النبيين والصديقين والشهداء وصالح المسلمين وكل أعضاء منتدانا الحبيب أبوأنس ناصر حاجب (اليافعي)
عبدالله باقشير قام بنشر فبراير 16, 2012 قام بنشر فبراير 16, 2012 السلام عليكم اخي الحبيب أبوأنس ناصر حاجب (اليافعي) حفظك ربي وتقبل دعائك وجزاك خيرا آمــــــــــــــــــــين تقبل تحياتي وشكري
عبدالله المجرب قام بنشر فبراير 16, 2012 قام بنشر فبراير 16, 2012 اللهم أمين === احترافية حتى في اكواد الفلترة سلمت يمينك يا ابا علي
عبدالله باقشير قام بنشر فبراير 16, 2012 قام بنشر فبراير 16, 2012 اللهم أمين === احترافية حتى في اكواد الفلترة سلمت يمينك يا ابا علي اخي ابو احمد حفظك الله تقبل تحياتي وشكري
mhrrd قام بنشر فبراير 16, 2012 قام بنشر فبراير 16, 2012 السلام عليكم اخي الحبيب الشهابي الله ينورك بالعلم النافع اخي ابو انس حفظك ربي وجزاك خيرا الكود المستخدم : 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] & "*" اريد شرح لهذا الكود
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.