بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، لم أتتبع الخطأ في المعادلة ولكن وضعت لك في الملف المرفق تبسيطا لها.... أخوك بن علية test.rar

السلام عليكم ورحمة الله أخي الكريم، تجد في الملف المرفق تبسيطا واختصارا لنص كود أخي الكريم "يوسف عطا" جازاه الله عنا خير الجزاء... أخوكم بن علية قوائم فصول22 فصل.rar

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على الكود مع بعض التحسينات في الملف المرفق.... أرجو أن يكون هذا المطلوب أو بعض منه.... أخوك بن علية Validity.rar

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

السلام عليكم ورحمة الله أخي محمد، أقدم لك ملفين في الأول تركت ورقة "تحليل نتائج الفصول" بالمعادلات مع تلبية كل الطلبات الأخرى لكن الإشكالية أن الأكواء أصبحت بطيئة جدا جدا لسبب كثرة المعادلات في ورقة التحليل... وفي الملف الثاني حذفت ورقة التحليل مع كل النطاقات المسماة الخاصة بها لاستعادة سرعة عمل الأكواد... بالنسبة لورقة "التحليل" يجب إنشاؤها باستعمال الأكواد ولكن أرى أنه ليس بالعمل الهين حيث أن الورقة تحوي جداول متغيرة ومختلفة وتستدعي وسائط كثيرة وحسابات معمقة... ولا أعدك بشيء إلا أني سأحاول في إنشاء كود ما استطعت لذلك، وأقترح أن يكون تدخلات أخرى من طرف الإخوة الكرام ذوي الباع الكبير في الأكواد عله نجد في عملهم طريقة بسيطة للوصول إلى المبتغى... بالنسبة لورقة "الفصل_3" لا أرى ضرورة في إضافة عمودي "المجموع العام" و "الإجازات والعقوبات" مع المعدل السنوي لأنها أصلا غير موجودة في ورقة "كشف النقاط"... حتى وإني أضفت في كود "الترحيل" عملية ترحيل "المجموع العام" بحساب معدل المجاميع العامة لكل الفصول (وأرى في ذلك خطأ)!!! أخوك بن علية الملف الأول : GESTION DES NOTE MOYEN_5.rar الملف الثاني : GESTION DES NOTES MOYEN_5Bis.rar

السلام عليكم ورحمة الله أخي الكريم، جرب الكود التالي: Private Sub CommandButton1_Click() On Error Resume Next Range("BB1") = InputBox("رقم البداية") Range("BB2") = InputBox("رقم النهاية") If Not IsNumeric(Range("BB1")) Or Not IsNumeric(Range("BB2")) Or Range("BB1") > Range("BB2") Then GoTo 1 If MsgBox("تأكيد الطباعة", vbYesNo, "طلب التأكيد") = vbNo Then GoTo 1 For CELP = Range("BB1") To Range("BB2") Range("G33") = CELP ' 'ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Activewindow.SelectedSheets.PrintOut Copies:=1 Next 1: Range("BB1:BB3") = Empty End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، إن الدالة VLOOKUP تستدعي أن تكون قيمة البحث في العمود الأول من الجدول لذا قمت باستبدالها بالدالتين INDEX و MATCH في الملف المرفق... أخوك بن علية New Microsoft Office Excel Worksheet (4).rar

السلام عليكم ورحمة الله أخي الكريم محمد، بالنسبة للمطلوب هو تحديد مواقع (أرقام الأعمدة السبعة) لعلامات كل مادة (تقويم مستمر - فرض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" بعد إضافتهم في الورقة الأولى يرجع إلى أنك لم تقم بتمديد المعادلة الموجودة في آخر عمود "عمود المجموع" من الورقة الأولى إلى مستوى هؤلاء العمال (لأن المعادلات في الورقة الثانية تعتمد أساسا على مجموع غيابات العمال خلال الشهر كله)... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حل إخوتي الكرماء هذا حل من الحلول... أخوكم بن علية تغيب العمال4.rar

السلام عليكم ورحمة الله أخي الكريم، وضعت في الملف المرفق حلين للمسألة (حل عادي ـ حل بالمعادلات) ويبقى الحل بالأكواد... أخوك بن علية Book1.rar

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

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

السلام عليكم ورحمة الله إخواني الكرام، ارتكبت خطأ في معادلة تحديد النطاق المسمى Plage بالملف السابق، واستدركه بتصحيحه في الملف المرفق... فمعذرة على هذا الخطأ.... أخوكم بن علية Book1_1.rar

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

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد جل المطلوب مع بعض التغييرات والإضافات... أخوك بن علية Book1.rar

السلام عليكم ورحمة الله أخي الكريم محمد، في الحقيقة إنك لا تزعجني البتة وتجدني أتعلم أكثر من كل سؤال ومن كل طلب.... هذه المرة طلبك لم يكن صعبا فقد قمت بتبديل سطر واحد في كلا الكودين "الترحيل" و"الاستدعاء" الخاصة بدفتر الأستاذ الذي هو : Set MyRange = Range("base_t1") وتم استبداله بالسطر: Set MyRange = Range("Base_T" & Range("V1")) وتم أيضا تم إضافة معدلة في الخلية V1 من ورقة "دفتر الأستاذ" لتحديد رقم الفصل الذي يحتاجه هذا السطر في الكودين... الكل تجده في الملف المرفق... أخوك بن علية GESTION DES NOTE MOYEN_4.rar

السلام عليكم ورحمة الله أخي الكريم محمد، لا أرى أي مشكلة في أن تكون بيانات كل فصل في ورقة مستقلة غير أنه تم تلبية طلبك مع بعض التغييرات على ورقة بيانات الفصول بجعل بيانات كل فصل في أعمدة متجاورة (وباعتبار أن عدد أعمدة هذه البيانات يفوق 256 عمود تم تحويل الملف إلى نسخة أوفيس 2007 أو أعلى) يمكن أيضا أن نضع بيانات هذه تحت بعض حسب الصفوف ولكن نضطر إلى نسخ بيانات الطلبة في جدول كل فصل... وتم أيضا تعديلات على الكودين أولا ليتم إخفاء أعمدة الفصول غير المختارة في ورقة الكشف ويتم أيضا التحويل والاستدعاء بين ورقتي "كشف النقاط" و"البيانات" بشكل صحيح حسب الفصول... وتم أيضا إنشاء كود للطباعة المتواصلة وربطه مع كود "الاستدعاء" غير أنه حُذفت رسالة "تأكيد الاستدعاء" حتى لا تظهر كل مرة في الطباعة عند التغيير من طالب لآخر... ويمكن استعمال كود "الطباعة المتواصلة" للطباعة الفردية (غير ضروي)... أرجو أن يكون هذا العمل مقبولا ومستوفيا المطلوب (مع أني أنتظر منك دائما مطلوبا جديدا)... أخوك بن علية Gestion des Notes MOYEN_3.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

السلام عليكم ورحمة الله أخي الكريم محمد، تم التعديل على الكودين بما يناسب المطلوب مع الاستغناء عن النطاقات المسماة Cel1 و Cel2 (تم حذفهما من الملف) والتغييرات التي وضعتها (حتى تعرف مستوى التغييرات في الأكواد) تجدها بين سطرين من الشكل : '*************************************************************************************** أرجو أن تفي هذه التغييرات بالمطلوب.... أخوك بن علية Gestion des Notes MOYEN_Bis.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

السلام عليكم ورحمة الله أخي الكريم أبو إسحاق، والله لم أنتبه لهذا الخلل في الملف، وقد تم تصحيح المعادلة في الخلية A2 باستبدال الصيغة (ROW($A1 بالصيغة (COUNTA($A$1:$A1 ثم سحب هذه المعادلة إلى الأسفل... وتم أيضا إضافة تسمية جديدة "nm" (التي تعطي رقم الشهر) بالمعادلة ={1;2;3;4;5;6;7;8;9;10;11;12} والتي تحتاجها الدالة INDEX بدلا من الصيغة (ROW($1:$12 لإرجاع رقم الشهر في التسمية "m"... كل هذا تجده في الملف المرفق... أرجو أني وفقت في الطلب وتصحيح الخلل... أخوك بن علية Month_Days_Bis.rar

السلام عليكم ورحمة الله إخواني الكرام، هذا حل آخر باستعمال التسميات والمعادلات وخاصية التحقق من الصحة Validation .... أخوكم بن علية Month_Days.rar

السلام عليكم ورحمة الله أخي الكريم، أعتذر لك كثيرا على عدم الرد على الموضوع في أيامه الأولى وقد فكرت فيه آنذاك ولكني نسيته... واليوم أقدم لك الحل التالي في المرفق باستعمال المعادلات (ليس بالأكواد) وأترك الحل بالأكواد للإخوة الكرام وتجدني منأكدا أنهم لا يبخلون عنا بما فضل الله عليهم من علم... أخوك بن علية ترتيب متعدد.rar

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