مساعدة في ملف اكسل لحساب الحوافز تبع التحصيل

[Hasan Abdullah]

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

اريد المساعده في ملف اكسل لحساب الحوافز تبع التحصيل

من مبلغ 1 ريال الى 1999000 ريال نسبه 0.25

من 2000000 الى 3500000 نسبه 0.50

اكثر من 3500000 يتم طرح المبلغ من 3500000 ويضرب في 1% و 3500000 يضرب في 0.50

ارغب بها على اكسل

 

شكررا لتعاونكم

 

[أبو حنــــين]

مرحبا

في غياب مثال يوضح المطلوب يصعب التكهن بالنتيجة

جرب هذه الدالة المستحدثة بحيث تقوم بنسخ هذه الدالة في موديل و تكتب في خلية ما : 

=xNember(A1)

حيث  A1  هي الخلية التي تحتوي على الرقم المعني بالحساب

 

 

 

Function xNember(My_Value As Double)

Dim Result 
 
    Select Case My_Value
        Case 1 To 1999000:      Result = My_Value * 0.25
        Case 2000000 To 3500000:      Result = My_Value * 0.5
        Case Is > 3500000:   Result = (My_Value - 3500000) * 0.01 + (3500000) * 0.5
    End Select
    xNember = Result

End Function

 

تم تعديل ديسمبر 7, 2016 بواسطه أبو حنــــين

[Hasan Abdullah]

الف شكر لتعاونك

بس كيف ادخلها في الاكسل