مشكور على كلماتك الرقيقة
ولكن انا لى ملحوظة على الشيت طرفكم المواد ما بعد المجموع الكلى ماذا لو رسب اى طالب بها لن تظهر فى مواد الرسوب لأنى لاحظت (انة لا يوجد طالب راسب فى هذه المواد ) ارجو أن تفيدنى بهذه المعلومة
اما بالنسبة لملفى انا قمت برفعه لأبداء الملاحظات علية ليس فرضا تطبيقة على مدرستكم ولكننى وجدت طلبات فى المنتدى فى احد الموضوعات خاصة بكنترول الثانى الثانوى وكذلك تفقيط الدرجات ومعاملة المنازل وكذلك بعض الأجزاء الفنية مثل التعامل مع الطالب المعفى من اللغة الثانية و كذلك بعض الأحصائيات التى تطلب فى المدارس للجودة وكذلك بعض الأضافات لكشوف المنادة مثل عد كل طلبة مادة معينة يعنى برنامج تجميعى لمجموعه من طلبات الزملاء فى كنترول بعض المدارس المعروفة لى ( يعنى تفصيل ) وانا رفعنه فى المنتدى على وعسى يوجد به بعض الأضافات أو الأخطاء اقوم بمعالجتها
ولك تحياتى
اخى العزيز / جلال محمد
أولا / انا وضعت حلا فى حدود الملف المرسل لى فقط وقد اوضحت ذلك بعد ما قد طلب منك ارسال الملف كاملا للتعديل فية وانت رديت بانى ارسلت هذا الجزء لتسليط الضوء على هذا الجزء فقط وقد اجتهدت فى حدود المتاح. اما ولو ارسلت الملف كاملا كانت الفكرة ستتغير
ثانيا / وبعد ارسالك الملف كاملا وجدت ان هذا الحل يرسل النتائج فى العمود الذى يلى المجموع ( عمود الحاسب الآلى ) وهذا ايضا ناتج عن اقتصاص الملف ولكن يمكن التعديل فيه.
ثالثا / انا قدمت لك احد اعمالى فى المنتدى لشيت كنترول يجمع شعبتى العلمى وشعبتى الأدبى وكذلك المنازل مجمعين فى شيت واحد فقط بديلا (لشيت الشعبة العلمية -- لشيت الشعبة الأدبية - لشيت المنازل ) لتتفضل بدراسته والمقارنة وابداء الملاحظات بينه وبين الشيت الذى تعمل فلم ترد على
رابعا / أنا وصلت لتشخيص المشكلة وهى الآن امام جميع الأساتذة فى المنتدى لمحاولة ايجاد الحلول لها.
وتحياتى
يكون الكود بهذا الشكل
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Cells.Interior.ColorIndex = 0
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)).Interior.ColorIndex = 4
End Sub
السلام عليكم
ثم عمل المطلوب لكن مشكلة السكانير لا اعرف ما هو السبب في ذلك
الملف الثاني هو فيديو يوضح طريقة عمل ايقونة للبرنامج
الصادر و الوار$-2.rar
الايقونة.rar