Ci-dessous, nous examinerons un programme en Excel VBA qui calcule l'impôt sur un revenu. Le suivant les taux d'imposition s'appliquent aux personnes qui résident en Australie.
Revenu imposable |
Impôt sur ce revenu |
---|---|
0 - $6,000 |
Néant |
$6,001 - $35,000 |
15c pour chaque 1 $ de plus de 6 000 $ |
$35,001 - $80,000 |
4 350 $ plus 30 c pour chaque 1 $ de plus de 35 000 $ |
$80,001 - $180,000 |
17 850 $ plus 38c pour chaque 1 $ de plus de 80 000 $ |
180 001 $ et plus |
55 850 $ plus 45c pour chaque 1 $ de plus de 180 000 $ |
Situation:
1. Tout d'abord, nous déclarons deux variables doubles. Une variable double que nous appelons revenu et une variable double que nous appelons impôt.
Revenu faible en tant que double
Dim taxe en tant que double
2. Nous initialisons la variable revenu avec la valeur de la cellule A2 et l'arrondissons.
revenu = Round(Range("A2").Valeur)
3. Nous plaçons à nouveau la valeur arrondie dans la cellule A2.
Plage("A2").Valeur = revenu
4. Nous utilisons l'instruction Select Case pour calculer l'impôt sur un revenu. Excel VBA utilise le revenu pour tester chaque instruction Case suivante pour voir si le code sous l'instruction Case doit être exécuté.
Sélectionnez le revenu de cas
Le cas est >= 180001
impôt = 55850 + 0,45 * (revenu - 180000)
Le cas est >= 80001
impôt = 17850 + 0,38 * (revenu - 80000)
Le cas est >= 35001
impôt = 4350 + 0,3 * (revenu - 35000)
Le cas est >= 6001
impôt = 0,15 * (revenu - 6000)
Cas autre
taxe = 0
Fin de la sélection
Exemple : si le revenu est de 37000, l'impôt est égal à 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $
5. Nous écrivons la valeur de la taxe variable dans la cellule B2.
Plage("B2").Valeur = taxe
6. Placez ce code dans un bouton de commande et testez-le.
Résultat: