برنامج تقويم الأداء الوظيفي للمعلمين

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

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

مع نهاية العام الدراسي 2009-2010 نحتاج إلى استمارات تقويم الأداء الوظيفي للمعلمين

ومن خلال متابعتي لمواضيع هذا المنتدى العامر استطعت أن أقوم بتصميم برنامج متواضع لهذا الغرض

ولكن أحتاج لبعض التعديلات ليكون متكاملاً

المطلوب :

في فورم ادخال درجات التقدير و فورم إدخال درجات معلم الرياضة يسمح بإدخال درجات لمعلم قد تم مسبقاً إدخال درجات له ، والمطلوب هو عدم السماح الإدخال لمعلم تم إدخال درجاته ، وفي هذه الحالة المطلوب إظهار رسالة تفيد بذلك ، ويعطي خياراً لتعديل درجاته أو اختيار المعلم التالي الذي لم تدخل له درجات التقويم .

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

abuzainab73_form.rar

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

الأوراق محمية

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

عذرا

رقم الحماية :9224

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

بداية

اختصرت كود الترحيل شوية

Private Sub CommandButton2_Click()

Sheets("ÇáßÔÝ2").Select

 Dim EndRow As Long

  EndRow = Sheets("ÇáßÔÝ").Range("a3").CurrentRegion.Rows.Count

   Sheets("ÇáßÔÝ2").Cells(EndRow + 3, 1).Value = ComboBox1.Value

  For i = 1 To 31

   Sheets("ÇáßÔÝ2").Cells(EndRow + 3, i + 1).Value = Me.Controls("TextBox" & i).Value

   ComboBox1.Value = ""

   Next i

   For j = 1 To 34


   Me.Controls("TextBox" & i).Value = ""

   Next j




          MsgBox Prompt:="ÊãÊ ÚãáíÉ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ"



End Sub

[الحسامي]

السلام عليكم

اخي كيماس انت انسان اكثر من رائع وبعيداً عن المجاملة

فأنت من الذين نعتز بهم في هذا المنتدى

وللفائدة :

بما أنك عملت حلقة تكرارية للترحيل فذلك لا يمنع من

مسح البيانات من textbox مباشرة بعد عملية الترحيل

أو بصورة أوضح يمكنك وضع سطر مسح البيانات بعد سطر الترحيل داخل

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

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

وليس على عدد مرات التكرار

  For i = 1 To 34

  Sheets("C??O?2").Cells(EndRow + 3, i + 1).Value = Me.Controls("TextBox" & i).Value

  Me.Controls("TextBox" & i).Value = ""

  Next i

ComboBox1.Value = ""

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

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

أخيرا حصلت على شهادة أعتز بها من أستاذى و معلمى

بداية أرجو المعذرة لأن هذه الفكرة تعلمتها حديثا جدا

من معلمى عماد الحسامى بارك الله فيه

أما ما تفضلتم به من إدخال المسح مع اللصق بحلقة واحدة و هذا منطقى طبعا و قد هممت به ولكن

منعنى منه اختلاف العدد فى المسح عنه فى اللصق أو هكذا هيىء لى

أما إفراد ال combobox فلأنه نوع مختلف سيخل بالحلقة عند الربط ب &

وقد سقط سهوا منى داخل الحلقة

هل هذا عذر مقبول؟

بارك الله فيك

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

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

لقد جربت الكود الذي تفضل الأستاذ / kemas به علينا

منفرداً مرة ومع تعديل الأستاذ / الحسامي مرة أخرى

ولكنهما لا يفيان بالغرض

حيث أن المطلوب هو :

في حال اختيار معلم قد تم رصد دجات له مسبقاً من combobox1 يظهر رسالة تفيد بذلك ، ويعطي خياراً لتعديل درجاته أو اختيار المعلم التالي الذي لم تدخل له درجات التقويم .

أعذروني إذا لم أستطع توصيل الفكرة

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

شاكراً استجابتكم وتفاعلكم في الموضوع

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

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

الكود السابق ليس لتنفيذ ما طلبت

بل هو لاختصار عدد سطور الكود الأسبق

أما ما طلبت

فلى سؤال

من أين يأخذ مربع السرد القيم

حتى نفهم سير البرنامج أكثر

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

نعم حتى لاختصار الكود الطويل الموجود في ملفي ، فإن الكود الجديد لا يفي بغرض الكود القديم

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

تم تعديل يوليو 10, 2010 بواسطه abusarah73

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

هناك خلط كبير جدا بهذا الملف

بين الكشف

الكشف2

و استخدام حدث التغيير مع مربع السرد هو أساس المشاكل

لأنه يعوق عمل كود الترحيل

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

المطلوب الآن هو عند اختيار معلم قد تم مسبقاً إدخال درجاته يعطي رسالة بذلك وإمكانية تغير درجاته أو إدخال درجات لمعلم آخر لم يتم إدخال درجاته .

شكراً للجميع

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

هل من مجيب ؟؟؟

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

up

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

فيا من يرويني من عذب عيونها فقد ظمئت نفسي وعزّ شراب ؟

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

هل يمكن أحد يساعدني في المطلوب ؟

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

المطلوب :

عند اختيار معلم قد تم مسبقاً إدخال درجاته يعطي رسالة بذلك وإمكانية تغير درجاته أو إدخال درجات لمعلم آخر لم يتم إدخال درجاته .

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

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

في انتظار دعمكم

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

للرفع

[عبدالله باقشير]

السلام عليكم

تم التعديل في UserForm1

عند اختيار معلم قد تم مسبقاً إدخال درجاته

ستظهر بياناته امامك في الفورم

وستظهر كلمة تعديل على الزر CommandButton2

عند اختيار معلم لم يتم مسبقاً إدخال درجاته

ستظهر كلمة ترحيل على الزر CommandButton2

واذا لم تختار شيئا

ستظهر كلمة اختر من القائمة على الزر CommandButton2

وقد تم اختصار الكود

وفصل الاكواد حسب آلية عملها

شاهد المرفق

اكسل 2003

abuzainab73_form.rar

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

أحسنت أستاذي بارك الله فيك

برجاء تطبيق نفس الفكرة على الفورم الثاني الموجود في نفس الملف

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

تم تعديل أبريل 28, 2011 بواسطه abusarah73

[صيام]

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

استاذى الفاضل لقد جربت كثير من الاكواد التى تفضلت بها

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

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

أحسنت أستاذي بارك الله فيك

برجاء تطبيق نفس الفكرة على الفورم الثاني الموجود في نفس الملف

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

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

ألف شكر لك أستاذي الفاضل لقد تعلمت أشياء كثيرة من هذا الملف ومن غيره من اعمالك المتميزة

[MAHMOUD ALI YOUSSEF]

جزاكم الله وجعل الله ذلك فى ميزان حسناتكم :clapping:

[cat101]

السلام عليكم

ما شاء الله عليك اخي خبور

اقل ما يمكن ان يقال عن هذا العمل

انه تحفة فنية بكل ما تحمله الكلمة من معنى

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

وكان الله في العون