علي المصري

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

مثال : بفرض عدد المود الراسب فيها الطالب هي subjects إذا كان عدد مواد الرسوب = 0 فإن الطالب ناجح إذا كان عدد مواد الرسوب 1 أو 2 أو 3 أي أكبر من 0 وأقل من أو يساوي 3 يكون الطالب له دور ثان إذا كان عدد مواد الرسوب اكبر من 3 الطالب يكون راسب فتكون الدلة كما يلي : =IIf([Subjects]=0;"ناجح";IIf([Subjects]>0 And [Subjects]<=3;"دور ثان";IIf([Subjects]>3;"راسب";"")))

مثال : بفرض عدد المود الراسب فيها الطالب هي subjects إذا كان عدد مواد الرسوب = 0 فإن الطالب ناجح إذا كان عدد مواد الرسوب 1 أو 2 أو 3 أي أكبر من 0 وأقل من أو يساوي 3 يكون الطالب له دور ثان إذا كان عدد مواد الرسوب اكبر من 3 الطالب يكون راسب فتكون الدلة كما يلي : =IIf([Subjects]=0;"ناجح";IIf([Subjects]>0 And [Subjects]<=3;"دور ثان";IIf([Subjects]>3;"راسب";""))) DD.rar

بعد الاذن تم اختصار الكود كما يلي Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Add Key:=Range("J10:J43") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("ورقة3").Sort.SortFields.Add Key:=Range("D10:D43") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ورقة3").Sort .SetRange Range("C10:Q43") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub شكرا لكم

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

تم اجراء تعديل جديد mm.rar

اعمل استرداد للنظام لتاريخ سابق قبل تثبيت اوفيس 2010 وإن لم تفلح اتبع التالي اعد تشغيل الجهاز واثناء الاقلاع اضغط على F8 ومن ثم اختار Last Good ............ ثم اترك الجهاز حتى يقلع إن لم يفلح فعليك بتثبيت نسخو ويندوز جديدة ومن ثم نسخة الاوفيس

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

جزاك الله خيرا ام عبد الله فكرة جميلة ورائعة

تفضل اخي الكريم اتمنى ان يكون فيه طلبك بحث عن عميل.rar

السلام عليكم ورحمة الله وبركاته اضف على كود فتح التقرير الجملة التالية وسوف يعمل معك جيدا ان شاء الله DoCmd.Maximize

أكواد مميزة بارك الله فيك وجزاك الله خيرا

تفضل اخي الكريم اخفاء الصفوف كما طلبت بالمواصفات التي طلبتها Book1.rar

إليك طلبك اخي الكريم ولا تتعجل الأمور انسخ احد الكودين التاليين : افتح الورقة التي بها العمود التي تريد ترتيبه ابجديا ثم كليك يمين على ايم الورقة بالاسفل واختر اظهار الكود ثم اعمل لصق للكود الكود الأول في حالة إذا كان العمود له رأس ( أي له تسمية مثل : اسم الطالب .... الفصل ..... التاريخ .... ) 'هذا الكود يستخدم في حالة إذا كانت اول خليه في العمود بها اسم هذا العمود مثل الفصل .... التاريخ ' 'أخوكم في الله : علي المصري ' Private Sub Worksheet_Activate() Dim MyRange As Range Dim myCell As Range Set MyRange = Range("G:G") 'هذا السطر يكتب به العمود المراد ابجدته Set myCell = Range("G1") ' هذا السطر تكتب به الخليه التي بها عنوان العمود MyRange.Sort Key1:=myCell, Order1:=xlAscending, Header:=xlYes End Sub الكود الثاني إذا كان العمود لا يحتوي راس له 'إذا كان العمود لا يحتوي على رأس استخدم الكود التالي . Private Sub Worksheet_Activate() Dim MyRange As Range Dim myCell As Range Set MyRange = Range("G:G") 'هذا السطر يكتب به العمود المراد ابجدته Set myCell = Range("G1") MyRange.Sort Key1:=myCell, Order1:=xlAscending, Header:=xlNo End Sub تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته الاستاذ حمدي بارك الله فيك وجزاك الله خيرا عما قلت وإليك التعديل الاخير شئون طلاب الصف الاول الاعدادى - 1.rar

الملف بعد التعديل على اكسيل 2003 ابجد من صفحة اخري.rar

تفضل المرفق التالي شئون طلاب الصف الاول الاعدادى - Copy.rar

اختلاف نسخة الاكسيل هل تستخدم اكسيل 2003 ام احدث منه

جرب المرفق التالي ابجد من صفحة اخري.rar

النقاش والتساؤلات هي اساس التعلم بارك الله فيك ابو خليل وجزاك الله خيرا على هذه الدروس

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل الاستاذ حمدي جرب المرفق التالي شئون طلاب الصف الاول الاعدادى - Copy.rar

البرنامج شئون العاملين برنامج.rar

أهلا ومرحبا بكم في هذا المنتدى العملاق

المرفق التالي قد تم رفعة من قبل فيه المطلوب غياب الطلاب.rar