Tasas de Impuestos en Excel VBA

A continuación, veremos un programa en Excel VBA que calcula el impuesto sobre un ingreso. Las siguientes tasas impositivas se aplican a las personas que residen en Australia.

Ingreso imponible	Impuesto sobre esta renta
0 - $ 6 000	Nulo
$ 6,001 - $ 35,000	15 centavos por cada $ 1 sobre $ 6,000
$ 35,001 - $ 80,000	$ 4,350 más 30c por cada $ 1 sobre $ 35,000
$ 80,001 - $ 180,000	$ 17,850 más 38c por cada $ 1 sobre $ 80,000
$ 180,001 y más	$ 55,850 más 45c por cada $ 1 sobre $ 180,000

Situación:

1. Primero, declaramos dos variables dobles. Una doble variable la llamamos renta y una doble variable la llamamos impuestos.

Dim income As Double
Dim tax As Double

2. Inicializamos la renta variable con el valor de la celda A2 y la redondeamos.

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

3. Volvemos a colocar el valor redondeado en la celda A2.Rango ("A2").

Range("A2").Value = income

4. Usamos la declaración Select Case para calcular el impuesto sobre un ingreso. Excel VBA utiliza los ingresos para probar cada declaración de caso posterior para ver si se debe ejecutar el código debajo de la declaración de caso.

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

Ejemplo: si el ingreso es 37000, el impuesto es igual a 4350 + 0.3 * (37000-35000) = 4350 + 600 = $ 4950

5. Escribimos el valor de la variable impuesto en la celda B2.

Range("B2").Value = tax

6. Coloque este código en un botón de comando y pruébelo.

Resultado:

4/9 ¡Completado! Obtenga más información sobre las declaraciones if then>
Siguiente capítulo: bucle