توزيع الحجم الكلي المطلوب لعدد من الحجوم معلومه الفئة

[mustafa85]

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

اخواني ارجوا المساعدة في تعديل الملف المرفق توزيع الحجم الكلي المطلوب لعدد من الحجوم حيث عند ادخال القيمة 1.45 اريد الحصول على عدد 1 من القيمة 1 والعدد 3 من القيمة 0.15 حتى يصبح المجموع الكلي 1.45 واكون شاكر لكم

توزيع الحجم الكلي المطلوب لعدد من الحجوم.rar

ايضا يجب ان يكون الناتج الاجمالي اقل ما يكون بعد حساب عدد التوافيق الممكنه

 

[ياسر خليل أبو البراء]

أخي الكريم مضطفى

أهلاً بك في المنتدى ونورت بين إخوانك

هل شكل النتائج المتوقعة كما في المثال هو الرقم 1 في الخلية C4 والرقم 3 في الخلية F4 ..

هل تريد الحل بالمعادلات أم بالأكواد؟

 

[mustafa85]

اخوي في الله أ.ياسر خليل المحترم

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

 

[عبدالسلام ابوالعوافي]

جرب اخي هذا الملف .. قم بادخال الحجم   وانتظر قليلا حتى تتم العملية .. 

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

توزيع الحجم الكلي المطلوب لعدد من الحجوم.rar

[ياسر خليل أبو البراء]

بسم الله ما شاء الله

عمل رائع أخي الحبيب عبد السلام أبو العوافي ، ولا يستحق إلا كل تقدير

تقبل وافر تقديري واحترامي

 

[محي الدين ابو البشر]

3 ساعات مضت, عبدالسلام ابوالعوافي said:

جرب اخي هذا الملف .. قم بادخال الحجم   وانتظر قليلا حتى تتم العملية .. 

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

توزيع الحجم الكلي المطلوب لعدد من الحجوم.rar

السلام عليكم

يار رجل هاي تاني مرة بشوف هيك حلقات تكرارية (بس نسيت المرة الأولى )

بارك الله بك وبجودك

أحسنت

[mustafa85]

شاكر لكم وبكل ممنونية ماقدمته يداكم لكن فيه مشكله عند ادخال قيمة ك 0.45 فيخرج الناتج لايوجد حل مع انه الحل انه باخد 3 فئات من القيمة 0.15

ياريت لو يتم تصحيح الخطاء ولكم من الله خير الجزاء بأذنه تعالى

[عبدالسلام ابوالعوافي]

صحيح اخي مصطفى .. لم اجد تفسير حقيقة

تتبعت الكود وكانت النتيجة كما في الصورة .. ومع ذلك تجاوز الشرط 

لعل احد الاعضاء يجد تفسير

جربت الارقام الاخرى وكانت النتيجة جيدة .. الا هذا الرقم !!!

تم تعديل مايو 29, 2016 بواسطه عبدالسلام ابوالعوافي

[عبدالسلام ابوالعوافي]

اذا قمت بكتابة القيمة 0.45 يدويا في الخلية O6 فان الكود يشتغل تمام .. اما اذا كانت النتيجة من خلال المعادلة فيكون هناك خطأ

كود اخر للتحقق 

Sub aaa()
    If Cells(6, 15) = 0.45 Then Debug.Print "Yes"
    Debug.Print Cells(6, 15)
End Sub

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

[ياسر خليل أبو البراء]

أخي العزيز عبد السلام

ربما تكون القيمة الظاهرة غير القيمة الحقيقية للرقم جرب أن تضيف Value2 بهذا الشكل

Cells(6,1).Value2

لن نخسر شيئاً بالتجربة

تقبل تحياتي

[mustafa85]

هذا اجتهاد مني لحل المشكلة ولكن التقريب لاينجح مع بعض القيم وذلك لامكانية تلافي بعض الهدر عند اختيار فئه حجمية اخرى

توزيع الحجم.rar

[mustafa85]

للرفع

[عبدالسلام ابوالعوافي]

استاذنا ياسر .. القيمة هي ناتج ضرب 0.15*3 يعني القيمة هي 0.45 .. جربت كل الطرق التي اعرفها وغيرت انواع المتغيرات ولم اعرف السبب

اخونا مصطفى .. الكود يعمل بشكل جيد الا في هذه القيمة .. للتغلب علي المشكلة قم بكتابة القيمة يدويا 

ولا يزال هذا الخطأ يشغل تفكيري .. 

[عبدالسلام ابوالعوافي]

حقيقة لازلت افكر في هذه المعضلة .. المرفق يبين ان 0.15*3 يساوي 0.45 عن طريق المعادلات بينما لا يساويه عن طريق الاكواد ..

0.45 not equel 0.45.rar

[عبدالسلام ابوالعوافي]

جرب اخي هذا الملف بعد التعديل

توزيع الحجم الكلي المطلوب لعدد من الحجوم.rar

[mustafa85]

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