تحويل هذه المعادله الى كود فى حتى اضيفه فى مديول visual basic

[لطفى محمد]

IF(BT2>83333.33;((7500+(BT2-33333.33)*25%));IF(BT2>75000;((3333.33+3750+(BT2-33333.33)*25%));IF(BP2>66666.67;((750+2333.33+3750+(BT2-33333.33)*25%));IF(BT2>58333.33;((375+187.5+2333.33+3750+7291.67+(BT2-33333.33)*25%));IF(BT2>50000;((62.5+125+187.5+2333.33+3750+(BT2-33333.33)*25%));IF(BT2>41666.67;((31.25+125+187.5+2333.33+3750+(BT2-33333.33)*25%));IF(BT2>33333.33;((31.25+125+187.5+2333.33+3750+(BT2-33333.33)*25%));IF(BT2>16666.67;((3750+2333.33+187.5+125+31.5+(BT2-16666.67)*25%%));IF(BT2>5000;((2333.33+187.5+125+31.25+(BT2-5000)*22.5%));IF(BT2>3750;((187.5+125+31.25+(BT2-3750)*20%));IF(BT2>2500;((125+31.25+(BT2-2500)*15%));IF(BT2>1250;((31.25+(BT2-1250)*10%));IF(BT2<1250;BT2*2.5%;0)))))))))))))

معادلة الضرائب الجديده.xlsm

[مهند محسن]

كان عليك لزاماً استخدام خاصية البحث بالمنتدى ... طالما انك لم تقم برفع ملف , فقد تكرر طلبك كثير جداً بالمنتدى -تفضل

تحويل المعادلة الى كود

[الرائد77]

تفضل

Sub NTAx()
Dim lr As Integer
lr = ActiveSheet.Cells(Rows.Count, 13).End(xlUp).Row
For i = 2 To lr

Select Case Cells(i, 13).Value
Case Is > 83333.33

Cells(i, 14).Value = 7500 + (Cells(i, 3).Value - 33333.33) * 25 / 100
Case Is > 75000
Cells(i, 14).Value = 3333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100

Case Is > 75000
Cells(i, 14).Value = 3333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100
Case Is > 66666.67
Cells(i, 14).Value = 750 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100
Case Is > 58333.33
Cells(i, 14).Value = 375 + 187.5 + 2333.33 + 3750 + 7291.67 + (Cells(i, 13) - 33333.33) * 25 / 100
Case Is > 50000
Cells(i, 14).Value = 62.5 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100
Case Is > 41666.67
Cells(i, 14).Value = 31.25 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100
Case Is > 33333.33
Cells(i, 14).Value = 31.25 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100
Case Is > 16666.67
Cells(i, 14).Value = 3750 + 2333.33 + 187.5 + 125 + 31.5 + (Cells(i, 13) - 16666.67) * 25 / 100

Case Is > 5000
Cells(i, 14).Value = 2333.33 + 187.5 + 125 + 31.25 + (Cells(i, 13) - 5000) * 22.5 / 100

Case Is > 3750
Cells(i, 14).Value = 187.5 + 125 + 31.25 + (Cells(i, 13) - 3750) * 20 / 100

Case Is > 2500
Cells(i, 14).Value = 125 + 31.25 + (Cells(i, 13) - 2500) * 15 / 100
Case Is > 1250
Cells(i, 14).Value = 31.25 + (Cells(i, 13) - 1250) * 10 / 100
Case Is < 1250
Cells(i, 14).Value = Cells(i, 13) * 2.5 / 100

End Select
Next


End Sub

 

معادلة الضرائب الجديده.xlsm

[لطفى محمد]

اخى الكريم بعد اذن حضرتك طلب اخير ممكن بدل زر الميكرو يكون للمعادلة اسم مثلا tax2020 وتكون ضمن المعادلات الاكسيل بحيث اعمل tax2020(m2)= وبعدها اعمل enter  يعطينى النتيجه واكون شاكر لحضرتك