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

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


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

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

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

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

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

المطلوب :

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

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

abuzainab73_form.rar

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

بداية

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

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 فلأنه نوع مختلف سيخل بالحلقة عند الربط ب &

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

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

بارك الله فيك

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

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

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

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

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

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

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

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

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

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

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

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

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

أما ما طلبت

فلى سؤال

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

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

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

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

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

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

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

بين الكشف

الكشف2

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

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

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

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

شكراً للجميع

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

  • 2 weeks later...
  • 8 months later...

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

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

المطلوب :

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

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

شاهد المرفق

اكسل 2003

abuzainab73_form.rar

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

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

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

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

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

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

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

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

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

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

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

  • 2 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information