Im Folgenden werden wir ein Programm in Excel VBA suchen, die die Steuer auf Einkommen berechnet. Die folgenden Steuersätze gelten für Personen, die Bewohner von Australien sind.

Taxable income Tax on this income

0 – $6,000

Nil

$6,001 – $35,000

15c for each $1 over $6,000

$35,001 – $80,000

$4,350 plus 30c for each $1 over $35,000

$80,001 – $180,000

$17,850 plus 38c for each $1 over $80,000

$180,001 and over

$55,850 plus 45c for each $1 over $180,000

Situation:

Tax Rates in Excel VBA

  1. Zuerst erklären wir zwei Doppel Variablen. Ein Doppel Variable, die wir Anruf Einkommen, und ein Doppel Variable, die wir Steuer nennen.

Dim income As Double

Dim tax As Double

  1. Wir initialisieren die Variable Einkommen mit dem Wert der Zelle A2 und um sie herum.

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

  1. Wir stellen den gerundeten Wert in Zelle A2 wieder.

Range("A2").Value = income

  1. Wir verwenden den Select Case Anweisung, die Steuer auf Einkommen zu berechnen. Excel VBA verwendet Einkommen jede nachfolgende Case-Anweisung zu testen, um zu sehen, ob der Code unter der Case-Anweisung ausgeführt werden soll.

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

Beispiel: wenn das Einkommen 37.000 ist, Steuern beträgt + 0,3 * 4350 (37.000-35.000) = 4350 + 600 = $ 4950 5. Wir haben den Wert der Variablen Steuer Zelle B2 schreiben.

Range("B2").Value = tax

  1. Legen Sie diesen Code in einer Befehlsschaltfläche und testen.

Ergebnis:

Tax Rates Result