استخراج المبلغ حسب المنطقة

[حسين مامون]

السلام عليكم

ان شاء الله

عندي شيت (tafasil) وشيت(تقرير)

كل اسم  في الجدول يسكن في منطقة كما هو مبين في العمود(o)

واريد كود يقوم بعملية حسابية لاستخراج نتيجة العمود "H"

يعني مثلا

ادا كان ما في العمود"o"في شيت tafasilمطابق مع ما في العمود"a"شيت تقرير يضرب ما في العمودE شيت tafasilمع العمود fشيت تقرير +العمودF=العمودH

 

المعادلة في الخلايا الملونة بالاصفر تبين شرح ما اريد في المرفق

اريد ان لا يتأثر الكود على المعادلات في هذا المصنف

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

تحياتي

المبلغ حسب المنطقة.rar

[عادل ابوزيد]

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

 

 

 

الحل.rar

[حسين مامون]

السلام عليكم 

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

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

تحياتي

[حسين مامون]

السلام عليكم 

اخواني اساتذة المنتدى  

هل من حل لموضوعي

[حسين مامون]

اخواني هل من رد جزاكم الله خيرا

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

بارك الله فيك أخي الغالي عادل على مشاركتك القيمة والرائعة

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

Sub Test()
    With Range("H6:H" & Cells(Rows.Count, 8).End(xlUp).Row)
        .FormulaR1C1 = "=SUMPRODUCT((تقرير!R4C1:R7C1=tafasil!RC[7])*(tafasil!RC[-3]*تقرير!R4C6:R7C6))+tafasil!RC[-2]"
        .Value = .Value
    End With
End Sub

تقبل تحياتي

 

[عادل ابوزيد]

بعد اذن استاذى ومعلمى (بضم الميم ) ياسر خليل

اليك رابط تحويل المعادلات لاكواد للتيسير فى عمل ملف وهو استاذنا العبقرى الغائب الحاضر عبد الله باقشير

http://www.officena.net/ib/index.php?showtopic=42853#

واليك الملف بعد استخدام الكود

تقبل تحياتى

الحل2.rar

[حسين مامون]

السلام عليكم 

اخواني اشكركم جميعا الاستاذ الكبير ياسر خليل ابو البراء والاستاذ عادل ابو زيد 

ساجرب  ان شاء الله وساجبكم جزاكم الله خيرا

تحياتي

[حسين مامون]

السلام عليكم

اساتذتي اشكركم 

هل يمكن اجراء تعديل عل الكود ليعطي نتيجة المبلغ كما يلي:

مثلا : الخلية E7* تمن الوجدة لمنطقة افلاين +الطاكس =النتيجة يجب ان تكون113,62 بدل 113,71

الخليةE8  * ثمن الوحدة لمنطقة ايت اوشيخ + الطاكس =النتيجة يجب ان تكون 75,38 بدل 75,33

************************تحياتي*******************************

 

المبلغ حسب المنطقة حسب الموقع.rar