محاسبه مالیات

[hosein.mirjalili]

با سلام
تو فایل پیوست یه جدول مبنای مالیات داریم و یک جدول میزان حقوق , با فرمولی که داره فقط یک ردیف از جدول مالیات مورد محایبه قرار میگیره مثلا اگه حقوق بیش از 800/000 باشه اول باید تا مبلغ 600/000 رو با نرخ 0/05 و مابه التفاوت رو با نرخ 0/1 حساب کنه ممنون و متشکرم

[generalsamad]

با سلام
تغییراتی روی فایلتون دادم
ببینید همین مد نظر بوده

=vlookup(f4;j$5:k$7;2;true) 

فایل ضمیمه گردید

[hosein.mirjalili]

با سلام
ممنون از لطفتون , ببینید مثلا بابت حقوق 980000 ریال اول باید تا سقف 600000 ریال رو 10 درصد حساب کنه 60000 میشه بعد 980000 رو از 600000 کم میشه و با نرخ 15درصد حساب میشه 57000 , که جمعا 177000

[Ali Parsaei]

سلام،
بايد جدول ماليات را پله اي درست کنيد، فايل ضميمه را ببينيد، البته من فرض کرده ام که منظورتان از: 0.05 يعني 5 درصد و .... چون اون جوري که شما نوشته ايد يک کم گنگ است، مثلا" سر ستون را نوشته ايد: "درصد ماليات" بعد زيرش نوشته ايد: 0.05 که معني اش مي شود "پنج صدم درصد!!!"
من فرمول را يک بار به طور کلي در ستون c نوشته ام و چون يک مقدار طولاني است شرح قطعات تشکيل دهنده فرمول را هم جدا در يک جدول توضيح داده ام.

[mohammad_ashooryan]

سلام
از جواب سوالي كه چند وقت پيش توي انجمن يكي از دوستان در مورد محاسبه تخفيف پلكاني پرسيده بود، استفاده كردم.
tax.xlsx
براي توضيحات به لينك زير مراجعه كنيد.
(سوال) نحوه محاسبه تخفیف پلکانی

[iranweld]

با سلام

فایل پیوست با select case تهیه گردید. بررسی و مشکلات را اعلام بفرمایید

Private Sub CommandButton1_Click()

Dim income As Long
Dim tax, x As Double
Dim i, z As Integer

z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

Range("B2:B" & z).Select
    Selection.ClearContents
    Range("B2").Select
    
    
For i = 2 To z

income = Round(Range("A" & i).Value)

Range("A" & i).Value = income

Select Case income

Case Is >= 1000001

x = 10000 + 20000
x = x + 30000
        tax = x + 0.2 * (income - 1000000)

 Case Is >= 800001
        tax = 20000 + 10000 + 0.15 * (income - 800000)
        
        Case Is >= 600001
        tax = 10000 + 0.1 * (income - 600000)
    
   
        Case Is >= 400001
        tax = 0.05 * (income - 400000)
        
    Case Else
    
        tax = 0
        
End Select

Range("B" & i).Value = tax
Next i

End Sub