أبوســـارة1973 قام بنشر فبراير 8, 2009 قام بنشر فبراير 8, 2009 السادة أعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد ،،، الملف المرفق عبارة عن بداية لمشروع صغير ( برنامج لرصد المخالفات الطلابية ) والتي تتمثل في : 1- التأخر الصباحي ويرمز لها بـــ ( ص ) 2 - التسرب من الحصص ويرمز لها بـــ ( س ) 3- التأخر عن دخول الحصص ويرمز لها بــ ( ت ) 4- الغياب الكامل ويرمز لها بـــ ( غ ) 5- الخروج من الصف أثناء ال 5 دقائق ورمز لها بـ ( خ ) 6- الهروب من المدرسة ويرمز لها بــ ( هـ ) والمطلوب أعزائي منكم هو مساعدتي في إكمال هذا المشروع المتواضع ، حيث يحتاج إلى وضع كود في الزر 7 ( Button 7 ) في صحفة ( الفرق ) لترحيل البيانات وذلك على أساس أن الطالب الذي سُجلت عليه مخالفة - بحسب الترميز السابق - تُرحل بياناته ( الرقم الشخصي - اسمه - فرقته ) وتاريخ المخالفة ( الخلية C6) والحصة التي وقعت فيها المخالفة إلى الصفحة المخصصة لهذه المخالفة . فإذا سُجلت على الطالب مثلاُ ( غ) في عمود الحصة الأولى فإنه يرحل البيانات المطلوبة إلى صفحة ( الغياب ) مع مراعاة أن الطالب قد تسجل عليه حالات متكررة من نفس المخالفة في تواريخ مختلفة ، ففي هذه الحالة لا داعي لإدارج صف جديد له لتسجيل بياناته بل تسجل الحصة والتاريخ في أول عمودين فارغين . وهكذا في بقية المخالفات ، علماً بأن التسجيل يكون بشكل يومي ، وليبدو البرنامج متكاملاً يرجى إضافة ( صفحة ) للاستعلام عن مخالفات طالب معين وطباعة تقرير المخالفات بحسب التواريخ والحصص . أرجو ممن يجد في نفسه القدرة على مساعدتي إلا يبخل عليّ بعلمه ، ودعائي له وللأخوة الكرام أن يديم الله عليهم نعمة الأمن والأمان والصحة والسلامة في الدين والدنيا . أخوكم أبو ســـــــــــــــــارة _______________.rar
أبوســـارة1973 قام بنشر فبراير 10, 2009 الكاتب قام بنشر فبراير 10, 2009 في انتظار المطلوب من الأخوة الكرام وأن شاء الله في ميزان حسناتكم
أبوســـارة1973 قام بنشر فبراير 11, 2009 الكاتب قام بنشر فبراير 11, 2009 هل طلبي غير واضح ؟ يمكنكم إعطائي الفكرة ( الكود ) وأستطيع أن أطبق على الملف رجاءً لا تبخلوا عليّ بعلمكم أناشدكم يا أهل العلم والمعرفة
norybano قام بنشر فبراير 12, 2009 قام بنشر فبراير 12, 2009 حياكم .. قرات موضوعكم ... بشوف ملفكم المرفق .. ولما يكون عندي رد راح ارجع واعلق .. تقبلوا تحياتي ..
أبوســـارة1973 قام بنشر فبراير 14, 2009 الكاتب قام بنشر فبراير 14, 2009 لأول مرة منذ أن عرفت هذا المنتدى العامر أطلب شيئاً من الأخوة الكرام فلايساعدوني احتاج إلى المساعدة فمن يحصل على الأجر بمساعدة المحتاج ؟
الجزيرة قام بنشر فبراير 17, 2009 قام بنشر فبراير 17, 2009 للرفع أخي أبو سارة موضوعك جميل ومهم لجميع المعلمين والمعلمات وأنا متأكد بأن هناك من يقوم الآن بتجهيز البرنامج ولكن ( الصبر ) بارك الله فيكم جميعاً : )
أبوســـارة1973 قام بنشر فبراير 18, 2009 الكاتب قام بنشر فبراير 18, 2009 شكراً أخي العزيز ( الجزيرة ) لمرورك الكريم .
ابو اسامة العينبوسي قام بنشر فبراير 28, 2009 قام بنشر فبراير 28, 2009 السلام عليكم هنا تجريب لما تريد ان كان المطلوب اكمل الحل 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
نزار سليمان عيد قام بنشر فبراير 28, 2009 قام بنشر فبراير 28, 2009 اخي الفاضل ابو اسامة جزاك الله خيرا من فضلك عندي ملاحظة على الكود وتتمثل بتكرار البيانات في كل ترحيل لو يتم مقارنة البيانات لكي لا تتكرر مع وافر التقدير ابو خالد
أبوســـارة1973 قام بنشر فبراير 28, 2009 الكاتب قام بنشر فبراير 28, 2009 جزاك الله خير الجزاء أخي أبو أسامة وياليت يتم التعديل بحسب ملاحظة أخي نزار سليمان
ابو اسامة العينبوسي قام بنشر فبراير 28, 2009 قام بنشر فبراير 28, 2009 (معدل) السلام عليكم عساه يكون المطلوب (تجريب ايضا) 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 بواسطه ابو اسامة العينبوسي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.