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

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

قام بنشر

اخواني الاعزاء

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

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

قام بنشر

جزاك الله خبرا أستاذي خبور على التجاوب معي

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

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

والمطلوب هو عمل زر ماكرو للترحيل من الكشف إلى المواد في الفصل الأول

مع مسح المحتوي عند الإنتهاء من حجز نقاط كل تلميذ

كما أرجو أن أستطيع إحضار النقاط للكشف في حالة وجود خطأ في النقطة

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

قام بنشر

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

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

جزاك الله خبرا أستاذي خبور على التجاوب معي

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

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

والمطلوب هو عمل زر ماكرو للترحيل من الكشف إلى المواد في الفصل الأول

مع مسح المحتوي عند الإنتهاء من حجز نقاط كل تلميذ

كما أرجو أن أستطيع إحضار النقاط للكشف في حالة وجود خطأ في النقطة

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

قام بنشر

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

أخي hben جزاك الله خيرا على التفاعل

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

فالكشغ عبارة عن نمودج فقط تحجز فيه التقاط تم ترحل إلى الفصل الأول

ويا حبذا لو يكون الكشف عبارة عن فورم

أرجو التفاعل معي فالمشروع لا يخدم مؤسسة واحد بل يخدمة ولاية كاملة بحكم عملي مع مديرية التربية للولاية

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

أخوكم محمد

قام بنشر

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

أرجو التفاعل معي فالمشروع لا يخدم مؤسسة واحد بل يخدمة ولاية كاملة بحكم عملي مع مديرية التربية للولاية

وكما قال أخي خالد القدس فالموضوغ يحتاج إلى كبار الخبراء

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

أخوكم محمد

قام بنشر

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

أخي خبور جزاك الله خيرا على المرفق لكن يبدو أني لم أوفق في شرح المطلوب

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

وذلك بواسطة ماكرو لترحيل البيانات إلى ورقة الفصل الأول وليس كما في المرفق بواسطة INDEX

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

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

أرجو أن أكون وفقت في الشرح فإني في أمس الحاجة لهذا العمل

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

قام بنشر (معدل)

السلام عليكم

حمل المرفق من الرابط ادناه

انا لا ادري لماذا احيانا لا اقدر ان احمل ملفات

هو انا في الاول فهمت الطلب بشكل عكسي

عموما شاهد عملية الترحيل

هل هي ما تريد

وقد عملت الترحيل على قسمين ليتوضح لك فهم الكود

اولا للمواد ذات الاربع خانات

ثم للمواد ذات الثلاث خانات

تجربة في الترحيل_2.rar

تم تعديل بواسطه خبور خير
قام بنشر (معدل)
Sub KH_Start()

    Dim myR As Range

    Dim myC As Integer, R As Integer

    Dim C As Integer, CC As Integer, N As Integer, NN As Integer

    Set myR = Range("base_T1")

    myC = Feuil13.Range("H3").Value

    '-----------------------------

    'مواد الاربعة الاعمدة

    For R = 1 To 4

        C = Choose(R, 10, 14, 18, 31)

        CC = Choose(R, 27, 28, 29, 34)

        For N = 1 To 4

            NN = Choose(N, 3, 4, 5, 7)

            myR.Cells(myC, C + N - 1) = Cells(CC, NN)

        Next

    Next

    '-----------------------------

    'مواد الثلاث الاعمدة

    For R = 1 To 7

        C = Choose(R, 22, 25, 28, 35, 38, 44, 50)

        CC = Choose(R, 30, 31, 32, 35, 36, 38, 40)

        For N = 1 To 3

            NN = Choose(N, 3, 4, 7)

            myR.Cells(myC, C + N - 1) = Cells(CC, NN)

        Next

    Next

        '-----------------------------

    MsgBox "تم الترحيل"

End Sub

تم تعديل بواسطه خبور خير
قام بنشر

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

أولا وقبل كل شيء أستاذي خير جزاك الله عنا كل خير

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

myC = Feuil13.Range("H3").Value

ماذا تقصد ب Range("H3").Value

والكود الآخر

NN = Choose(N, 3, 4, 7)

myR.Cells(myC, C + N - 1) = Cells(CC, NN)

كما لي طلب أخر وهو استدعاء نقاط التلميذ من ورقة الفصل_1 إلى ورقة كشف النقاط

للتصحيح أو التعديل في حالة حدوث خطأ في حجز نقطة ما للتلميذ ما

وأرجو أن تصبر معي حتي ينتهي المشروع

وجزالك الله خيرا مرة ثانية

أخوك محمد

قام بنشر

السلام عليكم

ماذا تقصد ب Range("H3").Value

هي القيمة في الخلية H3

والكود الآخر

NN = Choose(N, 3, 4, 7)

اذا عرفت عمل هذه الدالة ستعرف الجواب

CHOOSE

استخدام index_num لإرجاع قيمة من قائمة وسائط القيم. استخدم CHOOSE لتحديد واحدة من القيم التي يصل عددها إلى 29 قيمة استناداً إلى رقم الفهرس. فعلى سبيل المثال، إذا كانت من value1 إلى value7 هي أيام الأسبوع، تقوم CHOOSE بإرجاع أحد الأيام عند استخدام رقم بين 1 و7 كـ index_num.

بناء الجملة

CHOOSE(index_num,value1,value2,...)

Index_num (رقم الفهرس) تعيين وسيطة القيمة التي يتم تحديدها. يجب أن تكون Index_num رقماً بين 1 و29، أو صيغة أو مرجع لخلية تحتوي على رقم بين 1 و29.

إذا كانت index_num هي 1، تقوم CHOOSE بإرجاع value1؛ وإذا كانت 2، تقوم CHOOSE بإرجاع value2؛ وهكذا.

إذا كانت index_num أقل من 1 أو أكبر من رقم آخر قيمة في القائمة، تقوم CHOOSE بإرجاع قيمة الخطأ #VALUE!.

إذا كانت index_num عبارة عن كسر، يتم اقتصاصها إلى أقل عدد صحيح قبل استخدامها.

Value1,value2,... (القيمة1، القيمة2، ...) هي وسائط القيم من 1 إلى 29 التي تحدد منها CHOOSE قيمة أو إجراء استناداً إلى index_num. من الممكن أن تكون الوسائط أرقاماً أو مراجع خلايا أو أسماء معرفة أو صيغ أو دالات أو نص.

ملاحظات

إذا كانت index_num عبارة عن صفيف، يتم تقييم كل قيمة عند تقييم CHOOSE.

من الممكن أن تكون وسائط القيم لـ CHOOSE مراجع نطاقات وقيم مفردة أيضاً.

فعلى سبيل المثال، فإن الصيغة:

=SUM(CHOOSE(2,A1:A10,B1:B10,C1:C10))

يتم تقييمها إلى:

=SUM(B1:B10)

التي تقوم فيما بعد بإرجاع قيمة استناداً إلى القيم الموجودة في النطاق B1:B10.

يتم تقييم الدالة CHOOSE أولاً، ويتم إرجاع المرجع B1:B10. ثم يتم تقييم الدالة SUM باستخدام B1:B10، وهي ناتج الدالة CHOOSE، كوسيطتها

=================================================

كما لي طلب أخر وهو استدعاء نقاط التلميذ من ورقة الفصل_1 إلى ورقة كشف النقاط

طلبك في المرفق

تجربة في الترحيل_2.rar

قام بنشر

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

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

وإن شاء الله أبقى أطالع تغييرات المشروع وربماأزيد بعض اللمسات أو حتى بعض الاقتراحات...

شكرا على الموضوع وشكرا لكل من يشارك فيه من قريب أو من بعيد...

والملف الذي أرفقه بالموضوع حجمه كبير وقد قمت بضغطه وتحميله على موقع آخر غير منتدى أوفيسنا والرابط هو :

http://www.mediafire.com/download.php?mxgyzw2ztmm

قام بنشر

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

نسيت أن أقول لك إن ورقات الملف محمية كلها بكلمة سرية واحدة (لحماية الصيغ من المسح الخطأ) والكلمة السرية (لمن أرادها) هي ببساطة اسم عضويتي: hben

واستعملت فيه في أكثر الأحيان الدالة recherchev أو vlookup رغم أن استعمال الدالة index أحسن وأفضل... وأيضا وضعت فيه كل الحالات الممكنة في النقاط (خاصة حالات الغياب والإعفاء من التربية البدنية) وأود كثيرا أن أعرف رأيك في الملف وإذا أعجبك الملف وضعت لك الملفين الآخرين: الفصل 2 (الذي يشبه الأول) والفصل 3 (الذي نضيف له المعدل السنوي بربطه بالملفين الآخرين)

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

قام بنشر

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

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

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

والشكر موصولا لأخينا hben على العمل المرفق

فقط هناك بعض الملاحظات أرجو أن تتدركها في المرفق وهي:

أن مجموع معاملات السنة الرابعة هي:27 بدون مادة تربية الموسيقية

و مجموع معاملات السنة الثالثة هي :20 بدون مادة تربية الموسيقية

و مجموع معاملات السنة الثانية هي :20 بدون مادة تربية الموسيقية

و مجموع معاملات السنة الأولى هي :14 بدون مادة تربية الموسيقية

فأرجو أن تراعي معاملات كل مستوى على حدى.

كما يجب أن تثبت خلية المعامل في كل مادة L$6$ معامل الرياضيات وهكذا

كذلك في كشف الفصل الأول كيف أختار التلميذ

وجزا الله الجميع عنا كل خير

أخوكم محمد

قام بنشر

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

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

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

والشكر موصولا لأخينا hben على العمل المرفق

فقط هناك بعض الملاحظات أرجو أن تتدركها في المرفق وهي:

أن مجموع معاملات السنة الرابعة هي:27 بدون مادة تربية الموسيقية

و مجموع معاملات السنة الثالثة هي :20 بدون مادة تربية الموسيقية

و مجموع معاملات السنة الثانية هي :20 بدون مادة تربية الموسيقية

و مجموع معاملات السنة الأولى هي :14 بدون مادة تربية الموسيقية

فأرجو أن تراعي معاملات كل مستوى على حدى.

كما يجب أن تثبت خلية المعامل في كل مادة L$6$ معامل الرياضيات وهكذا

كذلك في كشف الفصل الأول كيف أختار التلميذ

وجزا الله الجميع عنا كل خير

أخوكم محمد

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

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

بالنسبة لاختيار التلميذ في الكشف يكون حسب الرقم الموجود في العمود B المقابل لكل تلميذ (أماالأرقام الموجودة في العمود A فهي للترتيب الخاص بكشوف النقاط للالتزام بالعدد 60 الموجود في الكشف في الورقتين)...

ولم أفهم الملاحظة "كما يجب أن تثبت خلية المعامل في كل مادة L$6$ معامل الرياضيات وهكذا"

بالنسبة للمواد التي لا تدرس في المؤسسات فقد وضعت الملاحظة في ورقة المعلومات (نضع 0 في خانة معامل المادة)...

والشكر للجميع

أخوكم "بن علية"

قام بنشر

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

أخي بن علية

أن تضع رقم التلميذ في كشف النقاط حتى تضر علامته

أظن أنه يجب أن ندع قائمة منسدلة حتى نختار منها أسماء التلاميذ

أما بالنسبة لتثبيت الخلية L6 التي فيها المعامل في ورقة نتائج الفصل الأول

أنظر في العمود R الذي به معادلة الضرب في المعامل تجد أن في التلميذ الثاني تغيرت

وأصبحت L7 وهكذا في التلميذ الثالث أصبحت L8 وهذا نتجت النسخ واللصق

هل فهمت أخي بن علية

أخوك محمد

قام بنشر (معدل)

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

كما وعدتك إليك الملف الجديد للنقاط (الإصدار الثالث) وضعت فيه المطلوب... ولا يحتاج إلا تدخل بعض الإخوة الكرام في إبداء الرأي أو الملاحظات أو إدخال تحسينات عليه (تخريج + كودات + إضافات أو غيرها)

بالنسبة للملاحظة التي لم أفهمها فقد صححتها بمجرد فتح الملف ووجدت خطئي وبالمعطيات الجديدة تم تغيير الصيغة الموجودة في خانة المعاملات...

ملاحظة: عند ملء المعلومات (قوائم التلاميذ) يجب الالتزام بالعدد 60 في كل قسم (حتى وإن كان عدد تلاميذ القسم لا يصل إلى 60) أي يجب ملء القوائم كما يلي (حسب أرقام العمود A): القسم الأول من 1 إلى 60 ، القسم الثاني من 61 إلى 120 ، القسم الثالث من 121 إلى 180 وهكذا...

* والملف الذي وضعته بين أيديكم يحوي 10 أقسام من جميع المستويات (ويمكن تمديده إلى أكثر من ذلك)

تم تعديل بواسطه hben
قام بنشر

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

معذرة نسيت أن أرفق الملف بالموضوع... الرابط هو : http://www.mediafire.com/download.php?m2j1o3miiiy

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

قام بنشر

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

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

وإليك الرابط : http://www.mediafire.com/download.php?lnlmzkizn0y

في انتظار ردك....

أخوكم دائما بن علية

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