اذهب الي المحتوي
أوفيسنا

طلب في كنترول مدرسي


الردود الموصى بها

أخي الفاضل جمال

هناك جزئية نسيت ان اضيفها في المعادلة والخاصة بتقدير الغائب

ولهذا سوف تصبح المعادلة بهذا الشكل

=IF(AM8="غ";"غائب";IF(AM8>=0.9*$AM$6;"ممتاز";IF(AM8>=$AM$6*0.75;"جيد جداً";IF(AM8>=0.65*$AM$6;"جيد";IF(AM8>=0.5*$AM$6;"مقبول";IF(AM8<0.5*$AM$6;"ضعيف";))))))

وهذا الجزء الذي اضفناه

IF(AM8="غ";"غائب";
رابط هذا التعليق
شارك

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

الاستاذ والاخ الحبيب محمد ابو البراء جزاك الله خيرا

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

وانعم الله عليكم بالصحة والعافية وغفر لكم

تقبلوا فائق احترامي وتقديري

  • Like 1
رابط هذا التعليق
شارك

أخى محمد أبو البراء شاكر اهتمامك الكبير وهذا هو الملف

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

رابط هذا التعليق
شارك

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

تفضل أخي الحبيب استاذ جماااال

واخبرني بالنتيجة..

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

 

صف أول ----.rar

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

1 ) جزاك الله خيرا على كلامك أخي الحبيب استاذ // جماااال

2 ) ما جعلني سعيد جدا في هذا الموضوع  شعوري بانك ترغب في التعلم وهذا شعرت به اول الموضوع

ومن خلال استفساراتك

3 ) اما شرح ما قمت به فهو كالتالي

اولاً : ما هو طلبك ؟!

الاجابة : انك تريد ترحيل بيانات الناجحين لوحدهم والراسبين لوحدهم

 ماذا يعني هذا الكلام ؟!

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

وما المشكلة؟!

المشكلة ان هذه البيانات

أ _ غير مرتبة _ بمعني اننا نرى طالب مجموعه  ناجح ثم راسب ثم راسب ثم ناجح ثم راسب وهكذا

ب _ ليس هناك عامل مشترك واحد _ بمعنى انني اعلم ان الطالب الذي تجاوز ال450 ناجح والطالب الذي اقل من 450 راسب وهذا اعرفه بالنظر ولكن ليس عندي في الشيت شي عملي يدل على ذلك.

وهذا الكلام يعني ايضا اننا ليس عندنا عامل مشترك لجميع الطلاب سوف نرحل عليه

وبعد هذا الكلام الطويل !!! ما العمل ؟!

العمل اننا لا بد ان نربط بين التلاميذ بعامل مشترك

وطالما انني اريد ان اقسمهم على اساس النجاح والرسوب

اذاً هذا هو العامل ترحيل على اساس حالة الطالب

كيف اقوم به ؟! _ أو خطوات العمل _ ؟!

1 )  اقوم باضافة عمود لحالة الطالب الناجح او الراسب

2 ) اما الخطوة الثانية وهي الاصعب معرفة شروط نجاح الطالب ورسوبه

وسوف اقسم شرح هذه الخطوة على جزئين

 أ ) جزء نظري

ب )  تحويل الكلام النظري الى عملي

 أ ) الكلام النظري

لمعرفة الطالب الناجح _ او ما اسميه بالقرارات الوزرارية _

او بمعنى اخر!! من هو الطالب اناجح ومن هو الطالب الراسب؟!

الاجابة :

الطالب الناجح

أ - من تجاوز مجموع كل مادة عن  نصف الدرجة ولكن بشرط ان لا يقل الطالب عن 15 درجة في اختبار التحريري للنصف الثاني

 الطالب الذي له دور ثان

هو الطالب الذي لم يتجاوز مجموعه نصف المادة او تجاوز نصف المادة واقل من 15 درجة

وركز في هذه الجزئية لاننا سوف ننتقل الى القسم الثاني وهو العملي

يلا نحول هذا الكلام الى معادلات لمادة واحدة فقط

وقبل ان ابدئ في المعادلات علينا ان نراجع قاعدة مهمة (and ) و (or)

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

كيف هذا؟!

مثال

( رسوب الطالب في المادة به شرطين الاول اقل  من النصف و الثاني  اقل من 15 درجة )

فــــ (and ) تستخدم عند وجوب  تحقق  الشرطين

بمعني (  اعلى من النصف ;اعلى من 15 درجة ) ; ناجح ; راسب

النتيجة التى ستخرج ناجح (لتحقق الشرطين)

اما اذا كانت ( اعلى من النصف ;اقل من 15 درجة ) ; ناجح ; راسب

النتيجة سيكون راسب ( والسبب عدم تحقق الشرطين )

اما or

يتم  عند تحقق شرط واحد

 نفس المثال السابق ولكن ب or

( اعلى من النصف ;اقل من 15 درجة ) ; ناجح ; راسب

النتيجة ناجح ( والسبب هو تحقق شرط واحد وهو  اعلى من النصف ) .

اتمنى ان تكون وصلت الفكرة قبل السير في تكملة الموضوع والسير في الجزء العملي

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

طيب الان قربنا من الحل

وعندنا حلول لتنفيذ المعادلة على الشيت

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

اوالطريقة الثانية التى استخمدتها هنا في الشيت

حيث اعتمدت على مواد الرسوب الموجودة في اخر اشيت

واشترطت عند وجود ( خلية العربي فيها كلمة عربي ) الطالب راسب وهكذا في الانجليزي وهكذا في باقي المواد يتحقق الشرط الاول وهو الرسوب

اما عند عدم التحقق فتخرج النتيجة الطالب ناجح

مثال ذلك

=if(or( خلية العربي = عربي ; خلية الانجليزى = انجليزي.....وهكذا في باقي المواد) 
"راسب" ; "ناجح"

وهذه المعادلة تعني عند وجود اي خلية من خلايا مواد  الرسوب فيها مادة فالطالب له دور ثان

اما اذا كانت جميع الخلايا في مواد الرسوب فارغة فالطالب ناجح

اتمنى ان تكون وصلت الفكرة

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

وانا في انتظار اي استفسار لتكملة الجزء الترحيل

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

  • Like 1
رابط هذا التعليق
شارك

الجزء الاخير والمرتبط بعملية الترحيل

وهو خاص بكود الترحيل

وهو كود للاستاذ عبد الله باقشير

يوضع هذا الكود في مديول جديد

وهذا الكود فيه شرح لعله وافي

Sub KH_START()
متغيرات بعدد الصفحات المطلوب الترحيل اليها
Dim R As Integer, M As Integer, N As Integer
 '''  أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه
	Sheets("ناجح").Range("A9:Dp1000").ClearContents
	Sheets("دور ثان في").Range("A11:DZ1000").ClearContents
  
'''  عدد الصفوف العليا في الصفحات المنقول اليها البيانات
	M = 9: N = 9
	Application.ScreenUpdating = False
  
		  '''  بداية ونهاية صفوف الورقة المصدر
	For R = 9 To 1000
  
   '''''''''''''''''''''''''''''''''''''''''''''''''''''
  
	''' رقم عمود المعيار وكلمة المعيار
If Cells(R, 119) = "ناجح" Then
Range("A" & R).Resize(1, 119).Copy
		  
 '''  سيتم اللصق في هذا الشيت
Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues
Application.CutCopyMode = False
M = M + 1	  
	''''''''''''''''''''''''''''''''''''''''''''''''''''
  
''' رقم عمود المعيار وكلمة المعيار
ElseIf Cells(R, 119) = "دور ثان في" Then
			Range("A" & R).Resize(1, 132).Copy
 '''  سيتم اللصق في هذا الشيت
Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues
Application.CutCopyMode = False
'''  اجعل الرقم 1  الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل
N = N + 1
End If	  
   '''''''''''''''''''''''''''''''''''''''''''''''''''''
	Next
MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ")
	Application.ScreenUpdating = True
End Sub
   '''''''''''''''''''''''''''''''''''''''''''''''''''''

واذا لم تفهم فيه شئ فاخبرني

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

رابط هذا التعليق
شارك

  • 2 months later...

أستاذي الحبيب // جماااااااال

انا الحمد لله بخير !!!

ولعلك انت استاذي الحبيب بخير!!!

وااتمنى ان يكون كله على ما يرام معك

وفي انتظار اي جديد لديكم وانا في خدمتكم..

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information