اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


dodo222
إذهب إلى أفضل إجابة Solved by بن علية حاجي,

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

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

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

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

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

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

 

 

 

example11.xls

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

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

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

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

بن علية حاجي

example12.xls

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

  • أفضل إجابة

السلام عليكم

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

بن علية حاجي

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

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

السلام عليكم

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

بن علية حاجي

 

السلام عليكم

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

بن علية حاجي 

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

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

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

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

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

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

إذا أردت أن تكون قائمة ملاحظات "التقديرات" وملاحظات "الإرشادات للتحسن" مختلفة ينبغي التعديل على الكود الموجود في كود اليوزفورم 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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information