طريقة إدراج ملاحظات وإرشادات جديدة

[dodo222]

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

لدي شيت إكسيل خاص بالأستاذ لإدراج نقاط الطلاب للطور الثانوي

وكما أني أعمل بإدارة الثانوية أريد التعديل في خلايا الملاحظات وأيضا خلايا إرشادات للتحسن، أريد حذف بعض الإرشادات وتغييرها ولكن لا أعرف ذلك..

اي بالضغط على أي خلية مرتين تطلعلك الإرشادات كما هو موضح أمامكم

أرجو منكم مساعدتي في طريقة إدراج ملاحظات وإرشادات جديدة بارك الله فيكم...

 

 

 

example11.xls

[بن علية حاجي]

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

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

وجمعة مباركة.

بن علية حاجي

example12.xls

[dodo222]

تفضل 

 عبد اللاوي فصل 1.rar

[بن علية حاجي]

السلام عليكم

كنت أعمل على الملف حيث أني لاحظت أن الملاحظات في كل ورقة (شيت) حسب كل فصل (ثلاثي) يتم جلبها من العمود DA (الذي كان مخفيا وتم إظهاره) والكود خاصته تجده في حدث ThisWorkbook (كود النقر المزدوج)... (لم أتصرف في الكود)..

بن علية حاجي

عبد اللاوي فصل 1.rar

[بن علية حاجي]

السلام عليكم

إذا كنت تريد التعديل على هذه الملاحظات فما عليك إلا مسح التي تريد وتستبدل بجديد في العمود DA من الخلية DA7 إلى الخلية DA58، فقط يجب الالتزام بعدد الصفوف في فصل : الفصل الأول من 7 إلى 30 والفصل الثاني من 31 إلى 44 والفصل الثالث من 45 إلى 58 (تعمل ذلك في شيت وتنسخ في الشيتات الأخرى)... والله أعلم

بن علية حاجي

 

السلام عليكم

أنبه أنه يمكن التعديل على الملاحظات في ورقة إضافية (بعد أن ننسخ فيها الملاحظات الموجودة حاليا في العمود DA) ثم نقوم بلصقها كقيم في العمود DA بداية من الخلية DA7 (حتى دون إظهار هذا العمود -نتركه مخفيا-)... ويمكن أيضا إضافة ملاحظات جديدة في العمود DB -مثلا- خاصة بعمود "إرشادات للتحسن" مع تعديل طفيف على الأكواد ليجلب قوائم الملاحظات الخاصة بكل عمود... هذا كله دون المساس بتنسيق الملف الأصلي ماعدا في إضافة ورقة جديدة للملاحظات والتعديل الطفيف على الكود الذي ذكرته...

بن علية حاجي 

[dodo222]

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

وخصوصا هذا البرنامج الذي اعمل به كثيرا

[بن علية حاجي]

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

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

إذا أردت أن تكون قائمة ملاحظات "التقديرات" وملاحظات "الإرشادات للتحسن" مختلفة ينبغي التعديل على الكود الموجود في كود اليوزفورم Moumtaze :

Private Sub UserForm_Initialize()
  Dim NB1 As Integer
  ListBox1.Clear
  For NB1 = Deb To Fin
    ListBox1.AddItem (Cells(NB1, "DA").Text)
  Next
End Sub

بتغييره إلى الكود:

Private Sub UserForm_Initialize()
  Dim NB1 As Integer
  ListBox1.Clear
  If Xx = 9 Then Me.Caption = "اختيار الملاحظات" Else Me.Caption = "اختيار الإرشادات للتحسن"
  For NB1 = Deb To Fin
    ListBox1.AddItem (Cells(NB1, IIf(Xx = 9, "DA", "DB")).Text)
  Next
End Sub

هذا ما فعلته في الملف المرفق وليس لي فكرة أخرى...

ملاحظة: بالنسبة لملفاتك أو ملفات أساتذة آخرين يمكن نقل الشيت "إضافية" من الملف المرفق إلى هذه الملفات (الكود المرفق بالشيت يُنقل تلقائيا من الشيت)...

بن علية حاجي

عبد اللاوي فصل 1.rar