بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، حل آخر بالمعادلة باستعمال الدالتين INDEX و MATCH في الملف المرفق... =INDEX({"";5;4,5;4;3,5;3;2,5;2};َMATCH($C$2;{0;1000;3000;5000;7000;9000;11000;13000};1)) أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للأولياء الذين لهم أكثر من 3 أولاد المعادلة السابقة تعطي خطأ لذا عليك استبدال في G3 المعادلة : =INDEX({0;15;20};COUNTIF($B$3:$B3;$B3))/100 بالمعادلة =IF(COUNTIF($B$3:$B3;$B3)>=3;20;INDEX({0;15};COUNTIF($B$3:$B3;$B3)))/100 ثم اسحبها إلى الأسفل.... ومعذرة على هذا الخلل... ملاحظة : يستحسن العمل في المعادلة بـ "رقم ولي التلميذ" لأن الأسماء يمكن أن نحجزها بطريقة مختلفة (إضافة مسافات أو غيرها) لذا أفضل أن تكون المعادلة في G3 بالشكل: =IF(COUNTIF($A$3:$A3;$A3)>=3;20;INDEX({0;15};COUNTIF($A$3:$A3;$A3)))/100 أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق التالي باستعمال الدالتين INDEX و COUNTIF ... أخوك بن علية معادلة خصم الاخوة في المدارس.rar

السلام عليكم ورحمة الله أخي الكريم محمد، نظرا لصعوبة استعمال الكود في ورقة الإحصاء "تحليل نتائج الفصول" ويرجع ذلك -كما ذكرت سابقا- إلى كثرة الوسائط والمتغيرات لذا أرى أنه يجب أن تبقى هذه الورقة يدوية (إدخال الأقسام -لأنها متغيرة من مؤسسة لأخرى- والعمليات الإحصائية في الورقة تتم بالمعادلات) ولتجنب بطء تنفيذ الأكواد في المصنف لم أجد حيلة إلا أن يتم تنفيذ هذه الأكواد بتغيير طريقة الحساب Calculation إلى "يدوية" Manual باستعمال الصيغة Application.Calculation=xlManual في بداية عمل الكود ثم إعادتها إلى "تلقائية" Automatic باستعمال الصيغة Application.Calculation=xlAutomatic بعد إنهاء الكود عمله، وذلك في مواضع معينة لبعض الأكواد... وأعتقد أن الأمر أدى إلى نتيجة مقبولة... أخوك بن علية GESTION DES NOTE MOYEN_6.rar

)السلام عليكم ورحمة الله أخي الكريم محمد، وجدت صعوبة في التعامل مع الأمر (KH_Range.Areas(R في الكود (لم يُقبل هذا الأمر عند التنفيذ ولم أستطع فهمه) لذا قمت بتبديله بـالعبارة التي قبلها البرنامج عند التنفيذ (KH_Range.Cells(R,1 وتمت أيضا تعديلات أخرى على كل الأكواد (لكن لم أجربها كلها وهذا الأمر أتركه لك) ... أرجو أن تفي هذه التعديلات بالمطلوب... أخوك بن علية البطاقة الإحصائية للمعلمين_4.rar

السلام عليكم ورحمة الله أخي الكريم، إذا أردت أن يكون ترتيب الشيتات بالشكل (البيانات - طباعة - تقرير الصلاحية - السارية - المنتهية ) من اليمين إلى اليسار فيجب تغيير قيم K و J في الكود، وفي هذه الحالة K يأخذ القيمتين 4 و 5 بدلا من 2 و 3 مع تبديل (Tab(K-1 بـ (Tab1(K-3 والمتغير J يأخذ القيم من 3 إلى 5 بدلا من 1 إلى 3... لاحظ التغييرات التي وضعتها في الكود... أخوك بن علية 22.rar

السلام عليكم ورحمة الله أخي الكريم، المشكل يكمن في ترتيب الشيتات فيما بينها (من اليمين إلى اليسار أو العكس حسب الاتجاه المختار للمصنف) ففي الكود تم الإشارة إلى الشيتات بالرمز (Sheets(K أو (Sheets(j (حيث المتغير K يأخذ القيمتين 2 و 3 ويقصد بذلك الشيتين 2 و3 والمتغير j يأخذ القيم من 1 إلى 3 ويقصد بذلك الشيتات الثلاثة الأولى) أي برقم الترتيب للشيت وليس باسم الشيت وبما أن الشيتات المعنية في الكود بالترتيب (الأول فالأول) هي : "الصلاحية" ، "الأقامات المنتهية" ، "الأقامات السارية" فيجب ترتيبها وفي ملفك أدرجت قبلهما شيتين آخرين "البيانات" و "طباعة".... وفي الملف المرفق تم ترتيب كل الشيتات حسب ما يتطلبه الكود وعادت الأمور إلى طبيعتها... أخوك بن علية 22.rar

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

السلام عليكم ورحمة الله أخي الكريم، لم أتتبع الخطأ في المعادلة ولكن وضعت لك في الملف المرفق تبسيطا لها.... أخوك بن علية 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 ... أخوك بن علية