كيفية تحليل المصاريف المدفوعة مقدماً

[صفوان عبدالرب]

الأخوة الأعزاء المشرفين والأعضاء أرجو المساعدة حيث أن خبرتي في الإكسل بسيطة فلدي ملف لتوزيع المصاريف المدفوعة مقدماً وللإختصار المطلوب في الملف المرفق

تحليل المصاريف المدفوعة مقدماَ 2.rar

[احمدزمان]

السلام عليكم

اخي الكريم

انني لم اجد حلا سريعا لطلبك

ولكن

لدي ملف قد يساعدك في انجاز ماتريد

5_توزيع_الأقساط_ومتابعتهاQest.rar

[هشام شلبى]

السلام عليكم

========

اخى العزيز احمد

بارك الله فيك

[صفوان عبدالرب]

اخي الكريم احمد اشكر لك تفاعلك والملف حقيقة أكثر من رائع إنما الطريقة المشروحة في ملفي ستساعدني كثيراً في إجراء قيود التسوية الشهرية بشكل إجمالي من دون العودة إلى تفاصيل كل بند على حده لذا أرجو منك ومن الجميع إن كان هناك إمكانية المساعدة بها

[هشام شلبى]

السلام عليكم

========

اخى العزيز طلبك ان شاء الله اكيد قيد الدراسة من قبل الاخوة ولكن انا شخصيا لى بعض الاستفسارات

ما فهمته انك نريد توزيع المبلغ على الشعور اوك ولكن

1) على اى اساس تم وضع المبلغ 7150 فى الخلية u8

2) على اى اساس يوضع القسط الاول والاخير

3) لماذم لا يتم توزيه الميلغ الكلى على عدد الشهور والمبلغ الباقى يستحق فى اخر قسط او اول قسط فيما عدا ذلك سيكون سهل ان شاء الله

برجاء متابعة موضوعك والرد السريع على الاستفسارات وستجد المعاونة من الجميع ان شاء الله

[صفوان عبدالرب]

مشكور اخي هشام ورداً على إستفسارك فأنه عند توزيع المصاريف المقدمة يتم إحتساب ما يخص جزء من الشهر مثلاً 15 يوم عندما يكون دفع المصاريف في منتصف الشهر لذلك تركت خليتي القسط الأول والأخير لأدراجها يدوياً وبقية الشهور تحسب تلقائياً كون القسط فيها ثابت

[صفوان عبدالرب]

(لماذم لا يتم توزيه الميلغ الكلى على عدد الشهور والمبلغ الباقى يستحق فى اخر قسط او اول قسط فيما عدا ذلك سيكون سهل ان شاء الله) وإن كان هناك إمكانية لعمل ذلك فيكون ممتاز جداً وشاكر لكم تعاونكم

[بن علية حاجي]

السلام عليكم ورحمة الله تعالى وبركاته

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

إن شاء الله يكون العمل في الملف المرفق هو المطلوب... وإدا كانت هناك طلبات أخرى أو تغييرات على الكود فأنا في الخدمة أو أحد إخوتي الكرام...

ورجاء إدا كنت في الاتصال ضع لي ردا مباشرة بعد مراقبة عملي في الملف المرفق مادمت موجودا في مقهى النت...

أخوك بن علية

تحليل المصاريف المدفوعة مقدما.rar

[صفوان عبدالرب]

اخي بن علية لا املك إلا أن اقول جزاك الله عني كل خير وقد تأخرت بالرد بسبب إنشغالي وعدم دخولي النت إلا في بعض الأوقات المهم الملف يعمل بشكل ممتاز جداً وحسب المطلوب إلا أن هناك مشكلة واحدة وهي أنه عند إستخدام إكسل 2007 لا يعمل الكود أحياناً واحياناً يعمل لا أعلم ما السبب أرجو إن كان هناك حل أن تتكرم وتفيدني به .

[بن علية حاجي]

السلام عليكم ورحمة الله

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

بالنسبة لتشغيل البرنامج في إكسيل 2007 تجد فيه المشكل الذي ذكرته وأعتقد أن حله هو إضافة السطرين التاليين بعد كل أمر IF مباشرة في الكود إن لم يكونا موجودين، السطران هما:

         Application.EnableEvents = False

       Application.ScreenUpdating = False

والكود يكون بعد تغييره على الشكل التالي:

Private Sub Worksheet_Change(ByVal Target As Range)


Dim i As Integer

Dim j As Integer


On Error GoTo 1


If Cells(Target.Row, 6) = "" And Cells(Target.Row, 7) = "" Then

    Application.EnableEvents = False

    Application.ScreenUpdating = False

    Range(Cells(Target.Row, 24), Cells(Target.Row, 59)).Value = ""

    Application.EnableEvents = True

    Application.ScreenUpdating = True

End If


If Cells(Target.Row, 6) <> "" And Cells(Target.Row, 7) <> "" Then


    Application.EnableEvents = False

    Application.ScreenUpdating = False

    x = Cells(Target.Row, 21)

    y = Cells(Target.Row, 23)

    i = Month(Cells(Target.Row, 6))

    j = Cells(Target.Row, 9) + i - 1


        If x = 0 And y = 0 Then

          Application.EnableEvents = False

          Application.ScreenUpdating = False

          Range(Cells(Target.Row, i + 23), Cells(Target.Row, j + 25)).Value = Cells(Target.Row, 22)

          Application.EnableEvents = True

          Application.ScreenUpdating = True

        End If


        If x <> 0 And y = 0 Then

          Application.EnableEvents = False

          Application.ScreenUpdating = False

          Cells(Target.Row, i + 23) = x

          Range(Cells(Target.Row, i + 24), Cells(Target.Row, j + 24)).Value = Cells(Target.Row, 22)

          Application.EnableEvents = True

          Application.ScreenUpdating = True

        End If


        If x = 0 And y <> 0 Then

          Application.EnableEvents = False

          Application.ScreenUpdating = False

          Cells(Target.Row, j + 24) = y

          Range(Cells(Target.Row, i + 23), Cells(Target.Row, j + 23)).Value = Cells(Target.Row, 22)

          Application.EnableEvents = True

          Application.ScreenUpdating = True

        End If


        If x <> 0 And y <> 0 Then

          Application.EnableEvents = False

          Application.ScreenUpdating = False

          Cells(Target.Row, i + 23) = x

          Cells(Target.Row, j + 24) = y

          Range(Cells(Target.Row, i + 24), Cells(Target.Row, j + 23)).Value = Cells(Target.Row, 22)

          Application.EnableEvents = True

          Application.ScreenUpdating = True

        End If


    Application.EnableEvents = True

    Application.ScreenUpdating = True


End If


1


End Sub

واعذرني إن لم يكن التنظيم جيدا وخاصة للأكواد....

والله أعلم

تم تعديل أبريل 14, 2010 بواسطه hben

[صفوان عبدالرب]

اخي العزيز بن عليه

اشكر لك إهتمامك ومساعدتي في الأمر وقد قمت حسب ردك بأضافة الكود الجديد بعد التعديل وقمت بعمل عمليتين على سبيل المثال و لكن يظهر خطأ حيث يتم إضافة قسط للأقساط المستنزلة مع العلم أني أعمل على إكسل 2007

مرفق الملف بعد التعديل و فيه الخطأ المذكور لذا أرجوا المساعدة بالتصحيح

تحليل المصاريف المدفوعة مقدما 2.zip

تم تعديل أبريل 16, 2010 بواسطه صفوان عبدالرب

[صفوان عبدالرب]

للرفع

[بن علية حاجي]

السلام عليكم ورحمة الله

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

والله أعلم

[صفوان عبدالرب]

اشكرك اخي وقد حاولت أكثر من مرة واحيانا تفلح هذه الطريقة وأحيانا لا مع ذلك أشكرك جزيل الشكر لمساعدتي و إن شاء الله يتعرف أحد الأخوة في المنتدى على الخلل و يساعد بحله إن شاء الله

[بن علية حاجي]

السلام عليكم ورحمة الله

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

If Cells(Target.Row, 6) = "" And Cells(Target.Row, 7) = "" Then

بالسطر

If Cells(Target.Row, 6) = "" Or Cells(Target.Row, 7) = "" Then

وفيه قمت بتغيير كلمة And بكلمة Or فقط (يمكن تصحيحها مباشرة دون تبديل كل السطر)...

وللقيام بتصحيح الخلل (الذي يظهر بعد تغيير تاريخ بداية أو نهاية فترة التسديد مباشرة) يجب مسع مضمون أي خلية من هاتين الخليتين كل مرة قبل وضع التاريخ الجديد فيها ولا نغير هذا التاريخ مباشرة...

وسأبعث لك كل مرة أي تصحيح جديد للكود إن لم يقم أحد الإخوة الكرام بهذا التصحيح...

أخوك دائما "بن علية"

[صفوان عبدالرب]

اخي : بن عليه من خلال محاولاتي في الملف وجدت أنه عند وضع القسط الاول و الأخير بداية و من ثم وضع المبلغ المدفوع مقدما و بداية الفترة وآخرها يعمل الملف بشكل سليم و على هذا اعمل حالياً

إنما واجهتني مشكلة جديدة و هي عندما يكون أول قسط (15 يوم في الشهر)وآخر قسط (15 يوم في الشهر)مثلاً من 16/01/2010 حتى 15/01/2011 يكون إجمالي الفترة سنة ويفترض توزيع الأقساط على 13 قسط (الأول و الأخير من نصف) إلا أن الكود يقوم بتوزيع المبلغ على 12 قسط بأعتبار ان الفترة سنة واحدة و بذلك يكون إجمالي المبلغ الموزع ناقص قسط فهل لديك حل لذلك و بارك الله فيك

[بن علية حاجي]

السلام عليكم ورحمة الله

اخي : بن عليه من خلال محاولاتي في الملف وجدت أنه عند وضع القسط الاول و الأخير بداية و من ثم وضع المبلغ المدفوع مقدما و بداية الفترة وآخرها يعمل الملف بشكل سليم و على هذا اعمل حالياً

إنما واجهتني مشكلة جديدة و هي عندما يكون أول قسط (15 يوم في الشهر)وآخر قسط (15 يوم في الشهر)مثلاً من 16/01/2010 حتى 15/01/2011 يكون إجمالي الفترة سنة ويفترض توزيع الأقساط على 13 قسط (الأول و الأخير من نصف) إلا أن الكود يقوم بتوزيع المبلغ على 12 قسط بأعتبار ان الفترة سنة واحدة و بذلك يكون إجمالي المبلغ الموزع ناقص قسط فهل لديك حل لذلك و بارك الله فيك

أخي الكريم صفوان هذا الذي كنت قد قلته سابقا وكل هذه الحالات وجدتها وأنا أعمل على الكود وقلت لك إني استغربت أن الكود قد عمل معك جيدا ... ولإيجاد الحل لهذه المشكلة وأعتقد أنها المشكلة الوحيدة المتبقية أود أن أعرف منك أنواع فترات التسديد التي تستعملها في ملفك وطريقة تسديدها مثلا من 15/01/2010 إلى 15/03/2011 هل تجعلها كالتالي: القسط الأول من 15/01/2010 إلى 31/01/2010 وقسط أخير من 01/03/2011 إلى 15/03/2011 والباقي يقسم على الأشهر 02/2010، 03/2010، 04/2010 ... 02/2011 أي على 13 شهر أم كيف تتم العملية؟؟؟ والحالات الأخرى...

أنتظر ردك وأعدك أني سأعمل على ملفك وعلى الكود بما أستطيع ليعمل بشكل جيد بمجرد الحصول على هذه المعلومات...

أخوك بن علية

تم تعديل أبريل 21, 2010 بواسطه hben

[صفوان عبدالرب]

مشكور اخي على تواصلك والفترة هي سنة من 16/01/2010 حتى 15/01/2011 وليس حتى 15/03/2011 وبذلك تكون المدة سنة كاملة إنما شهر 01/2010 يحمل بنصف القسط و شهر 01/2011 يحمل بنصف القسط وبقية الأشهر من فبراير /2010 حتى ديسمبر/2010 (11 شهر) يحمل بقسط شهري كامل و بذلك يكون مجموع الأقساط 13 قسط بسبب تقسيم احد الأقساط إلى قسطين على (يناير 2010 و يناير 2011) و مشكور مرة اخرى اخي بن عليه.

[Eid Mostafa]

_{أخى وأستاذى الكبير / بن علية}

_{السلام عليكم ،،،،،}

_{خلال بحثى بالمنتدى عن كيفية تحليل (إستهلاك) المصروفات المدفوعة مقدماً وجدت هذا الموضوع الشيق}

_{ولكنى وددت لو أنه يغطى ما أحتاجة بملفى المرفق والذى أريد من خلالة تحليل المصروفات المدفوعة مقدماً على الفترة المحددة لكل مصروف مع مراعاة عدد أيام كل شهر بالفترة وذلك كالتالى :-}

_{- ستجد أخى بالعمودان C & D الفترة المحددة والتى يغطيها المصروف ، وقد يحدث أن تغطى الفترة المالية سنتان ماليتان كما هو بالسطر رقم 7 حيث تجد أن فترة المصروف تبدأ من 23/7/2012 وحتى 22/7/2013.}

_{- قمت بإستهلاك المصروف وفقاً لنسبة عدد أيام كل شهر إلى عدد أيام الفترة المالية كلها}

_{مثال : السطر رقم 4 " بند وثيقة تأمين السيارة المرسيدس " فى شهر يناير قمت بضرب 9275 جم فى 31 يوم (عدد أيام الشهر) / 204 (عدد أيام الفترة) ، وكذلك الحال فى شهر فبراير ولكن مع الإختلاف حيث أن عدد أيامة هى (29 يوم).}

_{- السطر رقم (7) " بند وثيقة تأمين السيارة المرسيدس " (إستطراد : إن لاحظت سطر 4 مع هذا السطر فستجد أن ذلك هو تجديد للوثيقة السابقة) والذى يغطى فترة من 23/7/2012 وحتى 22/7/2013 فستجد أنى قد قمت بإدخال قيم صفرية فى الستة أشهر الأولى (يناير : يونيو) ثم إتبعت نفس الأسلوب الموضح أعلاة فى الأشهر الستة التالية (يوليو : ديسمبر) .}

_{فهل بالإمكان أن أقوم فقط بإدخال الفترة المالية بالعمودان C & D ويتم عمل} كافة ماسبق بالمعادلات بحيث أصل إلى نفس النتائج ولكن بشكل آلى ودون الإضطرار إلى _{حساب عدد الأيام} إدخال القيم باليد ....؟

_{أرجو أن أكون قد وفقت فى شرح ما أقصدة.}

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

Prepaid Exp. Settlement.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم عيد مصطفى، قمت ببعض التغييرات على المعادلات الخاصة بالأشهر وعدد أيام كل شهر وإضافة شهور السنة الموالية... تم إضافة معادلة (طويلة بعض الشيء لعله يمكن تبسيطها) التي تقوم بحساب أقساط الشهور حسب الفترات المدرجة في العمودين C و D والمبالغ المحجوزة في العمودين F و G. ويمكن مقارنة نتائج هذه المعادلات مع ما قمتَ بحسابه بطريقة يدوية في ملفك المرفق (بداية من السطر 8 والملونة بالأصفر)... أعتقد أن المعادلات (رغم طولها) قد أوفت المطلوب...

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

أخوك بن علية

Prepaid Exp. Settlement.rar

[Eid Mostafa]

_{أخى وأستاذى الكبير / بن علية}

_{السلام عليكم ورحمة الله وبركاتة ،،،،،}

_{أخى الكريم بداية أشكرك على إهتمامك بالرد وهذا ما عهدته منك دائماً}

_{أخى الكريم سأقوم بالإطلاع على المرفق وأنا كل ثقة فى أنه سيفى بالمطلوب تماماً}

_{ومرة أخرى عذراً إن كنت قد أثقلت عليك.}

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

[Eid Mostafa]

_{أخى وأستاذى الكبير / بن علية}

_{السلام عليكم ورحمة الله وبركاتة ،،،،،}

_{أخى الكريم ردى هذا ليس للتعقيب وإنما للشكر والتقدير وإن كنت أشك إن كان بمقدورى أن أوفيك حقك}

_{فكما ذكرت لك فى الرد السابق بأنى كل ثقة فى أنه سيفى بالمطلوب تماماً}

_{وبالفعل فقد أوفيت بالمطلوب تماماً ولا أريد أن أقول بل وأكثر}

_{سلمت يداك وأفكارك العبقرية}

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

[Eid Mostafa]

_{أخى وأستاذى الكبير / بن علية}

_{السلام عليكم ورحمة الله وبركاتة ،،،،،}

_{عذراً على العودة مرة أخرى للموضوع وكلى خجل منك}

_{أخى الكريم لقد إستعملت معادلاتك الرائعه ولكن فى ملف شركة أخرى "كما بالمرفق"}

_{وستلاحظ أخى الكريم بأن المعادلات بالسطران 4 و 11 لاتحتاج إلى أى شئ وتفى بالمطلوب تماماً}

_{ولكن المعادلات بالأسطر من 5 إلى 10 أعتقد أنها فى حاجه إلى لمساتك العبقرية لتفى بالمطلوب منها}

_{والسبب فى ذلك هو أنى أحياناً أواجه مصروف يظهر ويتم تسويته خلال نفس الشهر "كما هو حاصل بالأسطر المذكورة"}

_{فهل بإمكانك التكرم وتعديل المعادلة لتفى بكافة الإحتمالات ... ؟}

_{أخى الكريم عفواً إن كان الأمر به قدر من الصعوبه فلا عليك إطلاقاً وسأقوم بإدخالها باليد علماً بأنى حاولت أن أعدلها ولكنى لم أفلح فى ذلك.}

_{ومرة أخرى عذراً إن كنت قد أثقلت عليك.}

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

Prepaid Exp. Settlement 3.rar

تم تعديل أكتوبر 5, 2012 بواسطه Eid Mostafa

[بن علية حاجي]

السلام عليكم ورحمة الله

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

أخوك بن علية

Prepaid Exp. Settlement 3.rar

تم تعديل أكتوبر 5, 2012 بواسطه بن علية حاجي

[Eid Mostafa]

_{أخى وأستاذى الكبير / بن علية}

_{السلام عليكم ورحمة الله وبركاتة ،،،،،}

_{أخى الكريم ردك هذا نابع من تواضع أخلاق وسماحة نفس وأدب جم فأنت بحق أخ أكبر ، بارك الله فيك ولك وزادك الله من العلم الكثير والكثير لتنفع به نفسك وكل سائل.}

_{بالفعل المعادلات الآن أتت بكل الإحتمالات تماماً ، ولا أظن أننى سأعود لهذا الموضوع بعد هذا الحل الأكثر من رائع من عبقرى مثلك لدية مثل هذة القدرة الخارقة على تطويع المعادلات.}

_{مرة أخرى بل مرات ومرات لاتحصى زادك الله من العلم الكثير والكثير لتنفع به نفسك وكل سائل.}

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}