فصل الناجح عن الراسب فى شيت مستقل

[رنين خاطر]

أرجو من أساتذتى الأفاضل والسادة محترفى برنامج الأكسيل مساعدتى فى الملف المرفق على وجه السرعة للأهمية وضيق الوقت بالشكل التالى ومرفق ملف للعمل عليه فأنا مدرسة أحياء بمدرسة للتعليم الفنى وأعمل بكنترول المدرسة ولدينا عدد من الطلاب لهم حق دخول الدور الثانى ومقيدين بالصف الأول الزراعى تبعاً لحالة قيد كل منهم " مستجد - عمال" ولذا أريد عمل الأحصاءات على هذا النهج مستجد وعمال كما أريد ان يتم فصل الناجح عن الراسب فى شيت مستقل بكل فئة على حدة بمعنى الطلاب المنتظمون الناجحون فى شيت المنتظمون الناجحون والراسبون فى شيت الراسبين والعمال الناجحون فى شيت العمال الناجحين وهكذا بالنسبة للراسبين وبالملف المرفق شيت مستقل لكل فئة على حدة والشيت مصمم على ورق مقاس A3  وسعة كل شيت هى 20 طالب وطالبه فقط ويتم ترحيل ما زاد عن ذلك للشيت الذى يليه نظراً لوجود توقيعات أسفل كل شيت وكنت أتمنى عمل شهادات للفئات المذكورة ولكننى لا اريد ان أكثر عليكم أو أكون عبئاً ثقيلاً على هذا المنتدى الأكثر من رائع كونى جديدة على منتداكم الكريم ولما لمسته فيه من صدق التعامل وأمانة العمل وجودتة أيضا وسوف اقوم بإرفاق الملف على Office 2003  و Office 2010 كما أتمنى أن يتم ذلك من خلال المعادلات لسببين وهما أولاً الأستفادة من خبراتكم وثانياً لوجود شعب أخرى بالمدرسة تحتاج لنفس الشىء حيث يوجد صف اول مهنى وصف ثانى مجال فنى معمل ومجال تصنيع غذائى ومجال إنتاج حيوانى ومجال أخر صف ثانى مهنى وجميع هذه التخصصات مستقلة تماما عن بعضها البعض بالنسبة للدرجات وعدد المواد سواء بالزيادة أو بالنقص وأسفه للأطالة على حضراتكم

أول زراعى2019دور ثانى.xls أول زراعى2019دور ثانى.xlsx

[سليم حاصبيا]

لم افهم ما معنى منتظم و من اين أحصل غلى هذه الكلمه في الملف

[سليم حاصبيا]

للمرة الألف أذكر ان المعلومات في جداول الاكسل يجب ان تكون منسقة بطريقة معينة (اذا اردنا ان نعمل بواسطة الــ VBA )

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

و أعتذر عن أي عمل يخالف تعليمات الجداول والــ VBA

من أهم الاشياء كي ينجح اي ماكرو هو معرفة تنسيق الجداول في اكسل

1- الجدول يجب ان يكون محاطاً بصفوف فارغة و أعمدة فارغة دون أي خلايا مدمجة  أو

      ( عن يمينه حدود الصفحة و عن يساره عامود فارغ  ) للغة العربية

       ( عن يساره حدود الصفحة و عن يمينه عامود فارغ ) للغة الاجنبية

2- تم عمل ذلك بتغيير تنسيق الجدول بهذه الطريقة    (الصف التاسع فارغ و يبدأ الجدول من الصف العاشر) دون خلايا مدمجة داخل الجدول

3- الماكرو المطلوب (لم أقم بتمييز الناجح والرّاسب لان هذه البيانات غير موجودة) فقط الماكرو يعمل على الــ "مستجد" و  "العمال"

الماكرو 

Option Explicit
Sub copy_and_filter()
Application.ScreenUpdating = fasle
Dim MRG As Range
Dim sh As Worksheet
Dim x, y%, MAX_ROW%, i%
y = Sheets("الرصد").Cells(Rows.Count, 1).End(3).Row
Set MRG = Sheets("الرصد").Range("a10:aw" & y)
MAX_ROW = MRG.Rows.Count

Dim arr_sh(1 To 4)
 arr_sh(1) = "ناجح مستجد": arr_sh(2) = "راسب مستجد"
 arr_sh(3) = "ناجح عمال": arr_sh(4) = "راسب عمال"
 Dim arr_CRIT(1 To 4)
 arr_CRIT(1) = "مستجد": arr_CRIT(2) = "مستجد"
 arr_CRIT(3) = "عمال": arr_CRIT(4) = "عمال"
 For Each sh In Sheets
   If Not (IsError(Application.Match(sh.Name, arr_sh, 0))) Then
    x = Application.Match(sh.Name, arr_sh, 0)
    sh.Range("t1") = arr_CRIT(x)
      End If
   Next
   For i = LBound(arr_sh) To UBound(arr_sh)
   
    Sheets(arr_sh(i)).Range("A11:AW1500").ClearContents
    MRG.AutoFilter 5, Sheets(arr_sh(i)).Range("t1")
    MRG.Offset(1).Resize(MAX_ROW - 1).SpecialCells(12).copy _
    Sheets(arr_sh(i)).Range("a11")
    Sheets(arr_sh(i)).Range("t1") = vbNullString
  Next
 Erase arr_sh: Erase arr_CRIT: Set MRG = Nothing
   If Sheets("الرصد").AutoFilterMode = True Then
    Sheets("الرصد").ShowAllData
   End If
   Application.ScreenUpdating = True

End Sub

الملف مرفق 

 

Awwal Zira3i.xlsm

[رنين خاطر]

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

[رنين خاطر]

أعتذر أستاذ سليم على عدم تسجيل بيانات الطلاب والتى على أساسها سيتم حساب الناجح والراسب والغائب ومرفق الملف بعد تسجيل البيانات

أول زراعى2019دور ثانى.xls

[سليم حاصبيا]

كنت قد ذكرت في المشاركة السابقة مواصفات الجدول الذي يمكن ان يطبق عليه الكود

عندما يكون الجدول الذي تم رفعه بهذه المواصفات وتكون نتيجة ناجح او راسب موضوعة في اخر عامود من الجدول (ليس ناجحة أو راسبة بصيفة التأنيث لأن هذا يمكن عمله في النتيجة النهائية) يمكن ادراج ماكرو جديد يقوم بما يتوجب عمله

قومي بتصميم الجدول بالضبط كما في الملف الذي رفعته (مجرد copy Paste للاسماء) من ملفك (الصفحة الاولى)الى الملف Awwal Zira3i في أول  صفحة منه ابتداء من الصف رقم 10

 

[عبدالله الصاري]

بعد اذن اخينا الاستاذ سليم

الاخت الفاضلة

تم اختصار جميع الاوراق في ورقة واحدة لجميع فئات الناجحين والراسبين للعمال والمنتظمين

وبالضغظ على الزر المطلوب يتم استدعاء البيانات تم يمكنك الطباعة

كما يمكنك الاستفاذة من هذه الطريقة في التحصصات الاخري في نفس الملف وذلك باضافة ورقة رصد جديدة فقط

اذا كان الامر يناسبك فاخبريني حتى اكمل الاحصائية

واما اذا لا يناسبك فنصيحة استاذنا سليم تؤخد في الاعتبار

الاكواد عن طريق تسجيل كود مع التعديل البسيط

أول زراعى2019دور ثانى.xls

تحياتي

 

[رنين خاطر]

ميرسى كتير لحضرتك أستاذ عبد الله الصارى

كما أشكر الأستاذ الفاضل سليم حاصبيا لأهتمامه ونصائحة الغالية

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

[عبدالله الصاري]

بالنسبة لاخصائية المواد

الطالب في المواد ذات الشقين العملي والنظري

اذا غاب الطالب  عن الجزء النظري  وحضر الجزء العملي ما وضعه ؟ غائب ام حاضر وهل تجمع درجته ام  ماذا

واذا كان العكس  حضر النظري وغاب عن العملي 

بالنسبة للتخصصات الاخري ارسلي احد الملفات وسنرى الامر بمشيئة الله

[رنين خاطر]

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

تحياتى لحضرتك

أول مهنى.xls

[عبدالله الصاري]

اختى الفاضلة

لم تجيبي على سؤالي بالكامل

57 دقائق مضت, عبدالله الصاري said:

اذا غاب الطالب  عن الجزء النظري  وحضر الجزء العملي ما وضعه ؟ غائب ام حاضر

 

57 دقائق مضت, عبدالله الصاري said:

واذا كان العكس  حضر النظري وغاب عن العملي 

وهو مهم بالنسبة لاحصائية المواد

[رنين خاطر]

أسفه لحضرتك هو يعتبر غائب وراسب فى المادة سواء كان غائب فى العملى أو فى النظرى أو الأثنين معاً وبالنسبة للاحصائية يثبت فيها غياب النظرى فقط أما غياب العملى فيظهر راسب وباقى للإعادة فى نتيجة الطالب

تم تعديل يوليو 8, 2019 بواسطه رنين خاطر

[سليم حاصبيا]

اقترح هذا الملف 

من مواصفاته

1-عدم قدرة ادراج علامة اكبر من الحد الاقصى لكل مادة (تتلقى رسالة تنبيه)

2-يفوم بتجميع المجاميع لكل مادة (عملي نظري)

3-اذا بالخطأ ادخلت في خانة المجاميع اي شيء يتجاوز المعادلة (لان خانة المجميع تحتوي على معادلة) يفوم اكسل برفض هذا الشيء

4- القليل من Coditional format  يغني عن الكثير (مراجعة لائحة الــ Coditional format)

5- يعطي النتيجة ناجح   راسب 

6-يفصل تلاميذ خالة القيد (ناجح راسب ) كل على صفحة مستقلة بضغطة على الزر

 الكود فيما بعد بسبب بطء النت

الملف مرفق مع الكود للنتفيذ

 

 

 

 

Awwal Zira3i_Super.xlsm

[عبدالله الصاري]

تم اظافة الاحصائيات نأمل مراجعتها

تم اظافة عدم تجاوز الدرجة مع قبول غ

تم اظافة مواد الرسوب

تم اظافة الدوائر للراسبين لا تظهر الا مع الطباعة فقط

ارفقي مع الملف نموذج الشهادة 

16 ساعات مضت, رنين خاطر said:

وكنت أتمنى عمل شهادات للفئات المذكورة ولكننى لا اريد ان أكثر عليكم أو أكون عبئاً ثقيلاً على هذا المنتدى

ارفقي مع الملف نموذج الشهادة

لدي استفسار ات تخص المواد التي بها عملي ونظري فقط

هل تجمع درجة الطالب في حال غيابه في النظري او العملي او كليهما

هل يشترط لنجاح الطالب الحصول على النهاية الصغري في الجزء النظري وفي حال عدم حصوله هل يعتبر راسب

هل يشترطا لنجاح الطالب الحصول على النهاية الصغري في الجزء العمليوفي حال عدم حصوله هل يعتبر راسب

ام شرط النجاح الحصول على النهاية الصغري لمجموعهما

راجعي الملف واي ملاحظات فنسأل الله العون في تقديمه

 

تم تعديل يوليو 8, 2019 بواسطه عبدالله الصاري

[عبدالله الصاري]

الملف

أول زراعى2019دور ثانى.xls

[رنين خاطر]

3 ساعات مضت, عبدالله الصاري said:

لدي استفسار ات تخص المواد التي بها عملي ونظري فقط

هل تجمع درجة الطالب في حال غيابه في النظري او العملي او كليهما

هل يشترط لنجاح الطالب الحصول على النهاية الصغري في الجزء النظري وفي حال عدم حصوله هل يعتبر راسب

هل يشترطا لنجاح الطالب الحصول على النهاية الصغري في الجزء العمليوفي حال عدم حصوله هل يعتبر راسب

ام شرط النجاح الحصول على النهاية الصغري لمجموعهما

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

وبخصوص الاستفسار الأول نعم تجمع درجة الطالب فى حال غيابه فى النظرى أو العملى أو كليهما

والثانى نعم يشترط لنجاح الطالب الحصول على النهاية الصغرى فى العملى وكذلك فى النظرى وفى حالة عدم تحقيقة لهذا الشرط يعتبر راسب

وكذلك الأمر بالنسبة للاستفسار الثالث فغياب الطالب فى أحد فروع المادة سواء العملى أو النظرى أو حضوره ولكن لم يحقق النهاية الصغرى للفرعين فهو راسب فى المادة وشرط النجاح فى المادة هو حصول الطالب على النهاية الصغرى لمجموعهما بشرط ألا تقل درجة الطالب فى الفرع العملى عن 50% من مجموع درجة العملى الكلية و 50% من مجموع درجة المادة النظرية فمثلا مادة مثل محاصيل الحقل مجموعها الكلى 60 درجة مقسمة على النحو التالى 30 درجة عملى و 30 درجة نظرى والنهاية الصغرى لمجموعها 30 درجة فلو حصل الطالب على الدرجة النهائية وهى 30 درجة فى الامتحان النظرى وغاب فى الامتحان العملى أو لم يحقق النهاية الصغرى للامتحان العملى أو العكس يعتبر راسب فى المادة على الرغم من تحقيقة للنهاية الصغرى لمجموع المادة وهو 30 درجة

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

شهادات أولى زراعى.xls

تم تعديل يوليو 9, 2019 بواسطه رنين خاطر

[عبدالله الصاري]

الملف وبه الشهادات 

أول زراعى2019دور ثانى.xlsm

[رنين خاطر]

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

تم تعديل يوليو 9, 2019 بواسطه رنين خاطر

[رنين خاطر]

دا ملف الصف الأول المهنى وأنا اسفه لو كنت تجاوزت حدودى بكثرة طلباتى ولكن ضيق الوقت هو السبب فقد بدأت امتحانات الدور الثانى يوم 06/07/2019 وإلى الأن لم يتم رصد درجات الطلاب على الكمبيوتر رغم انتهاء تصحيح حوالى 50% تقريباً من المواد الممتحنة لذلك رجاءا أن تلتمسو لى العذر ومرفق وسأرفق لكم نموذج شهادة الصف الأول المهنى

أول مهنى.xls

شهادات أولى مهنى.rar

[عبدالله الصاري]

السلام عليكم

بالنسب لملف المهني يختلف عن الملف الاول ومن الصعوبة دمجهما

ولضيق الوقت استخدمت نفس الملف   ولن تكون هناك اي مشكلة باذن الله

في شيت الرصد ستبقى خانات فارغة مضللة بالاسود اتركيها كما هى لا تخفيها

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

زر استدعاء في الشهادة يستدعي جميع الطلاب عمال ومنتظمون ناجحون وراسبون

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

تم اصلاح بعض الاخطاء في الملف الاول فالرجاء التعامل مع الملفين الحاليين

راجعي الملفين لانهما عملا على عجل واي ملاحظات فلن نقصر باذن الله

اذا كان لديك تخصصات احري وبنفس فكرة الملفين فقومي بتحميلها

أول زراعى2019دور ثانى.xlsm

مهني.xlsm

تم تعديل يوليو 9, 2019 بواسطه عبدالله الصاري

[رنين خاطر]

ميرسى كتير لزوق وكرم اخلاق حضرتك أستاذ عبد الله

تفضل دى شعبة فنى معامل صف ثانى ويتبقى شعبة تصنيع غذائى و شعبة إنتاج حيوانى والشعبة المهنية صف ثانى

ثانى فنى معامل2.xls شهادات ثانية فنى معامل.rar

تم تعديل يوليو 9, 2019 بواسطه رنين خاطر

[رنين خاطر]

لو سمحت أستاذ عبد الله عند التعديل فى هيد شيت الصف الأول المهنى فى ورقة العمل (نتائج ) تظهر الرسالة المرفقة وأيضا عن احتساب النسبة الكلية للنجاح ( % للنجاح ) بورقة العمل احصاء المتقدمين والتى تتم بقسمة جملة الناجح بنين وبنات على جملة الحاضر بنين وبنات تأتى أيضا نفس الرسالة المرفقة

[عبدالله الصاري]

هذه الرسالة عملتها قصدا لحماية المعادلات  سوف الغيها ان اردت

التعديل في صفحة نتائج يسبب اخطاء جسيمة لانها مرتبطة باكثر من خلية وصفحة

ان كان هناك شئ تريدين تعديلة اخبريني

يجب ادخال اسماء فعلية ودرجات فعلية للتجربةوتجربة الازرار والطباعة

هناك اوامر وتصفية تتم خلال عمل الكود

أول زراعى2019دور ثانى.xlsm

 

 

 

تم تعديل يوليو 9, 2019 بواسطه عبدالله الصاري

[عبدالله الصاري]

مهني.xlsm

[رنين خاطر]

صباح الخير أستاذ عبد الله

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

وبخصوص الرصد فإن شاء الله سوف أقوم بالرصد الفعلى اليوم بالمدرسة (الصف الأول الزراعى والمهنى) وسأبلغ حضرتك بالنتائج عند عودتى