عمل دفتر غياب للطلبة

[aymanmorcy]

ارجو ان يساعدني احد الخبراء

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

و كيف اجعل الصفحة الاولى فارغة الا من عنوان ( غياب الطلبة )

ثم غياب الصف الاول

ثم غياب الصف الثاني

ثم غياب الصف الثالث

[ياسر خليل أبو البراء]

فكرة جميلة جداً أخ أيمن

ممكن ترفق ملف بالشكل المطلوب لبدء العمل عليه

أخوك أبو البراء

[عبد الفتاح كيرة]

عمل دفتر 5 سلوك الكترونيا بالاكسل

المشكة لا أظنها فى عمل الدفتر

المشكلة

من سيفرغ غياب الطلاب يوميا فى البرنامج

[aymanmorcy]

في البداية احب اشكركم YasserKhalil & kemas على تعاونكم الجاد و احب ان اؤكد انه تم عرض الفكرة على ادارة المدرسة و تحمس الجميع لها و تم الموافقة على تفرغ احدى الاداريات لتسجيل الغياب اليومي لكل طلاب المدرسة بعد تجميعة من الفصول و لكن ظهرت طلبات اخرى للبرنامج اولها احصائية الطلبة اليومية و حصر غياب الطلبة المتجاوزين العشر ايام غياب

انا جهزت نموذج بسيط جدا و ما اريد منكم مشاركتي فية هو

1) امكانية فتح البرنامج على تاريخ اليوم بالنسبة للادارية التي ستعمل على الجهاز و امكانية استخراج احصائية الطلاب اليومية

مقيد حاضر غائب

الصف الاول

الصف الثاني

الصف الثالث

و عمل باصوورد لمدير البرنامج لمتابعة غياب الطلبة عموما و طلب الطلبة المتجاوزين 10 ايام و ما شابه

2) عمل كليك في الخانة المقابلة لاسم الطالب فيتم ادراج علامة اكس او نقطة او تظلل الخانة .....لان الذي يعمل على التسجيل ليس بالشرط خبير في الاكسيل

Book1.rar

تم تعديل يوليو 3, 2010 بواسطه aymanmorcy

[عبد الفتاح كيرة]

يبدو أن مدرستكم متعاونة جدا

عموما

هذه معادلة حساب عدد أيام الغياب

كبداية فقط

= COUNTA(D2:O2)

يجب إضافة عمود للشهر

و أن يبدأ الشهر من 1 و ينتهى فى 31

لجميع الأشهر

حتى سبتمبر

[aymanmorcy]

معاك أول بأول تم تحديث الخانات و اضافة معادلة حساب عدد الايام مع مراعاه انني سوف اقوم بحذف ( أو اخفاء ) ايام الجمعة و الاجازات بعد مراجعه الخطة الزمنية للعام الدراسي 2010 / 2011

مرفق التعديلات ( انا شغال ب اكسيل 2007 كويس و لا ارجع ل اكسيل 2003 )

Book1.rar

[ياسر خليل أبو البراء]

الأخ الحبيب أيمن

قمت بعمل تظليل للعمود الخاص بتسجيل الغياب إذا كان موافقاً لتاريخ اليوم أي أنه يتم تظليل اليوم الذي سيتم فيه التسجيل فإذا كان اليوم هو 4/7/2010 فسيتم تظليل هذا اليوم

إليك الملف المرفق يوضح ذلك

أخوك أبو البراء

ConditionalFormattingForToday.rar

[aymanmorcy]

الاخ العزيز أبو البراء

تم التحديث لكل الملف و اكملت شهر يوليو على سبيل التجارب و باقي

1- الكليك تعمل ( غـ )

2- واجههة الصفحة و ارتباطها بالصفحات التالية

ConditionalFormattingForToday.rar

[أبو محمد سلامة]

الأخ العزيز أيمن

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

مع الشكر للجميع

سجل غياب طلاب.rar

[ياسر خليل أبو البراء]

بارك الله فيك أبو محمد

حل جميل ورائع

وإذا أردت أن يتم كتابة "غ" بمجرد كليك واحدة فغير حدث الكود الذي تفضل به الأخ أبو محمد سلامة - جزاه الله خيراً

كالتالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Target.Column > 3 And Target.Column < 35 And Target.Row > 2 And Target.Value <> "غ" Then

Cancel = True

Target.Value = "غ"

Else

Cancel = True

Target.Value = ""

End If

End Sub

تم تعديل يوليو 4, 2010 بواسطه YasserKhalil

[ياسر خليل أبو البراء]

لي اقتراح أخ أيمن ::

أن يكون كل صف منفصل حتى يتم التعامل مع الملف بسهولة ويسر

هذا مجرد رأي ليس أكثر

[أبو محمد سلامة]

الأخ العزيز ابو البراء

جزاك الله كل خير على كلامك وذوقك وعلى المعلومة الإضافية ولكن ليعمل الكود بهذه الطريقة عند الرغبة في مسح ال "غ" تحتاج ان تنتقل لأي خلية أخرى ثم تختار الخلية المطلوب مسح الغياب منها ، ولكن إن أردت تسهيل العملية بكليك واحدة ممكن تستخدم كود Before Right Click وفي الحالة دي تستخدم كليك واحدة يمين ، عموما في المرفق وضعت الفكرتين معا دبل كليك وكليك يمين والطريقتين بيعملوا بشكل جيد . ولك الشكر الكبير .

تسجل غياب طلاب بدبل كليك أو كليك يمين.rar

[عبد الفتاح كيرة]

السلام عليكم

هذا الكود مساهمة منى

وظيفته : ترحيل أسماء التلاميذ الذين تجاوزوا غياب9 أيام فأكثر فى شهر يوليو

املأ بعض الخانات لأسماء مختلفة فى شهر يوليو = غ

ثم اضغط على الزر المسمى

" غياب عشرة أيام فأكثر "

لاحظ النتائج

سجل غياب طلاب-ترحيل 10.zip

تم تعديل يوليو 4, 2010 بواسطه kemas

[aymanmorcy]

اخواني الاحباء ( أبو البراء & kemas & أبو محمد سلامة )

أنا شاكر لكم جداً تعاونكم الصادق و بجد اجمل صور العمل الجماعي المثمر ان تجد من يعمل معك يدا بيد ليظهر العمل بصورة مشرفة

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

1- الملف يفتح على الصفحة الرئيسية و يطلب المستخدم و كلمة السر

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

لي اقتراح أخ أيمن ::

أن يكون كل صف منفصل حتى يتم التعامل مع الملف بسهولة ويسر

هذا مجرد رأي ليس أكثر

الاخ العزيز أبو البراء

مش مركز معاك او بمعنى آخر مش فاهم لاني بالاكثر انا متمرس في الوورد و بفهم اكسيل و حاصل على icdl بس مش متمرس فى الاكسيل ( فهمني قصدك )

عدلت تصميم الصفحة الرئيسية و شوية تغييرات على قدي

سجل غياب طلاب-.rar

تم تعديل يوليو 5, 2010 بواسطه aymanmorcy

[aymanmorcy]

لي اقتراح أخ أيمن ::

أن يكون كل صف منفصل حتى يتم التعامل مع الملف بسهولة ويسر

هذا مجرد رأي ليس أكثر

اخيراً وصلت المعلومة قصدك بالصف كل صف دراسي في ملف منفصل . معلش

عمموما انا خلصت جزء من العمل و معلش عندي طلب تجهيز الاحصاء اليومي و ان يتم تثبيت شي في الملف زي

(الصفحة الرئيسية بالكامل مع اعداد ايمن مرسي مع الشكر لمنتدي اوفسيناو غلق التحرير ) مثلاً انت فاهم قصدي

او بمعنى آخر تقفيل الشغل بحيث ما حدش يلعب او يغير فية

سجل غياب طلاب-.rar

تم تعديل يوليو 5, 2010 بواسطه aymanmorcy

[عبد الفتاح كيرة]

تفضل يا أستاذنا

تم تعديل الكود ليظهر الفصل

أما تمييز المتجاوزين للغياب باللون الأحمر

فتم عن طريق التنسيق الشرطى

Sub enzarat()

'

' Enzarat ãÇßÑæ

'ÇÓÊÎÑÇÌ ÇáÊáÇãíÐ    ÇáÐíä ÊÌÇæÒæÇ 10 ÃíÇã ÛíÇÈ

' ãÝÊÇÍ ÇáÇÎÊÕÇÑ: Ctrl+Shift+v

'

   Application.ScreenUpdating = False

    Sheets("ÅäÐÇÑÇÊ").Select

   Range("b6:d496").ClearContents

    Range("b6").Select

    Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

    Range("ai3").Select

    For i = 1 To 496


        If ActiveCell > 9 Then

             ActiveCell.Offset(0, -33).Select

             Selection.Copy

             Sheets("ÅäÐÇÑÇÊ").Select

             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

                 :=False, Transpose:=False

             Application.CutCopyMode = False

             ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit

            Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

             ActiveCell.Offset(0, 33).Range("A1").Select

             Selection.Copy


            Sheets("ÅäÐÇÑÇÊ").Select

            ActiveCell.Offset(0, 1).Select

            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

                 :=False, Transpose:=False

             Application.CutCopyMode = False

             ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit


             Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

             ActiveCell.Offset(0, -32).Range("A1").Select

             Selection.Copy

             Sheets("ÅäÐÇÑÇÊ").Select

            ActiveCell.Offset(0, 1).Select

            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

                 :=False, Transpose:=False

             Application.CutCopyMode = False

             ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit




             ActiveCell.Offset(1, -2).Select

             Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

              ActiveCell.Offset(1, 32).Select

        Else


            Sheets("ÇáÕÝ ÇáÇæá ÇáÇÚÏÇÏí").Select

            ActiveCell.Offset(1, 0).Select


        End If


    Next i

    Sheets("ÅäÐÇÑÇÊ").Select

    Range("b6").Select

        Application.ScreenUpdating = True

End Sub

المرفقات

سجل غياب طلاب-ترحيل 10 مع الفصل.zip

[aymanmorcy]

اخي العزيز kemas

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

اخواني الاعزاء

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

سجل غياب طلاب-.rar

تم تعديل يوليو 6, 2010 بواسطه aymanmorcy

[عبد الفتاح كيرة]

أنا استخدمت شهر يوليو كمثال

أكمل أنت الباقى على نفس النمط

[ياسر خليل أبو البراء]

الأخ الحبيب أيمن

لاحظت ان عملية الغياب تسجل فقط في شهر يوليو و مش شغالة في باقي الشهور

قمت بتعديل بسيط على الكود لتتمكن من تسجيل الغياب في باقي الشهور

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

أخوك أبو البراء(إدارة الحمام التعليمية)

AbsenceRecord.rar

[ياسر خليل أبو البراء]

الأخ أيمن

طلبت الإحصاء

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

[ياسر خليل أبو البراء]

الأخوة الأحباب

قمت بعد إذن الأخ كيماس باختصار الكود الخاص باستخراج كشف إنذارات لمن تعدى عدد أيام الغياب 10 أيام أو أكثر

أخوكم أبو البراء

AbsenceRecord_2.rar

[aymanmorcy]

اخي الحبيب ابو البراء

الملف المطلوب في آخر شيت الاحصاء

وارجو ان تشرح لي ازاي جعلت باقي الشهور تقبل ان يسجل فيها الغياب

AbsenceRecord.rar

تم تعديل يوليو 6, 2010 بواسطه aymanmorcy

[aymanmorcy]

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

أخوك أبو البراء(إدارة الحمام التعليمية)

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

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

ارجو ان لا تنس اعطائي طريقة اغلاق بعض الاجزاء كما سبق

مع جزيل الشكر و العرفان لكم اخواني في هذا المنتدى الاكثر من رائع

[ياسر خليل أبو البراء]

الأخ أيمن مرسي

صبحك الله بكل خير...

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

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

أخوك أبو البراء

AbsenceRecord_3.rar

[منياوى]