اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

اريد معادلة بالاكسس لخصم يوم انقطاع عن العمل يخصم من اكثر من سجل مثلا ( الاساسى - العلاوات - البدل 9

قام بنشر

أخي الكريم هنا قسم الإكسيل

إذا أردت أن نساعدك فقط ارفق ملفك ووضح بشكل تام المطلوب

راجع موضوع التوجيهات في الموضوعات المثبتة في المنتدى

تقبل تحياتي

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

عزرا يا اخى لقد تم كتابة اكسس بالخطا اريد المعادلة بالاكسل
فى العمود الاخير عدد ايام الانقطاع اريد دالة if للخصم قيمة اليوم من اكثر من سجل ( asasy , badeekama ,totallelawt ,hadadna )

 

مرتب.rar

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

طيب وقيمة اليوم كيف يتم احتسابها ..بقسمة الأساسي على 30 يوم ولا 31 يوم ولا 28 يوم

اعذرني لجهلي بالأمور المالية

وضح ويا ريت لو فيه مثال تطبيقي بالأرقام وما هي الخلايا التي تريد فيها المعادلات؟

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

على 30 يوم

الخليا التى اريد الخصم منها

asasy , badeekama ,totallelawt ,hadadna

المثال مرفق فى ثانى تعليق

 

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

لا يوجد في المرفق عمود الانقطاع

يرجى الدقة أخي الكريم

إليك المعادلة التالية فيها إجمالي الخصم للأربعة أعمدة D - J - P - Q

ضع المعادلة في الخلية AE2

=SUM((D2/30)*AD2,(J2/30)*AD2,(P2/30)*AD2,(Q2/30)*AD2)

إذا حدث خطأ أثناء نسخ ولصق المعادلة قم باستبدال الفاصلة بفاصلة منقوطة في المعادلة

إذا لم تفي المعادلة بالغرض يرجى مزيد من التوضيح وضرب أمثلة بالنتائج المتوقعة (لأنه لا يفترض بالأعضاء معرفة الأمور المالية الخاصة بحساباتك)

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

بعد اذن استاذى القدير ياسر خليل

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

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

انت بحاجة الى كود VBA وليس معادلة

يمكنك استخدام الكود التالى فى حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("AD2:AD50000")) Is Nothing Then

i = Cells(Target.Row, 4).Value
Cells(Target.Row, 4).Value = i - (i / 30 * Target.Value)
ism = Cells(Target.Row, 10).Value
Cells(Target.Row, 10).Value = ism - (ism / 30) * Target.Value
isu = Target.Offset(0, -14)
Target.Offset(0, -14).Value = isu - (isu / 30) * Target.Value
isuu = Target.Offset(0, -13)
Target.Offset(0, -13).Value = isuu - (isuu / 30) * Target.Value

End If
End Sub

اليك الملف المرفق

 مرتب.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