Ejemplo de uso de Loop, aplicado a los ingresos tributarios del gobierno

Se aplica la función Do while ..... loop  a una caso concreto donde se busca conocer cuanto es la recaudación de impuestos, para cada tipo de impuestos.

Se tiene una base de datos donde la recaudación de impuestos aparece codificada, para el presente ejemplo con fines de simplicidad se tomara 3 tipos de impuestos:

IGV que la codificación va de 1000 a 2000

ISC que la codificación va de 2000 a 3000

Impuesto a la Renta que la codificación va de 3000 a 4000

(Para una mayor visualización de la imagen, hacer click en la misma)

Seguidamente se procede a crear el codigo que nos permita conocer la recaudacion para cada cada tipo de impuesto

Primero declaramos las variables que vamos a usar

Sub y()
a = 1000
b = 2000
c = 3000

i = 2
j = 13
k = 24
sigv = 0
sisc = 0
sir = 0

Luego creamos el loop que nos permitira encontrar la suma del igv en efectivo recaudado

Do While Cells(i, 1) > a And Cells(i, 1) < b
Cells(i, 10) = Cells(i, 8 )
sigv = sigv + Cells(i, 8 )
i = 1 + i
Loop

MsgBox ("la suma del igv es " & sigv)

En el bucle anterior hemos programado lo siguiente:  si los valores de la primera columna (la contiene el codigo del impuesto)

se encuentran entre 1000 y 2000 ( codigo del impuesto del IGV), se sume el efectivo recaudado el cual se encuentra en la fila 8 y se almacene en Sigv y nos muestre un cuadro de texto diciendo el monto recaudado

Creamos el código para los impuestos restantes que hemos considerado:

Do While Cells(j, 1) > b And Cells(j, 1) < c
Cells(j, 10) = Cells(j, 8 )
sisc = sisc + Cells(j, 8 )
j = 1 + j
Loop

MsgBox ("la suma del isc es " & sisc)

Do While Cells(k, 1) > c
Cells(k, 10) = Cells(k, 8 )
sir = sir + Cells(k, 8 )
k = 1 + k
Loop

MsgBox ("la suma del impuesto a la renta es " & sir)

Los anteriores bucles lo único que hacen es completar las instrucciones de suma de efectivo para los dos impuestos restantes, se puede introducir mas impuestos lo único que se tendría que hacer es crear tantos bucles como impuestos se quieran.

HECHO POR: JHORDANO AGUILAR LOYO