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

[اوفيس 2003]

اريد ملف اكسل به دوال تحسب ما يلي الله يبارك فيكم لمسألتين ::

1- عميل يريد ان يقسط مبلغ 2000 ريال على 5 اقساط بحيث يدفع نصف المبلغ في القسط الأول والباقي على 4 اقساط مع العلم انه لابد ان يكون اي كسور في القسط الأول فقط اما الأربع اقساط بدون اي كسور

2- عميل يريد ان يقسط مبلغ 2000 ريال على 5 اقساط بحيث يدفع في القسط الأول 1500 ريال والباقي على 4 اقساط مع العلم انه لابد ان يكون اي كسور في القسط الأول فقط اما الأربع اقساط بدون اي كسور

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

برجاء المساعدة لأنها مهمة في عملي جدا جدا وبرجاء شرح الدالة وكيف ان استخدمها

[سالم شباني]

السلام عليكم

هذه محاولة بسيطة أرجو أن تكون بداية للوصول إلى المطلوب

تقسيط.rar

تم تعديل أغسطس 14, 2009 بواسطه سالم شباني

[أ / محمد صالح]

أخي الكريم

مع احترامي لمثال الأخ سالم

إذا كان قصدك أنك تريد أن يحسب البرنامج في الطريقتين الأقساط الأربعة بدون كسور مثل 252.60 وتريدها أن تكون مثلا 252

فتفضل

وأتمنى أن يكون هو المقصود

taqseet.rar

[سالم شباني]

السلام عليكم

أخي mas123 حياك الله

تدخلي في الموضوع القصد منه البدء في إيجاد الحلول

أشكرك على أنك بدأت في حل تمرين الدورة في انتظار الباقي من التمرين

[أ / محمد صالح]

السلام عليكم

أخي mas123 حياك الله

تدخلي في الموضوع القصد منه البدء في إيجاد الحلول

أشكرك على أنك بدأت في حل تمرين الدورة في انتظار الباقي من التمرين

الله ما كنت أعرف أن هذا تمرين ومطلوب من الإخوة في دورة

عذرا إن كنت قد أسأت

[أ / محمد صالح]

السلام عليكم

أخي mas123 حياك الله

تدخلي في الموضوع القصد منه البدء في إيجاد الحلول

أشكرك على أنك بدأت في حل تمرين الدورة في انتظار الباقي من التمرين

الله ما كنت أعرف أن هذا تمرين ومطلوب من الإخوة في دورة

عذرا إن كنت قد أسأت

[قطان]

السلام عليكم

أخواني الأعزاء لست أدري مالقصة ؟؟!!

وعن أي دورة تتكلمون !!

لكني حللت المشكلة بالبرمجة وعممت الفكرة على عدد أقساط متغير

وخفوا من تكرار الخطأ الذي وقع به أخي mas123 لن أرفق الملف

بانتظار أن أفهم الموضوع بالضبط

والسلام ختام

[اوفيس 2003]

بارك الله فيكم يا اهل الخيــر وكل عام وانتم بخير بمناسبة اقتراب شهر رمضان المبارك

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

اعذروني على كثرة اسئلتي وبارك الله فيكم وكتبها الله لكم في ميزان حسانتكم

Qus.rar

[قطان]

السلام عليكم

أخي الكريم المرفق تم وفق ملفك الأول

وتمنيت لو أن ملفك الأول واضح كالثاني وسيتم تعديله كما تريد ان شاء الله

والسلام ختام

تقسيط.rar

[أ / محمد صالح]

أخي الكريم

هل عدد الأقساط متغير أم ثابت على خمس أقساط؟؟

وأعتقد أنه لا يجب تساوي الأقساط الأربعة الباقية في الطريقة الثانية لأنه من الممكن أن يكون المبلغ المتبقي بعد ما يتم دفعه لا يقبل القسمة على أربعة أم أنه يمكننا تعديل المبلغ المدفوع لما ينبغي أن يكون

على العموم

هذه محاولة

taqseet2.rar

تم تعديل أغسطس 15, 2009 بواسطه mas123

[اوفيس 2003]

بارك الله فيكم

اخي mas123 شكرا على سرعة الرد وبالنسبة لأسئلتك ؟؟

1- عدد الأقساط متغير كما اريد من 2- كما اريد

2- وبالنسبة للطريقة الثانية انا اريد المتبقى يقسم على عدد الأقساط المتبقية مهما كان المبلغ

ولو تكرمت ياغالي انا اريد ان اضع في بند عدد الأقساط المتبقية عدد الأقساط كلها يعني بدل 4 نجعلها 5 ( لأن ذلك يؤدي الى تلخبط ) مع الحفاظ بنفس الدوال الحسابية

وجزاك الله كل خير

وياليت لو شرح للدالة المستخدمة مفصلاً

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

تم تعديل أغسطس 15, 2009 بواسطه office 2003

[سالم شباني]

السلام عليكم

أخي محمد صالح حياك الله

أشكرك على العمل الرائع الذي قدمته لأخينا office2003

وأنا استفدت كثيرا فبارك الله فيك

توضيح /

لما قدمت أنا الملف الأول فعند فتحه تأتي رسالة ( أنت تفتح ملف إكسيل زر منتدى أوفيسنا لتتعلم أكثر )أعنقد أنك عدلته في المشاركة رقم3

فظننت أنك اطلعت على التمرين الوارد في موضوع ( دورة للمبتدئين في البرمجة) وهو مثبت في الصفحة الأولى

ولذلك شكرتك على ذلك وبما أنكم تسألون عن الدورة فهو موضوع مثبت في الصفحة الأولى من منتدى الإكسيل

أتمنى أن تشاركوا فيه وتستفيدوا من الدروس التي يشرف عليها الأستاذ ياسر خليل ففيه منفعة كبيرة

أعتذر على الخطأ الغير مقصود

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

[قطان]

السلام عليكم

أخي الكريم بالنسبة لتعديل الملف فتم كما هو مطلوب ( إن شاء الله )

مع وجود خطأ بسيط مازال قيد التعديل

أخي الكريم محمد صالح الدالة المستخدمة رائعة وأضم صوتي لصوت أخي بشرح بسيط لها

لكن ماذا لو أدخل خطأ الدفعة الأولى أكبر من المبلغ ولم ينتبه المدخل ؟؟؟ فلا بد من تنبيهه لها

والسلام ختام

تقسيط.rar

[قطان]

بالنسبة للبرمجة وشرحها

سأحاول شرح ماتم بالملف بالتفصيل ( للمساعدة على فهم آلية البرمجة )

وبصراحة أنا أعمل في البرمجة على فكرة بسيطة وهي

الحاسوب أغبى آلة عرفتها ومهمتي تعليمه كيف يعمل ( مع التأكيد أنه غبي )

ومهنتي كمدرس رياضيات ساعدتني كثيرا لكن جهلي بكثير من الدوال يعذبني

ويطيل عمل الملفات لدي كما في دالة الأخ محمد صالح مثلا

والسلام ختام

[اوفيس 2003]

بارك الله فيك

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

في الإنتظار

وفي انتظار خينا الغالي محمد صـــالح

[أ / محمد صالح]

بسم الله الرحمن الرحيم

إخوتي في الله

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

بالنسبة للدالة المستخدمة في ملفي taqseet2

هي دالة FLOOR تستعمل في

تقريب رقم لأسفل، باتجاه الصفر، إلى أقرب رقم مضاعف معنوي.

بناء الجملة

(FLOOR(number,significance

Number (الرقم) القيمة الرقمية التي تريد تقريبها.

Significance (الرقم المضاعف) المضاعف الذي تريد تقريبه.

ملاحظات

إذا كانت إحدى الوسيطتين غير رقمية، ترجع FLOOR القيمة الخطأ #VALUE!.

إذا كان لكل من number وsignificance لهما إشارات مختلفة، ترجع FLOOR قيمة الخطأ #NUM!.

بصرف النظر عن إشارة الرقم، فيتم تقريب القيمة لأسفل عند تعديلها بعيداً عن الصفر. فإذا كانت number عبارة عن مطابقة الرقم بمضاعفات الأرقام المعنوية، فلا يحدث تقريب.

فبالنسبة للطريقة الأولى

تجد في الخلية d2 المبلغ المراد تقسيطه وتجد في الخلية d5 عدد الأقساط

وتجد في الخلية d3 هذه المعادلة

=D2-FLOOR(D2/2;D5)

وتعني أنها تساوي

المبلغ - تقريب ناتج قسمة المبلغ على 2 (النصف ) إلى أقرب عدد الأقساط

بمعنى أن نصف المبلغ وليكن 833 هو 416.5 والدالة تقربه لأسفل إلى أقرب رقم يقبل القسمة على عدد الأقساط (4) وأقرب رقم يقبل القسمة على 4 لأسفل من الرقم 416.5 هو 416

ثم نأتي لعملية الطرح 833-416=417 فيكون هذا هو قيمة القسط الأول

والباقي 416 مقسم على 4 أقساط كل قسط =416/4 يساوي 104

وهكذا مع تغير المبلغ وتغير عدد الأقساط

وأعتقد أنكم يمكنكم تفسير باقي المعادلات في باقي الطرق

وإلا فأنا مبعرفش أشرح

تحياتي للجميع

MAS

[قطان]

السلام عليكم

أخي أوفيس 2003

الملف أصبح جاهزا وأرجو تجربته وإعطائي الملاحظات

وبالنسبة للشرح أقوم بالكتابة لكن صبرك علي شوي

والسلام ختام

تقسيط.rar

[اوفيس 2003]

جزاك الله كل خير

رمضان كريم