ممكن مساعده

[dunia]

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

mmm.rar

[قنديل الصياد]

اخى العزيز

فى عمود مكافة 1  ، مكافة 2  ،  مكافة 3      المبالغ ليست محددة بالدرهم ولا بالدينار

برجاء تحديد المبالغ بالدينار والمبالغ بالدرهم حتى يتم الجمع كما تريد

تحياتى

[dunia]

مو مشكله  اضف انتا اي قيمه المهم انك فهمت طلبي  

[أبو محمد أشرف]

ممكن توضيح أكتر

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

السلام عليكم

هل يصلح أن يكون الجدول هكذا

mmm.rar

تم تعديل أغسطس 25, 2013 بواسطه عبد السلام زاوي

[قنديل الصياد]

اخى العزيز

جمعت لك الاعمدة ولكن الجمع العادى ولا ادرى ان كان هذا ما تريد ام لاء

 

mmm.rar

[الـعيدروس]

ماطلبك اخي الكريم

هل تريد حساب المكافأت لعملتين مختلفه مثلاً

بالدرهم والدينار ؟

والقيم الموجودة في أعمدة المكافئات

عباره عن اي عملة ؟

[dunia]

ماطلبته  هو عند جمع اي قيمه تكون مثلا عثرة دينار وخمسمائة درهم  تكتب(500) درهم في خلية الدراهم و (10) دينار في خلية الدنانير بس ياريت تكونوا فهمتوني 

[قنديل الصياد]

اخى العزيز

اتمنى ان يكون هذا ما تريد

تحياتى

 

 

mmm.rar

 

 

[dunia]

لالالا مو هذا طلبي بالملف  شرح ياريت بس تكون فهمتني 

mmm4.rar

[الـعيدروس]

السلام عليكم

الصق المعادلة التاليه في "F7" واسحب للاسفل

=IF(ISERROR(FIND(".";SUM($B7:$D7)));MID(SUM($B7:$D7);1;LEN(SUM($B7:$D7))); LEFT(SUM($B7:$D7);LEN(SUM($B7:$D7)))-MID(SUM($B7:$D7);FIND(".";SUM($B7:$D7));LEN(SUM($B7:$D7))))

والمعادلة التاليه في "E7" وسحب للاسفل

=IF(ISERROR(FIND(".";SUM($B7:$D7)));0;MID(SUM($B7:$D7);FIND(".";SUM($B7:$D7))+1;LEN(SUM($B7:$D7))))

mmm_A.rar

تم تعديل أغسطس 26, 2013 بواسطه عباد

[dunia]

اوكي تمام بس الرقم الدراهم بيطلع 5 دراهم  المفروض يطلع 500 درهم  واسف تعبتكم معي 

[dunia]

اوكي بس 5  دراهم بطلع من دون صفرين يعني المفرض بتطلع 500 اوكي بس ممكن لو اسهل لكم طريقه ثانية نجمع بطريقة عادي في عمود بعدها نفصل الدراهم عن الدينار  بلمف شرح واسفه تاعبتكم معي

mmm5.rar

[dunia]

مافي رد الباين زهقتوا من طلبي  شكرا لكل من يحاول مساعدتي

[الـعيدروس]

جرب الكود التالي

 

حسب المرفق الاخير

Public Sub Ali_D()
Dim Rn As Range
Dim A As String
Dim x
On Error Resume Next
For Each Rn In Range("E7:E" & Cells(Rows.Count, 1).End(xlUp).Row)
If Rn.Value <> Empty Then
A = Rn.Text: x = Split(A, ".")
With Rn
 .Offset(0, 1) = x(1)
 .Offset(0, 2) = x(0)
End With
End If
Next
End Sub

mmm_A.rar

تم تعديل أغسطس 27, 2013 بواسطه عباد

[dunia]

     شكرا  

تم تعديل أغسطس 28, 2013 بواسطه dunia