تحويل معادلة مركبة بنسب مئوية مختلفة الى كود vba

[ناصرالمصرى]

السلام عليكم ورحمة الله وبركاته

لدى هذه المعادلة التى تعمل بشكل جيد من حيث النتائج لكنى أرغب فى إختصارها بنهج أخر إن وجد أو ربما دالة معرفة

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

اختصار معادلة.xlsx

[ابراهيم الحداد]

السلام عليكم و رحمة الله

استخدم هذه الدالة المعرفة

عليك بتحديد الصف الاول الذى سوف يتم جمعه Rng  و من ثم استخراج النسبة المحددة و السحب لاسفل

Function AllPerc(Rng As Range) As Double
Dim x As Integer, y
x = WorksheetFunction.Sum(Rng.Value)
If x >= 8001 Then: y = x * 0.045
'--------------------
ElseIf x >= 7501 Then: y = x * 0.0425
'--------------------
ElseIf x >= 7001 Then: y = x * 0.0375
'--------------------
ElseIf x >= 6001 Then: y = x * 0.03
'--------------------
ElseIf x >= 5501 Then: y = x * 0.025
'--------------------
ElseIf x >= 5001 Then: y = x * 0.0175
'--------------------
ElseIf x >= 4501 Then: y = x * 0.015
'--------------------
ElseIf x >= 4001 Then: y = x * 0.01
'--------------------
ElseIf x >= 3001 Then: y = x * 0.005
'--------------------
Else
y = 0
End If
AllPerc = y
End Function

 

[ناصرالمصرى]

شكرا لك أخى الكريم لمشاركتكم المباركة

حاولت تطبيق ماتفضلت بذكرة ولكن هناك رسالة خطأ

فهل يمكن ارسال ملف بمعرفة سيادتكم **** ربما هناك ما أغفوا عنه

تم تعديل نوفمبر 14, 2023 بواسطه ناصرالمصرى
خطأ إملائى

[ابراهيم الحداد]

السلام عليكم و رحمة الله

اخى الكريم الدالة المعرفة تعمل عندى بمنتهى الكفاءة

و لا ادرى سبببا للخلل المرفق مع المشاركة السابقة

اليك الملف ذاته المرسل مع المشاركة الاولى بعد اضافة الدالة المعرفة

 

اختصار معادلة1.xlsm

تم تعديل نوفمبر 14, 2023 بواسطه ابراهيم الحداد

[ناصرالمصرى]

جزاكم الله تعالى عنا خير الجزاء