/ / อัตราภาษีใน Excel VBA

อัตราภาษีใน Excel VBA

ด้านล่างเราจะดูที่โปรแกรมมา Excel VBA ที่คำนวณภาษีจากรายได้ ต่อไปนี้ อัตราภาษี ใช้กับบุคคลที่อาศัยอยู่ในออสเตรเลีย

รายได้ที่ต้องเสียภาษี

ภาษีจากรายได้นี้

0 - 6,000 เหรียญ

ศูนย์

6,001 - 35,000 เหรียญ

15c สำหรับแต่ละ $ 1 มากกว่า $ 6,000

$ 35,001 - $ 80,000

$ 4,350 บวก 30c สำหรับแต่ละ $ 1 มากกว่า $ 35,000

80,001 - 180,000 เหรียญ

$ 17,850 บวก 38c สำหรับแต่ละ $ 1 มากกว่า $ 80,000

$ 180,001 ขึ้นไป

$ 55,850 บวก 45c สำหรับแต่ละ $ 1 มากกว่า $ 180,000


สถานการณ์:

อัตราภาษีใน Excel VBA

1. ขั้นแรกเราจะประกาศตัวแปรสองตัว ตัวแปรสองตัวที่เราเรียกว่ารายได้และตัวแปรสองตัวที่เราเรียกเก็บภาษี

Dim income As Double
Dim tax As Double

2. เราเริ่มต้นตัวแปรรายได้ด้วยค่าของเซลล์ A2 และรอบ

income = Round(Range("A2").Value)

3. เราใส่ค่าที่ปัดเศษเข้าไปในเซลล์ A2 อีกครั้ง

Range("A2").Value = income

4. เราใช้คำสั่ง Select Case เพื่อคำนวณภาษีสำหรับรายได้ Excel VBA ใช้รายได้เพื่อทดสอบแต่ละคำสั่ง case ที่ตามมาเพื่อดูว่าควรใช้รหัสภายใต้คำสั่ง Case หรือไม่

Select Case income
    Case Is >= 180001
        tax = 55850 + 0.45 * (income - 180000)
    Case Is >= 80001
        tax = 17850 + 0.38 * (income - 80000)
    Case Is >= 35001
        tax = 4350 + 0.3 * (income - 35000)
    Case Is >= 6001
        tax = 0.15 * (income - 6000)
    Case Else
        tax = 0
End Select

ตัวอย่าง: หากรายได้เป็น 37000 ภาษีเท่ากับ 4350 + 0.3 * (37000-35000) = 4350 + 600 = 4950 เหรียญ

5. เราเขียนค่าของตัวแปรภาษีลงในเซลล์ B2

Range("B2").Value = tax

6. วางรหัสนี้ในปุ่มคำสั่งและทดสอบ

ผล:

ผลการคำนวณภาษี

อ่านเพิ่มเติมได้ที่: