اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

اخى العزيز

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

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

تحياتى

قام بنشر

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

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

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

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

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

قام بنشر

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

قام بنشر (معدل)

السلام عليكم

الصق المعادلة التاليه في "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

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

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

قام بنشر

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

mmm5.rar

قام بنشر (معدل)

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

 

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

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

تم تعديل بواسطه عباد

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

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information