البحث في الموقع

لو سمحتم اريد مساعدة في فلترة ساعات العمل الاضافية للعمال إلى الشيت الرئيسي بحيث مجرد كتابه اسم العامل يتم استحضار ساعات العمل من الصفحة الخاصة به كما هو مبين في الملف المرفق و مشكورين مسبقا ساعات العمل.xlsx

إخوتي الفضلاء التزاما بقواعد المنتدي فضلت إنشاء موضوع جديد لطرح الفكرة ، لعملية البحث و الفلترة عند الكتابة ضمن نموذج مستمر و تمييز نتائج البحث باللون أو خصائص الخط مثل الخط العريض. حيث طرح السؤال و الطلب ضمن مشاركة احد الاخوة في موضوع يتعلق بالبحث ، بالاضافة لطرح هذا الطلب اكثر من مرة في مواضيع مختلفة . حاولت جعل الكودات بسيطة و قابلة للتعديل حسب التطبيقات التي سيستخدم بها منعا لحدوث اشكالات عند النقل و التطبيق . هناك امور لا بد من مراعاتها عند التعامل مع الفكرة و بعضها رئيسي ومهم لا تنجح الامور الا به ، و هي كما يلي : · نص البحث يكتب ضمن مربع النص txtSearch · البحث و الفلترة تتم في نفس النموذج و هو نموذج مستمر و ليس من خلال نموذج فرعي او مربع قائمة · البحث سيتم ضمن ثلاثة حقول من الجدول tblCustomer ، وهي CompanyName و City و Address يمكن زيادتها حسب الحاجة و مستلزمات التطبيق · مربعات النص في النموذج التي تظهر محتويات الحقول هي غير منضمة unbound · مصدر عنصر التحكم control source للحقول يثبت لكل مربع نص ضمن قائمة الخيارات مثلا (=[CompanyName]) · مربعات النص الثلاثة يجب ان يكون تنسيق النص فيها text format هو (Rich Text) ، وهذه نقطة مهمة حتى يقبل مربع النص كود تغيير خصائص أجزاء النص من حيث اللون و الخط العريض . · كود البحث و الفلترة يكون خلف حدث on change – عند التغيير لمربع النص txtSearch · البحث و الفلترة يفترض في فكرتنا ان تتم عند كل حرف ، وبعد انتهاء الفلترة يعود مؤشر النص ليكتب نص ( حرف ) الفلترة الجديد ، فيصبح مربع النص يتعامل من حرف واحد فقط ، وبالتالي سنضطر لاستخدام خاصية SelStart لتحدد نقطة البداية للنص أو موضع نقطة الإدراج لنتمكن من كتابة اكثر من حرف . · بعد التطبيق اعترضتني مشكلة عدم قبول مربع النص للمسافة بين الاحرف spacebar ، نتيجة استخدام خاصية SelStart و بالتالي كان لا بد من إجبار مربع النص على قبول المسافة بين الاحرف ، و تم ذلك و الحمد لله باستخدام كود في حدث on Key up . · ضمن الكود تم تحديد خاصيتين للخط و هما اللون الاحمر و الخط العريض وذلك لتمييز مكانها ضمن نتائج البحث و الفلترة . · كل حرف يتم كتابته في مربع النص txtSearch تتم بموجبه و مباشرة فلترة النتائج ضمن مربعات النص الثلاثة و تمييز الحرف باللون الاحمر العريض. · بعد الفلترة يتم تغيير مصدر عنصر التحكم عبر الكود باسناد القيم لمربعات النص الثلاثة في النموذج محملة بكود تغيير خصائص الخط لكل حرف تمت كتابته في مربع النص txtSearch · بالضغط على مربع النص txtSearch يتم افراغ مربع النص مما كتب به سابقا لبداية بحث جديد ، كما تظهر كافة سجلات الجدول في مربعات نص النموذج. راجيا من الله عز و جل ان يكون التطبيق وافيا و محققا لحاجات الاخوة ، و ان يكون فيه النفع لهم في تطبيقاتهم . و الله من وراء القصد ... NA_Highlight_Search_results_while_typing.accdb

السلام عليكم أنا استفيد كثيراً من هذا المنتدى المتألق و أحببت أن أشارككم هذا الكود المتواضع للفائدة من كتابتي عله يلزم أحد الأخوة و خصوصاً المبتدئين وصف الكود : كود بسيط يقوم بعمل فلترة سريعة حسب الإدخال في مربع النص .. يتميز عن غيره من الأكواد المنتشرة بأنه يقوم بإلغاء الفلترة في حال كان مربع الإدخال فارغاً . الملف في المرفقات .. أتمنى أن ينال إعجابكم . الحمد لله الذي تتم بنعمته الصالحات .. جزاكم الله خيراً فلترة سريعة بالإسم.rar

السلام عليكم لدي جدول فيه عدة أعمدة منها عمود الأسماء و عندما أقوم بإضافة أسماء جديدة و أقوم بالفلترة لا تظهر الأسماء بالفلترة مع أنني أضيفها بنفس التنسيق

السلام عليكم ورحمة الله أصدقائنا واخواني الكرام بعد البحث الطويل في مواقع الانترنت الاجنبية ومنها العربية حول فكرة تعبئة "قائمة في يوزر فورم" من بيانات مفلترة في ورقة العمل الطرق كانت في المواقع كثيرة وجميلة ومتميزة ولكن اكثرها كانت تعتمد على مبدأ الفلترة وبعدها نسخ البيانات المفلترة ولصقها في مكان اخر وجعل مصدر القائمة في اليوزر فورم "البيانات الملصقة" وكانت هناك طريقة أخرى تعبئتها عن طريق استخدام دالة for و next الذي اريده هو طريقة اخرى قصيرة في التنفيذ لان البيانات ضخمة في الملف وأصبحت هذه الطرق تأخذ وقت طويل في التنفيذ والاداء نرجو منكم عرض الافكار والاراء حول الفكرة لإثراء الموضوع قائمة منسدلة من بيانات مفلترة.rar

بسم الله الرحمن الرحيم الأعضاء الأعزاء أسعد الله أوقاتكم بكل خير فيما يلي الدرس الرابع من دورة "إكسيل 2013 المستوى المتقدم" بعنوان: التصفية المتقدمة للبيانات الجزء الثاني الدرس الرابع- التصفية المتقدمة الجزء الثاني يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم دمتم بخير أخوكم م/نضال الشامي Google+

السادة الخبراء عندى صفحة بيانات و صفحة ثانية اعمل فلترة حسب خلية معينة ثم انسخ بعض البيانات فى الصفحة الاخرى و المشكلة ان البيانات متفرقة الكود Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Main").Range("A13:Z213").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("D9:D10"), CopyToRange:=Range("B13:C13"), _ Unique:=False End Sub وهذا النطاق الاخر CopyToRange:=Range("T13"") كيف اضع النطاقين مع بعض فى ماكرو واحد الف شكر لكم