Ci-dessous, nous examinerons un programme dans Excel VBA qui calcule l’impôt sur le revenu. Les taux d’imposition suivants sont applicables aux personnes qui sont des résidents de l’Australie.

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. Tout d’abord, nous déclarons deux variables doubles. Une variable double nous revenu d’appel, et une double variable que nous appelons l’impôt.

Dim income As Double

Dim tax As Double

  1. Nous initialisons le revenu variable avec la valeur de la cellule A2 et autour d’elle.

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

  1. Nous plaçons la valeur arrondie dans la cellule A2 à nouveau.

Range("A2").Value = income

  1. Nous utilisons le lien: déclaration / vba-exemples-select cas [Select Case] pour calculer l’impôt sur le revenu. Excel VBA utilise le revenu pour tester chaque déclaration de cas suivante pour voir si le code sous la déclaration de cas doit être exécutée.

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

Exemple: si le revenu est 37000, l’impôt est égal à + 0,3 * 4350 (37000-35000) = 4350 + 600 = 4950 $ 5. Nous écrivons la valeur de la taxe variable à la cellule B2.

Range("B2").Value = tax

  1. Placez ce code dans un bouton de commande et de le tester.

Résultat:

Tax Rates Result