برنامج لرصد مخالفات الطلاب

[أبوســـارة1973]

السادة أعضاء المنتدى الكرام

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

تحية طيبة وبعد ،،،

الملف المرفق عبارة عن بداية لمشروع صغير ( برنامج لرصد المخالفات الطلابية ) والتي تتمثل في :

1- التأخر الصباحي ويرمز لها بـــ ( ص ) 2 - التسرب من الحصص ويرمز لها بـــ ( س ) 3- التأخر عن دخول الحصص ويرمز لها بــ ( ت )

4- الغياب الكامل ويرمز لها بـــ ( غ ) 5- الخروج من الصف أثناء ال 5 دقائق ورمز لها بـ ( خ ) 6- الهروب من المدرسة ويرمز لها بــ ( هـ )

والمطلوب أعزائي منكم هو مساعدتي في إكمال هذا المشروع المتواضع ، حيث يحتاج إلى وضع كود في الزر 7 ( Button 7 ) في صحفة ( الفرق ) لترحيل البيانات وذلك على أساس أن الطالب الذي سُجلت عليه مخالفة - بحسب الترميز السابق - تُرحل بياناته ( الرقم الشخصي - اسمه - فرقته ) وتاريخ المخالفة ( الخلية C6) والحصة التي وقعت فيها المخالفة إلى الصفحة المخصصة لهذه المخالفة .

فإذا سُجلت على الطالب مثلاُ ( غ) في عمود الحصة الأولى فإنه يرحل البيانات المطلوبة إلى صفحة ( الغياب ) مع مراعاة أن الطالب قد تسجل عليه حالات متكررة من نفس المخالفة في تواريخ مختلفة ، ففي هذه الحالة لا داعي لإدارج صف جديد له لتسجيل بياناته بل تسجل الحصة والتاريخ في أول عمودين فارغين .

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

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

ودعائي له وللأخوة الكرام أن يديم الله عليهم نعمة الأمن والأمان والصحة والسلامة في الدين والدنيا .

أخوكم أبو ســـــــــــــــــارة

_______________.rar

[أبوســـارة1973]

في انتظار المطلوب من الأخوة الكرام

وأن شاء الله في ميزان حسناتكم

[أبوســـارة1973]

ألا من ناصر ينصرني ؟؟

[أبوســـارة1973]

هل طلبي غير واضح ؟

يمكنكم إعطائي الفكرة ( الكود ) وأستطيع أن أطبق على الملف

رجاءً لا تبخلوا عليّ بعلمكم

أناشدكم يا أهل العلم والمعرفة

[norybano]

حياكم ..

قرات موضوعكم ...

بشوف ملفكم المرفق ..

ولما يكون عندي رد راح ارجع واعلق ..

تقبلوا تحياتي ..

[أبوســـارة1973]

لأول مرة منذ أن عرفت هذا المنتدى العامر

أطلب شيئاً من الأخوة الكرام فلايساعدوني

احتاج إلى المساعدة فمن يحصل على الأجر بمساعدة المحتاج ؟

[أبوســـارة1973]

للرفع

[أبوســـارة1973]

للرفع

[أبوســـارة1973]

للرفع

[الجزيرة]

للرفع

أخي أبو سارة

موضوعك جميل ومهم لجميع المعلمين والمعلمات

وأنا متأكد بأن هناك من يقوم الآن بتجهيز البرنامج ولكن ( الصبر )

بارك الله فيكم جميعاً : )

[أبوســـارة1973]

شكراً أخي العزيز ( الجزيرة ) لمرورك الكريم .

[أبوســـارة1973]

up

[أبوســـارة1973]

up

[ابو اسامة العينبوسي]

السلام عليكم

هنا تجريب لما تريد ان كان المطلوب اكمل الحل

Sub ÒÑ7_äÞÑ()
Dim cell As Range
For Each cell In Sheets("ÇáÝÑÞ").Range("ClassA")
If cell.Value = "Ê" Then
A = cell.Column
c = cell.Row
Sheets("ÇáÊÃÎÑ").Select
B = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(B, A).Value = Sheets("ÇáÝÑÞ").Cells(8, A)
ActiveSheet.Cells(B, A).Offset(0, -1).Value = Sheets("ÇáÝÑÞ").Range("i6")
ActiveSheet.Cells(B, 1).Value = Sheets("ÇáÝÑÞ").Cells(c, 1)
ActiveSheet.Cells(B, 2).Value = Sheets("ÇáÝÑÞ").Cells(c, 2)
ActiveSheet.Cells(B, 3).Value = Sheets("ÇáÝÑÞ").Cells(c, 3)
ActiveSheet.Cells(B, 4).Value = Sheets("ÇáÝÑÞ").Cells(c, 4)
End If
Next cell
End Sub

_______________.rar

[نزار سليمان عيد]

اخي الفاضل ابو اسامة

جزاك الله خيرا

من فضلك عندي ملاحظة على الكود وتتمثل بتكرار البيانات في كل ترحيل لو يتم مقارنة البيانات لكي لا تتكرر

مع وافر التقدير

ابو خالد

[أبوســـارة1973]

جزاك الله خير الجزاء أخي أبو أسامة

وياليت يتم التعديل بحسب ملاحظة أخي نزار سليمان

[ابو اسامة العينبوسي]

السلام عليكم

عساه يكون المطلوب (تجريب ايضا)

Sub ÒÑ7_äÞÑ()
Dim cell As Range
 For x = 9 To 42
  z = 6
  For y = 6 To 12
   If Sheets("الفرق").Cells(x, y) = "ت" Then
    Sheets("التأخر").Select
    B = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    ActiveSheet.Cells(B, z).Value = Sheets("الفرق").Cells(8, y)
    ActiveSheet.Cells(B, z - 1).Value = Sheets("الفرق").Cells(6, 9)
    ActiveSheet.Cells(B, 1).Value = Sheets("الفرق").Cells(x, 1)
    ActiveSheet.Cells(B, 2).Value = Sheets("الفرق").Cells(x, 2)
    ActiveSheet.Cells(B, 3).Value = Sheets("الفرق").Cells(x, 3)
    ActiveSheet.Cells(B, 4).Value = Sheets("الفرق").Cells(x, 4)
   End If
  z = z + 2
  Next y
 Next x
End Sub

_______________2.rar

تم تعديل فبراير 28, 2009 بواسطه ابو اسامة العينبوسي