بن علية حاجي

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

السلام عليكم زرحمة الله أخي الكريم عيد مصطفى، تم تغيير شروط القيمة الصغرى والقيمة الكبرى حسب المطلوب في الملفات المرفقة... أخوك بن علية Trading Investments - 2012.rar Trading Investments - 2013.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، أردت أن أبسط العملية ولكن !!! (لم أستطع إلا أن أنفذ 13 تنسيق شرطي على كل خلية من العمود)... بالكود سيكون ذلك أسهل... أخوك بن علية Sequence1.rar

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

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، لا أعتقد أن صاحب الموضوع يعارض ذلك، بالعكس أشكرك على التنبيه له فمن المفروض أن أضع هذا الشرط في المعادلة حتى تكون المعادلة مستوفية كل الجوانب... والمعادلة في هذه الحالة تكتب على الشكل: =IF($C5="";"";IFERROR(IF(MONTH($C5)=MONTH($C4);$B4+1;220001);220001)) وفي نسخة إكسيل 2003 تكون كما يلي: =IF($C5="";"";IF(ISERROR(MONTH($C4));220001;IF(MONTH($C5)=MONTH($C4);$B4+1;220001))) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكنك عمل ذلك باستعمال خاصية "التحقق من الصحة" Data Validation ونطبيق ذلك على ما أراه من خلال الصورة التي أرفقتها (وأحسن من ذلك لو أرفقت الملف المعني أو جزء منه دون بيانات خاصة) يكون كما يلي : - تحديد النطاق D4:I7 (أو أكثر حسب بياناتك) - اختيار خاصية التحقق من الصحة Data Validation من أمر DATA - اختيار "مخصص" Personalise - وضع في إطار الصيغة Formula الشرط : =D4<=$C4 (ملاحظة : الرمز $ في هذا الشرط أمام حرف C ضروري جدا) - الموافقة على التغييرات أرجو أني وفقت في الشرح... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكن وضع المعادلة التالية في B5 وسحبها إلى الأسفل... =IFERROR(IF(MONTH($C5)=MONTH($C4);$B4+1;220001);220001) وفي نسخة إكسيل 2003 المعادلة تكتب على الشكل: =IF(ISERROR(MONTH($C4));220001;IF(MONTH($C5)=MONTH($C4);$B4+1;220001)) أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، تم تقديم حل للمسألة حسب ما فُهم من المطلوب في موضوعك الآخر "http://www.officena.net/ib/index.php?showtopic=44787"... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، إن كنت قد فهمت المطلوب جرب الملف المرفق حيث تم استعمال 4 تنسيقات شرطية على العمود D... أخوك بن علية MyBook1.rar

السلام عليكم ورحمة الله أخي الكريم، لم أفهم ما تريده بالضبط والمعادلة التي وضعتها يكون عملها كما يلي : * إذا كانت قيمة الخلية Q10 من المجال [0 ، 50[ فقيمة الإرجاع هي : U * إذا كانت قيمة الخلية Q10 من المجال [50 ، 60[ فقيمة الإرجاع هي : C * إذا كانت قيمة الخلية Q10 من المجال [60 ، 70[ فقيمة الإرجاع هي : +C * إذا كانت قيمة الخلية Q10 من المجال [70 ، 80[ فقيمة الإرجاع هي : B * إذا كانت قيمة الخلية Q10 من المجال [80 ، 90[ فقيمة الإرجاع هي : +B * إذا كانت قيمة الخلية Q10 من المجال [90 ، 95[ فقيمة الإرجاع هي : A * إذا كانت قيمة الخلية Q10 من المجال [95 ، 1000[ فقيمة الإرجاع هي : +A والمجال الذي تذكره من 0 إلى 49.99 هو نفسه المجال [0 ، 50[ أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، للتقييم يمكن أيضا استعمال المعادلة التالية في R10 ثم سحبها إلى الأسفل: INDEX({"U";"C";"C+";"B";"B+";"A";"A+"};MATCH(Q10;{0;50;60;70;80;90;95;1000};1)) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، تغيير طفيف على الكود للحصول على المطلوب أخوك بن علية Horizontal & Vertical Alignment (2).rar

السلام عليكم ورحمة الله أخي الكريم مؤمن خليل، هذا حل أول باستعمال المعادلات (في عمود رقم الجلوس D وعمود التخصص F) وعمود إضافي (بمعادلات في الجزء الملون بالأخضر)... تجد كل ذلك في الملف المرفق... أخوك بن علية كشوف المنادة الصف الثاني.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، يمكنك استعمال المعادلة التالية في B2 ثم سحبها إلى اليسار (في اتجاه الإعمدة الموالية).... =DATE(B1;12;31)-DATE(B1-1;12;31) أخوك بن علية

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