بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على كود التسجيل حسب المطلوب الجديد... والمشكل الوحيد هو في تسمية الأوراق باسم المؤسسة باعتبار أن اسم الأوراق لا يتجاوز 31 حرف ، لذا قمت عند تسمية الأوراق باستبدال كلمة "متوسطة" بـ "م." في الأسماء التي لا يتجاوز عدد أحرفها 35 حرفا وفي حالة واحدة فقط استبدلتها بفراغ "" وهي "متوسطة الحاج جلول محمد العربي المشرية" لأن عدد أحرفها 37 حرف... في الكود يمكن التحكم في عرض الأعمدة في السطر : Y = Choose(I, 500, 1129, 1800, 1800, 1186, 1157, 429, 1086, 557, 557, 671, 671, 671, 671, 671, 671, 671, 800, 671, 800) أرجو أن تلبي هذه التعديلات طلبك... أخوك بن علية الملف المرفق : Result_Bem_2013_2.rar

السلام عليكم ورحمة الله أخي الكريم، لتغيير الساعات والدقائق إلى دقائق يمكن استعمال المعادلة التالية (بفرض أن الخلية A2 هي التي تحوي التوقيت بالساعة والدقائق) : =60*HOUR(A2)+MINUTE(A2) أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم إبراهيم، هل تريد أن يكون زر الاستخراج فقط في الشيت 2 أم تريد أيضا أن تكون عملية استخراج الاسماء في هذا الشيت... المهم أضع بين يديك حلين حسب الشرح التالي: * الحل الأول : وضع زر الاستخراج فقط في الشيت 2 والاسماء المستخرجة في شيت "Total" (بداية من الخلية AA2) الملف المرفق : استخراج1.rar * الحل الثاني : وضع زر الاستخراج في الشيت 2 و الأسماء المستخرجة في الشيت 2 أيضا (بداية من الخلية C2) الملف المرفق : استخراج2.rar أرجو أن تكون هذه التعديلات مستوفية المطلوب... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، تم تعديل معادلة التفقيط (دون المساس بكود التفقيط) بإضافة الدالة الشرطية IF مع الأداة & (بديل الدالة Concatenate) واستعمال أيضا الدالة ABS... أرجو أن يكون التعديل مستوفيا المطلوب... الملف المرفق : Book2.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن هذا المشكل حدث جراء التحديثات على الويندوز وأقترح عليك إلقاء نظرة على الرابط التالي لعلك تجد ضالتك فيه (وهو بالإنجليزية) : http://www.lessanvaezi.com/delete-exd-files-to-fix-object-library-invalid-error/ بالتوفيق أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تمت تعديلات على الملف (إدراج ورقة "كشف راسب" وإدراج فاصل الصفحات عند كل 14 صف مع تحجيم ورقات الكشوف إلى 115%) وتعديلات أخرى على الكود لإضافة ترحيل كشف الراسبين مع حذف الصفوف الفارغة في كشف الدور الثاني... أتمنى أن تكون التعديلات مستوفية للمطلوب... أخوك بن علية الملف المرفق : ترحيل مفيد باختبار اعمدة معينة.rar

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

السلام عليكم ورحمة الله أخي الكريم، أقدم لك في الملف المرفق حلين وأرجو أن يفيا بالمطلوب... أخوك بن علية الملف المرفق: آخر سعر.zip

السلام عليكم ورحمة الله أخي الكريم، مطلوب المزيد من الشرح ويستحسن وضع مثال على المطلوب, وهناك أيضا خلط في الأعمدة المطلوب التعديل فيها.... أخوك بن علية

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

تحية طيبة، هذه محاولة فيما يلي: إذا كانت القيمة المطلوب تطبيق الضريبة عليها في الخلية A2 يمكن استعمال المعادلة التالية في خلية أخرى (مثلا B2) في الورقة نفسها: =$A2*INDEX({1;0.95;0.93;0.91;0.89;0.87;0.84;0.81};MATCH($A2;{0;10001;15001;20001;25001;30001;38001;50001};1)) أرجو أن تفي بالمطلوب...

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن الكود يعمل جيدا في ورقتي "المبيعات" و "المدينون" إذا تم تعديل تنسيق خلايا العمود B في الورقتين من تنسيق "التاريخ" Date إلى التنسيق "التلقائي" Standard... أرجو أن تفيدك هذه المعلومات (في الانتظار)... أخوك بن علية الملف المرفق: طلب اضافة دالة555555555.rar

السلام عليكم ورحمة الله أختي الكريمة، في الحقيقة الترتيب الذي وُضع في الملفات المرفقة السابقة هو ترتيب تنازلي (من الكبير إلى الصغير) وهو المطلوب، وقد أضفت في الملف المرفق بهذا الرد الترتيب التنازلي للأسماء حسب السن... أخوك بن علية الملف المرفق : Book4sssss.rar

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

السلام عليكم ورحمة الله أخي الكريم، حل آخر باستعمال الدوال INT ، MOD ، SUMPRODUCT في الملف المرفق... أخوك بن علية الملف المرفق : الجنيه والقرش.rar

السلام عليكم ورحمة الله أخي الكريم، قمت بتطبيق المعادلات الثلاثة التي اقترحتها سابقا على ملفك (تم تلوين أعمدتها بالأصفر)... وهي تعطي كلها النتيجة نفسها إلا الثالثة (في حالات عدم توفر الشروط كلها) فبدلا من أن تعطي أصفارا فهي تعطي صيغة الخطأ ويمكن تعديل ذلك بالدالة IF أو بالدالة IFERROR (في إكسيل 2007 فما فوق)... الملف المرفق : PayRoll Formula (---).rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، في المعادلة المقترحة يوجد تداخل في شرط الحالتين الأخيرتين فالشرط الثاني (دالة IF الثانية) يعالج الحالة أن تكون قيمة N4*12-12000-M4*12 (وهنا حذفت الأقواس لأنه لا ضرورة لها حسب أولوية العمليات) محصورة بين 15000 و 35000، والشرط الثالث (دالة IF الثالثة) تعالج الحالة أن يكون العدد N4*12-9000-M4*12 أكبر من أو يساوي 35000 أي (بعد تبسيط) لما يكون العدد N4*12-12000-M4*12 أكبر من أو يساوي 32000 وهنا يكون التداخل بين الشرطين من جهة أصغر من 35000 تعالج في الحالة الثانية ومن جهة أخرى أكبر من يساوي 32000 تعالج في الحالة الثالثة... الرجاء مراجعة المعادلة المكتوبة وتصحيحها... وقد قمت بتحضير بدائل لها بمعادلات مختصرة ولكن يبقى مشكل التداخل بين شروط الحالات وأقترح عليك هذه المعادلات التالية كبدائل لمعادلتك الأولى =(IF(AND(12*(N4-M4-1000)>=0,12*(N4-M4-1000)<=15000),12*(N4-M4-1000)*0.1,IF(AND(12*(N4-M4-1000)>=15000,12*(N4-M4-1000)<=32000),1500+12*(N4-M4-2000)*0.15,IF(12*(N4-M4-750)>=35000,4500+(N4*12-M4*12-44000)*0.2,0))))/12 الثانية: أقصر قليلا =(IF(AND(12*(N4-M4-1000)>=0,12*(N4-M4-1000)<=15000),1.2*(N4-M4)-1200,IF(AND(12*(N4-M4-1000)>=15000,12*(N4-M4-1000)<=32000),1.8*(N4-M4)-2100,IF(12*(N4-M4-1000)>=32000,(N4-M4)*2.4 - 4300,0))))/12 الثالثة : أقصرهم =CHOOSE(MATCH(12*(N4-M4-1000);{0;15000;32000};1);1,2*(N4-M4)-1200;1,8*(N4-M4)-2100;2,4*(N4-M4)-4300)/12 في المعادلة الثالثة جعلت الشروط كالتالي : محصور بين 0 و 15000 ثم محصور بين 15000 و 32000 ثم أكبر من 32000 أخوك بن علية

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

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

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

السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق حيث تم إضافة ثلاثة أكواد لإخفاء الجداول حسب الاختيار.... أرجو أن يفي بالغرض... أخوك بن علية الملف المرفق: Abu Yousef.rar

السلام عليكم ورحمة الله أخي الكريم ، قد فتحت الملف في جهازك بنسخة أوفيس غير 2003 انظر لعل مستوى أمان الماكرو مرتفع قم بتخفيضه إلى أدنى مستوى... أعتقد أن الملف عند فتحه ظهرت لك رسالة خاصة بتفعيل المحتويات والماكرو؟ وعند الرفض يقوم البرنامج بحذف (مسح) الماكرو كليا لهذا هي لا تعمل.... عليك بتخفيض أمان الماكرو ثم فتح الملف من جديد.... وأرجو هذه المرة يشتغل معك الملف... والماكرو الذي وضعته في كود حدث الورقة Sheet المعنية من سطر واحد وهو كما يلي: Private Sub Worksheet_Calculate() ActiveSheet.Name = [b10] End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن خاصية الحساب الآلي غير مفعلة Automatic Calculation ولمعرفة ذلك إضغط على مفتاح F9 (مفاتيح التوظيف) وإن تغير الاسم فهذا يعني أن الخاصية غير مفعلة ويمكن تغييرها في أمر "خصائص" Tools ثم "حساب" Calculation ثم تفعيل خاصية "تلقائي" Automatic هذه في نسخة أوفيس 2003 أما في النسخ الأعلي (2007 ، 2010 ، 2013) فالتفعيل يكون بفتح "خصائص إكسيل" Excel Options ثم فتح خاصية "الصيغ" Formulas ثم اختيار "تلقائي" Automatic في اختيار "نوع الحساب" Type Calculation (واعذرني على الترجمة لأني أعمل على النسخ بالفرنسية)... أخوك بن علية