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

كشف نقاط التلاميذ


dah_med

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

سلام الله عليكم أهل المنتدى

كنت عملت كشف لنقاط التلاميذ بمساعدة إخواننا في منتدنا الحبيب

وكان يعمل جيدا إلى أنني إضطررت لتقديم عمود على عمود فوقع الخلل

قدمت عمود معدل التقويم المستمر(م.ت.م) على عمود الإختبار في ورقة الفصل_1

فأصبح يضع لي نقطة (م.ت.م) في خانة الإختبار في ورقة كشف النقاط

أخوكم محمد

GESTION DES NOTE MOYEN.rar

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

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

أخي الكريم محمد، والله اشتقنا إليك كثيرا لغيابك الطويل، المهم أن تكون بخير وعافية... فيما يخص الملف قمت ببعض التعديلات على كود "الاستدعاء" الذي كان فيه الخلل بعد تبديل الأعمدة (الاختبار و م.ت.م) وأضفت أيضا نطاقين بالتسمية في ورقة "معلومات" أحدهما سميته CEL1 للأرقام 1 ، 2 ، 3 ، 5 لتعويض الصيغة في الكود

For N = 1 To 4
بالصيغة
For Each NNN In [Cel1]
والنطاق الآخر سميته CEL2 للأرقام 1 ، 2 ، 4 لتعويض الصيغة في الكود
For N = 1 To 3
بالصيغة
For Each NNN In [Cel2]

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

أخوك بن علية

GESTION DES NOTE MOYEN.rar

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

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

أخي بن علية جزاك الله خيرا على المساعدة

أما عن سبب غيابي عن منتدنا الحبيب هي كثرة الإنشغالات زد على ذلك بطء الأنترنت في الجزائر

أما بخصوص تغيير الأعمدة فاستعملت حلقة تكرار أخرى خاصة بعمود الإختبار وهي

For N = 1 To 1

( NN = Choose(N, 7

( Feuil13.Cells(CC, NN) = MyR.Cells(MyC, C + N + 3

Next

فهل يمكن أن نستغي عن تسمية النطاقين وتعويضهما برمجيا

كما أريد ترحيل خلية المجموع (c,46) وخلية المعدل الفصلي (c,47 ) وخلية الإجازات (c,48)

وجزاكم الله خيرا مسبقا

أخوكم محمد

GESTION DES NOTE MOYEN.rar

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

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

أخي الكريم محمد، تم التعديل على الكودين بما يناسب المطلوب مع الاستغناء عن النطاقات المسماة Cel1 و Cel2 (تم حذفهما من الملف) والتغييرات التي وضعتها (حتى تعرف مستوى التغييرات في الأكواد) تجدها بين سطرين من الشكل : '***************************************************************************************

أرجو أن تفي هذه التغييرات بالمطلوب....

أخوك بن علية

Gestion des Notes MOYEN_Bis.rar

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

أخي بن علية

جزاك الله كل خير هذا ما أريد أن تكون هناك لمسة برمجية

كما أريد أن تفيدني عن كيفية عمل الفصل الثاني والثالث

وهل بالإمكان المحافظة على ورقة كشف النقاط لحجز الفصل الثاني والثالث

دون الجوء لكشف ثاني لحجز الفصل الثاني وكشف ثالث لحجز الفصل الثالث

أخوك محمد

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

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

أخي الكريم محمد، عمل الفصلين الثاني والثالث يكون صورة طبق الأصل (أقصد الجدول والبيانات والتنسيقات) للفصل الأول، ويمكن وضع ورقة واحدة لكشف النقاط لكل الفصول بتعديلات طفيفة على الورقات (ورقات المصنف) وعلى الأكواد، وقد تم ذلك حسب ما يلي:

1- إضافة ورقتي الفصلين الثاني والثالث وتسميات نطاقي معلوماتهما بالاسمين Base_T2 و Base_T3 على الترتيب حسب تسمية نطاق بيانات ورقة الفصل الأول.

2- إضافة قائمة منسدلة في الخلية N6 من ورقة كشف النقاط لاختيار الفصل

3- إضافة معادلة في الخلية V1 من ورقة كشف النقاط لتحديد رقم الفصل حسب القائمة المنسدلة في N6 (وسنحتاج قيمة V1 في الكودين)

4- تم تبديل السطر

Set MyR = Range("base_T1")
بالسطر
Set MyR = Range("base_T" & Range("V1"))

في الكودين وذلك لاختيار نطاق الفصل (بالتسمية) حسب الرقم في الموجود في الخلية V1

كيفية عمل الملف: يتم اختيبار الفصل من القائمة المنسدلة في الخلية N6 ثم تنفيذ الكود الذي تريد في ورقة "كشف النقاط"

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

أخوك بن علية

Gestion des Notes MOYEN_3.rar

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

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

جزاك الله كل خير أخي بن علية

وهل بالإمكان أن تكون الفصول الثلاثة في ورقة واحدة

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

أخوك محمد

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

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

أخي الكريم محمد، لا أرى أي مشكلة في أن تكون بيانات كل فصل في ورقة مستقلة غير أنه تم تلبية طلبك مع بعض التغييرات على ورقة بيانات الفصول بجعل بيانات كل فصل في أعمدة متجاورة (وباعتبار أن عدد أعمدة هذه البيانات يفوق 256 عمود تم تحويل الملف إلى نسخة أوفيس 2007 أو أعلى) يمكن أيضا أن نضع بيانات هذه تحت بعض حسب الصفوف ولكن نضطر إلى نسخ بيانات الطلبة في جدول كل فصل... وتم أيضا تعديلات على الكودين أولا ليتم إخفاء أعمدة الفصول غير المختارة في ورقة الكشف ويتم أيضا التحويل والاستدعاء بين ورقتي "كشف النقاط" و"البيانات" بشكل صحيح حسب الفصول... وتم أيضا إنشاء كود للطباعة المتواصلة وربطه مع كود "الاستدعاء" غير أنه حُذفت رسالة "تأكيد الاستدعاء" حتى لا تظهر كل مرة في الطباعة عند التغيير من طالب لآخر... ويمكن استعمال كود "الطباعة المتواصلة" للطباعة الفردية (غير ضروي)... أرجو أن يكون هذا العمل مقبولا ومستوفيا المطلوب (مع أني أنتظر منك دائما مطلوبا جديدا)...

أخوك بن علية

Gestion des Notes MOYEN_3.rar

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

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

جزاك الله كل خير أخي بن علية

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

فإن صبرت معي مارالت طلباتي متواصلة

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

أما طلبي اليوم فهو الترحيل من دفتر الأستاذ إلى الفصل_2 والفصل الثالث

وجزاكم الله خيرا مسبقا

أخوكم محمد

GESTION DES NOTE MOYEN_4.rar

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

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

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

Set MyRange = Range("base_t1")

وتم استبداله بالسطر:
Set MyRange = Range("Base_T" & Range("V1"))

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

أخوك بن علية

GESTION DES NOTE MOYEN_4.rar

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

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

أخي الكريم محمد، أنبه أنه يوجد خطأ في معادلة حساب المعدل م.ت.م في ورقة "دفتر الأستاذ" بالنسبة للمواد غير الرئيسية (ثلاث علامات : التقويم + فرض1 + اختبار) يجب تصحيحها... والخطأ موجود في الجزء (شرط IF الثالثة في المعادلة) أي الجزء ""<> D7 وتصحيحه هو : ""<> F7 ...

أخوك بن علية

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

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

أخي بن علية جزاك الله كل خير

أما بخصوص المواد الثلاثة مادمنا لا نحجز نقطة الفرض الثاني فلا يؤثر

أم تري غيرذلك

بقي شي آخر حتى نصل إلى لمسة برمجية

وهي هل يمكن الإستغناء عن مجال الترحيل في ورقة المعلومات kh_mat

بأسطر برمجية تدرج في ماكرو ترحيل والإستدعاء

أخوك محمد

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

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

أخي الكريم محمد، إن الخطأ الذي أشرت إليه ينبغي تصحيحه لأن المعادلة (في ورقة دفتر الأستاذ) التي تحسب م.ت.م في حالة المواد من ثلاث علامات تقسم المجموع (التقويم+فرض1+فرض2) على 3 حتى وإن كانت علامة "فرض2" غير محجوزة، وقد قمت بتصحيحها في الملف المرفق والذي تم فيه (كما هو مطلوب) الاستغناء عن التسميات kh_mat و kh_mat_on و zro واستبدالها برمجيا... بعض التغييرات على الأكواد وعلى الورقات (خاصة ما يتعلق بتوحيد أسماء المواد في كل الأوراق)... الكل في الملف المرفق...

أخوك بن علية

GESTION DES NOTE MOYEN_4.rar

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

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

أخي بن علية جزاك الله كل خيرا

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

قبل أن نكمل في العمل أود أن تشرح لي هذه الأسطر cette declaration

TT = Application.WorksheetFunction.Match(Range("G4"), Feuil2.Rows("5:5"), 0)

Dim Tab1(7) As Integer

Tab1(1) = TT: Tab1(2) = TT + 1: Tab1(3) = IIf(TT >= 38, "", TT + 2): Tab1(4) = IIf(TT >= 38, TT + 2, TT + 3): _

Tab1(5) = IIf(TT >= 38, TT + 3, TT + 4): Tab1(6) = IIf(TT >= 38, TT + 4, TT + 5): Tab1(7) = IIf(TT >= 38, TT + 5, TT + 6)

أخوك محمد

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

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

أخي الكريم محمد، بالنسبة للمطلوب هو تحديد مواقع (أرقام الأعمدة السبعة) لعلامات كل مادة (تقويم مستمر - فرض1 - فرض2 - م.ت.م - اختبار - معدل - معدل×معامل) وبالتالي يكون الشرح المطلوب كما يلي:

* الأمر : TT = Application.WorksheetFunction.Match(Range("G4"), Feuil2.Rows("5:5"), 0)

هو لتعيين "رقم أول عمود للمادة" بالبحث عن اسم المادة من الخلية G4 في السطر الخامس من الورقة 2 بالدالة MATCH ووضع (تخزين) القيمة في المتغير TT

* الأمر : Dim Tab1(7) As Integer هو للإعلان عن جدول مصفوفة مقاسه 7 (جدول لسبعة قيم)

* الأوامر التالية : هي لملء هذا الجدول حسب الترتيب وتخزينها في المتغيرات من الشكل (Tab1(X حيث X يأخذ القيم من 1 إلى 7

- القيمة الأولى (عمود التقويم المستمر): Tab1(1) = TT (رقم العمود الأول للمادة)

- القيمة الثانية (عمود الفرض1) : Tab1(2) = TT + 1 (رقم عمود المادة + 1)

الشرط على العدد 38 في القيم الموالية يمثل الشرط على المواد التي لا تحتاج إلى "علامة الفرض 2"

- القيمة الثالثة (عمود الفرض2) : (Tab1(3) = IIf(TT >= 38, "", TT + 2 (إذا كانت المادة من ثلاث علامات فالقيمة هي فراغ وفي الحالة الأخرى فهي رقم عمود المادة +2)

- القيمة الرابعة (عمود م.ت.م) : (Tab1(4) = IIf(TT >= 38, TT + 2, TT + 3 (إذا كانت المادة من ثلاث علامات فالقيمة هي رقم عمود المادة +2 وفي الحالة الأخرى فهي رقم عمود المادة +3)

- القيمة الخامسة (عمود الاختبار) : (Tab1(5) = IIf(TT >= 38, TT + 3, TT + 4 (إذا كانت المادة من ثلاث علامات فالقيمة هي رقم عمود المادة +3 وفي الحالة الأخرى فهي رقم عمود المادة +4)

- القيمة السادسة (عمود المعدل) : (Tab1(6) = IIf(TT >= 38, TT + 4, TT + 5 (إذا كانت المادة من ثلاث علامات فالقيمة هي رقم عمود المادة +4 وفي الحالة الأخرى فهي رقم عمود المادة +5)

- القيمة السابعة (عمود المعدل × المعامل) : (Tab1(7) = IIf(TT >= 38, TT + 5, TT + 6 (إذا كانت المادة من ثلاث علامات فالقيمة هي رقم عمود المادة +5 وفي الحالة الأخرى فهي رقم عمود المادة +6)

مثال1 : بالنسبة لمادة "الرياضيات" فموقعها هو العمود 17 أي : TT = 17 ومنه قيم المصفوفة هي على الترتيب : 17 ، 18 ، 19 ، 20 ، 21 ، 22 ، 23

مثال2 : بالنسبة لمادة "اجتماعيات" فموقعها هو العمود 50 أي : TT = 50 ومنه قيم المصفوفة هي على الترتيب : 50 ، 51 ، "" ، 52 ، 53 ، 54 ، 55

أتمنى أن يكون الشرح مستوفيا

أخوك بن علية

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

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

إستكمالا لعمل المطلوب هو ترحيل معدلات الفصل_2 والفصل_3 إلى ورقة معدلات المواد_ف1 إي ورقة واحدة للفصول الثلاثه

مثل ما قمنا بذلك في دفتر الأستاذ

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

وكذلك كيفية ربط المعدل السنوي بكشف النقاط للفصل الثالث

أخوكم محمد

GESTION DES NOTE MOYEN_5.rar

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

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

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

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

أخوك بن علية

الملف الأول : GESTION DES NOTE MOYEN_5.rar

الملف الثاني : GESTION DES NOTES MOYEN_5Bis.rar

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

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

أخي بن علية جزالك الله كل خير على هذا المجهود المبذول

فعلا أخي الملف الأول ثقيل جدا

في إنتظار تدخل الاخوة كما قلت رغم إني أراك منهم

فهل إن وضعنا تلاثة أورق لتحليل النتائج أي ورقة لكل فصل فهل ترى أن المشكلة تزول

وإذا كان عند حلا آخر فأرجو أن تزودني به

أما بالنسبة للمجموع السنوي والاجازات والعقوبات فعندك حقا لا دعي لهما

أريد أن أرجع إلى شرحك في ردك رقم:17

لم أفهم العدد 38 كيف حسبته

الشرط على العدد 38 في القيم الموالية يمثل الشرط على المواد التي لا تحتاج إلى "علامة الفرض 2"

أخوك محمد

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

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

أخي محمد، وضعتني في مقام لست أهلا له، وجدت صعوبة كبيرة في الاهتداء إلى فكرة لحل المسألة... اقتراحك في إنشاء ثلاث أوراق للإحصاء غير ضرورية لأن العمل لواحدة يكون سهلا للحالات الأخرى، المشكل يكمن في كثرة الوسائط الإحصائية... وقد وجدتني باشرت العمل على الملف قبل ردك بقليل...

بالنسبة للعدد 38 المذكور في المعادلات التي تعين أرقام أعمدة علامات كل مادة من ورقة الفصل فهو رقم العمود الذي تبدأ منه المواد غير الأساسية (عمود الفرض2 غير موجود) فوضعت الشرط في المعادلات على أساس أنه يقوم بترقيم تسلسلي لسبعة أعمدة للمادة بداية من رقم العمود الأول لهذه المادة إذا كانت هذه المادة أساسية (رقم عمودها أصغر من 38) وإذا كانت المادة غير أساسية فإن الترقيم التسلسلي يكون لستة أعمدة للمادة (عمود الفرض2 ملغى وهو العمود الثالث) بداية من رقم العمود الأول لهذه المادة (إذا كان هذا رقم هذا العمود أكبر من أو يساوي 38)... ولك الفضل في أنك رتبت المواد (الأربعة الأولى أساسية ثم المواد غير الأساسية) في ورقة الفصل....

أخوك بن علية

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

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

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

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

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

أخوك محمد

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

السلام عليكم يا أهل المنتدى العزيز :

أخي بن علية لقد تابعت الشرح الذي قدمته لأخي محمد مما استفدت منه كثيرا ، و الذي نتمنى من الله عز و جل أن يجعله في ميزان حسناتك ، كما أشكر أخي محمد على بذل مجهوداته في طرح هذه الأسئلة ليستفيذ منها هو بصفة خاصة و زوار المنتدى بصفة عامة ...فجزاكم الله كل الخير .

أخوكم بلال

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

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