/ / Skattesatser i Excel VBA

Skattesatser i Excel VBA

Nedenfor vil vi se på et program i Excel VBA der beregner skatten på en indkomst. Det følgende skattesatser gælder for personer, der er hjemmehørende i Australien.

Skattepligtig indkomst

Skat på denne indkomst

0 - $ 6000

Nil

$ 6,001 - $ 35,000

15c for hver $ 1 over $ 6,000

$ 35,001 - $ 80,000

$ 4.350 plus 30c for hver $ 1 over $ 35.000

$ 80,001 - $ 180,000

$ 17.850 plus 38c for hver $ 1 over $ 80.000

$ 180,001 og over

$ 55.850 plus 45c for hver $ 1 over $ 180.000


Situation:

Skattesatser i Excel VBA

1. For det første erklærer vi to dobbeltvariabler. En dobbeltvariabel vi kalder indkomst, og en dobbeltvariabel vi kalder skat.

Dim income As Double
Dim tax As Double

2. Vi initialiserer den variable indkomst med værdien af ​​celle A2 og runder den.

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

3. Vi placerer den afrundede værdi igen i celle A2.

Range("A2").Value = income

4. Vi bruger Select Case-sætningen til at beregne skatten på en indkomst. Excel VBA bruger indkomst til at teste hver efterfølgende Case-erklæring for at se, om koden under Case-sætningen skal udføres.

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

Eksempel: hvis indtægten er 37000, svarer skatten til 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950

5. Vi skriver værdien af ​​den variable skat til celle B2.

Range("B2").Value = tax

6. Placer denne kode i en kommandoknap og test den.

Resultat:

Skattesatser Resultat

Læs også: