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

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

قام بنشر

اخى العزيز

فى عمود مكافة 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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information