بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، عودة ميمونة ووفقك الله لكل خير ويسّر عليك أمورك وبارك الله لك في هذه الأيام المباركة، بإذن الله كما وعدتك بعد فهم المطلوب جيدا أقدم لك الملف المرفق التالي الذي تم فيه تعديل للمعادلات في أوراق كل الشهور حسب المطلوب... راقب هذه المعادلات ووافني بالأخطاء إن وُجدت (لعلني لم أتناول جميع الحالات الممكنة للمسألة)... أخوك بن علية Payroll Tax - 2010_1.rar

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

السلام عليكم ورحمة الله أخي الكريم، جرب الكود التالي بعد وضعه في حدث الورقة المعنية: Private Sub Worksheet_Selectionchange(ByVal Target As Range) Application.ScreenUpdating = False For Each cl In Range("D1:D1000") If cl.Value = "Total" Then cl.EntireRow.Delete Next Application.ScreenUpdating = True End Sub أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم ريان، هذه محاولة في الملف المرفق حيث تم الاستعانة بخلايا إضافية (كل الخلايا أو الأعمدة المضافة ملونة بالأخضر في كلا الجدولين -جدول حساب الإيجار وجدول تغير الإيجار-)، تم أيضا نقل جدول تغير الإيجار إلى الورقة 2... المعادلات في الخلايا الملونة بالأخضر (المضافة) في جدول حساب الإيجار (ورقة1) ضرورية (لا تُمسح)، ويمكن تبسيطها أكثر مع مراعاة كل الحالات الواردة (خاصة فيما يتعلق بحساب عدد الأشهر بين الفترتين حسب فترات تغير الإيجار)... أرجو أني وفقت في تقريب الحل... أخوك بن علية lp modif.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، تم التعديل على المعادلات حسب المطلوب (المعادلات طويلة قليلا ويمكن تبسيها باستعمال دوال أخرى).... أخوك بن علية Social Insurance (2012)_3_3.rar

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

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، تم التعديل (تعديل طفيف) على الشروط مع إضافة هذه الشروط إلى خلايا الأعمدة الأخرى من السطر 21 (الملون بالأصفر) غير أنه لم يتم سحبها للصفوف الأخرى من الجدول حتى تقوم بمراقبتها وتصحيحها لعلها لا توافق المطلوب... أخوك بن علية Social Insurance (2012)_3.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، إذا كان ما تريده هو حذف أو إلغاء مضمون الخلية W1 ووضع نتيجة معادلة هذه الخلية مباشرة في معادلة الخلية F6 فقد تم ذلك بالاستعانة بالدالة TEXT في الملف المرفق... وإذا كان غير ذلك فأرجو التوضيح أكثر... أخوك دائما بن علية Social Insurance (2012)_2.rar

السلام عليكم ورحمة الله أخي الكريم، أعتذر لك على هذا الخطأ في الكود، لم أنتبه أني وضعت أمري الطباعة وإعادة إظهار الصفوف المخفية بين أمري FOR و NEXT لذا يقوم الكود بطباعة التقرير عدة مرات حسب عدد الصفوف التي تحقق الشروط المطلوبة في النطاق D14:D49 (الصفوف التي أرقامها زوجية)... وبالتالي قمت بتعديل الكود بوضع أمري الطباعة وإعادة إظهار الصفوف المخفية بعد الانتهاء من عملية إخفاء كل الصفوف في النطاق السابق بالشروط المطلوبة... أرجو هذه المرة أني قد وفقت في المطلوب... أخوك بن علية 1.rar

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد الكود الذي يجيب على مطلوبك مطبق على الورقة "كيميا" يقوم بإخفاء صفين (الصف والصف الذي تحته وليس الذي فوقه وقد تم إضافة الصف 49 بارتفاع صغير) من السطر 14 إلى السطر 49 حسب مضمون خلايا العمود D في الصفوف الزوجية من 14 إلى 49 (أي الصفوف 14، 16، 18، 20، ...) ويقوم بطباعة الورقة بعد إخفاء الصفوف حسب الشروط المطلوبة ثم يعيد إظهار كل الصفوف التي تم إخفاؤها من الصف 14 إلى الصف 49... أرجو أن يكون هذا المطلوب أو جزء منه... أخوك بن علية 1.rar

السلام عليكم ورحمة الله أخي الكريم، وهذا حل آخر باستعمال دالتي INDEX و MATCH تم عمله على ملف أخي الحبيب رجب جازاه الله عنا كل الخير... بارك الله فيك أخي الحبيب محمود وحفظك من كل سوء... أخوكم بن علية البدلات والمراتب_3.rar

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

السلام عليكم ورحمة الله أخي الكريم، جرّب المعادلة التالية: =1*SUBSTITUTE(A1;"-";"") أخوك بن علية

السلام عليكم ورحمة الله إخوتي الكرام، جازاكم الله كل خير وبارك الله فيكم وفي علمكم وعملكم، أردت بهذا الرد التنبيه فقط إلى أن الدالة SUMPRODUCT في الأصل هي دالة صفيف ولكن لا تحتاج -في كثير من الأحيان- إلى تأكيدها بوساطة الضغط على : Ctrl+Shift+Enter .... والله أعلى وأعلم أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، بعودتك إلى الموضوع ذكرتنا بأيام رمضان الكريم، تقبل الله منا ومنكم صيامه وقيامه ومن سائر الأمة الإسلامية وأعاده الله علينا جميعا باليمن والخير والبركات... بالنسبة لطلبك تم تعديل على المعادلات (معادلات ورقات الشهور) لتتماشى مع المطلوب مع وضع مثال في الملف المرفق... وإجابة على تساؤلك (القديم) فيما يخص القصد من الاقتراح "يستحسن حفظ الملف بصيغة .xlsb بدلا من الصيعة .xlsm" لأن الصيغة xlsb. تقبل الملفات التي تحوي أكوادا ثم إن حفظ الملفات بهذه الصيغة يكون حجمها أصغر بكثير منها بالصيغ الأخرى (تقريبا ثُلث الصيغة xlsm. وعُشر الصيغة xls.) (هذا مجرد رأي)... الملف المرفق للمعادلات المعدلة: Social Insurance (2012).rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى قمت بتبسيط المعادلات حسب ما فهمته من المطلوب لأنه تم إلغاء فترة التسديد بين تاريخين وأصبح التسديد لكل الرصيد في تاريخ معين... واستعملت دالة ABS لجعل كل المبالغ المسددة بقيم موجبة بدلا من ضرب الناتج في العدد -1.... أرجو أن يكون هذا المطلوب أو بعضا منها وإذا كان غير ذلك فأرجو الشرح أكثر حتى نكون على دراية بما ستكون عليه المعادلات لتتناسب مع المطلوب... أخوك بن علية Accrued Exp. Settlement.rar

السلام عليكم ورحمة الله أخي الكريم، وأستسمح أخي الحبيب محمود في إعطاء حلين آخرين: الحل الأول : بمعادلة صفيف باستعمال الدوال SUM و IF و TRANSPOSE تأخذ الشكل التالي: =SUM(IF($C6:$F6="h";TRANSPOSE({1;0;0;1}))) والحل الثاني : باستعمال الدالتين SUMPRODUCT و TRANSPOSE تأخذ الشكل التالي: =SUMPRODUCT(($C6:$F6="h")*TRANSPOSE({1;0;0;1})) شرح بسيط للمعادلات : تقوم بعدّ خلايا العمود الأول والعمود الرابع التي تحقق شرط أي التي مضمونها حرف h (ويفسرها العددان 1 في الدالة TRANSPOSE الموضوعان في الرتبتين الأولى والرابعة بين الحاضنتين) في النطاق C6:F6 من أربعة أعمدة (أي الخليتين C6 و F6). أرجو أن يكون هذا الشرح مفهوما... لا تنسى أن المعادلة الأولى (في الحل الأول) هي معادلة صفيف أي يجب تأكيدها بالضغط على : ctrl+shift+enter أخوكم بن علية تطبيق المعادلات في الملف المرفق التالي: h.rar

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

السلام عليكم ورحمة الله أخي الكريم أبو أنس، نتيجة المربع بالأعلى تتغير لا محالة (بالأجزاء العشرية) لأنك تقوم باستبدال بعض القيم القريبة من الصفر بالعدد 0 وهذا يؤثر قليلا على المجموع في هذا المربع... قمت بتغيير طفيف على كود أخي الكريم أبو نصار وكانت النتيجة تختلف في الجزء العشري (العدد بعد الفاصلة) للمجموع : المجموع قبل الاستبدال كان جزؤه العشري 81 والمجموع بعد الاستبدال أصبح جزؤه العشري 91... أعتقد أن النتيجة متقاربة جدا ومقبولة... والكود بعد التغيير هو: Sub L_ali() Dim t As Range Application.ScreenUpdating = False For Each t In Range("L6:L60000") If Abs(Int(t)) <= 1 And t.Value <> Empty Then t.Value = 0 End If Next Application.ScreenUpdating = True End Sub وهذا الكود يعمل دون الدالة المخصصة المرفقة مع الكود الذي أرسله أخي الحبيب أبو نصار... أرجو أني وفقت في مقاربة الحل... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، هذا حل ثان بمعادلات مباشرة (لا تعتمد على جداول إضافية) في الملف المرفق.... أخوك بن علية Correct equation extraction beginning of the quarterly periods_2.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، هذا حل أول بمعادلات غير مباشرة (تعتمد على جداول إضافية) في الملف المرفق وسأفكر إن شاء الله في معادلات مباشرة... أخوك بن علية Correct equation extraction beginning of the quarterly periods.rar

السلام عليكم ورحمة الله أخي الكريم، ضع المعادلة التالية في الخلية F7 واسحبها إلى الأسفل... بالفرنسية: =SI($E7>=10;"ينتقل";SI($D7>16;"يوجه";"يعيد")) بالإنجليزية: =IF($E7>=10;"ينتقل";IF($D7>16;"يوجه";"يعيد")) أخوك بن علية

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

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