بعد اذن اخي محمد
هذه معادلة واحدة تدرج اينما تريد و تسحب نزولاُ (31 صف او اكثر)
=IF(ROWS($A$1:A1)>DAY(EOMONTH(DATE($E$2,$E$1,1),0)),"",DATE($E$2,$E$1,ROWS($A$1:A1)))
تم تحويل المعادلات الى اكواد كود للسيد الفاضل عبدالله باقشير حفظه الله
اضغط زر استدعاء بيانات مرة واحدة ربما يأخد ثواني ثم جرب الفرز
تحياتي
Aziz_011.rar
السلام عليكم ورحمة الله وبركاته
أخي الكريم ناصر سأضع بين يديك الملف المطلوب علماً أن الملف الأساسي للأستاذ خالد طه
جزاه الله خيراً وقد أجريت عليه بعض التعديلات
والسلام عليكم
جدول الشهر مع التعديل.rar
إخوتي الفضلاء
التزاما بقواعد المنتدي فضلت إنشاء موضوع جديد لطرح الفكرة ، لعملية البحث و الفلترة عند الكتابة ضمن نموذج مستمر و تمييز نتائج البحث باللون أو خصائص الخط مثل الخط العريض.
حيث طرح السؤال و الطلب ضمن مشاركة احد الاخوة في موضوع يتعلق بالبحث ، بالاضافة لطرح هذا الطلب اكثر من مرة في مواضيع مختلفة .
حاولت جعل الكودات بسيطة و قابلة للتعديل حسب التطبيقات التي سيستخدم بها منعا لحدوث اشكالات عند النقل و التطبيق .
هناك امور لا بد من مراعاتها عند التعامل مع الفكرة و بعضها رئيسي ومهم لا تنجح الامور الا به ، و هي كما يلي :
· نص البحث يكتب ضمن مربع النص 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
ضع هذا الكود فى حدث الورقة فى ملفك
Private Sub Worksheet_Change(ByVal Target As Range)
n = Now
If Target.Column = 2 Then
If Target = "" Then
Cells(Target.Row, Target.Column + 1) = ""
Cells(Target.Row, Target.Column + 2) = ""
Exit Sub
ElseIf Target <> "" Then
Cells(Target.Row, Target.Column + 1) = Date
Cells(Target.Row, Target.Column + 2) = Time
End If
End If
End Sub
السلام عليكم
وبعد اذن الاستاذ عبدالله
العمل يحتاج لجدولين
1- رئيس ويشتمل على رقم الموظف واسمه
2- فرعي ويشتمل على رقم الموظف وحقل لرقم المرشح
العلاقة بين الجدولين واحد لمتعدد
مفاتيح الجداول :
الجدول الرئيس : رقم الموظف مفتاح
الجدول الفرعي : كلا الحقلين مفاتيح