SITIO DEDICADO  SOLO A EXCEL 2007 Y EXCEL 2003, CON TUTORIALES Y EJERCICIOS  RESUELTOS DE  TODOS LOS TEMAS

NIVELES, BASICO, MEDIO Y AVANZADO

Estructura de iteración For-Next

 

INTRODUCCION:

Esta es una iteración en la que sabemos de antemano cuantas veces se repetirá el ciclo, por lo tanto no hace falta una condición para salir del mismo.

Para explicar For daremos un ejemplo muy simple:

Vamos a sumar los primeros 10 números naturales. En la hoja de cálculo solo debemos poner los números (sin dejar espacios en blanco) en una columna, que en este caso será la D. Luego de aplicar la macro el resultado deberá quedar en la primera celda vacía , este debe ser 55 como se puede verificar haciendo la suma manualmente.

Aprovechando las propiedades de For podemos poner los números desde el código

 

suma de los ptimeros diez naturales

el programa VBA es

codigo

 

Explicación del código (los números representan las líneas de código)

1- Siempre se empieza con Sub seguida del nombre de la macro y 2 paréntesis (Sum()).

2- El primer For es para colocar en la columna D los diez primeros números naturales y significa: para la variable i yendo de 1 hasta 10

3-Se coloca en la celda (i,4) el valor actual de i que se repite al entrar nuevamente en el For

4- Con Next i se incrementa i en 1 y se vuelve a entrar al For

5-Se selecciona la celda "D1"

6- Se coloca en la variable sum el contenido de la celda "D1" ( Sum acumula la suma de los 10 primeros nº narutales)

7-Se entra al 2º For

8 y 9-Dentro del For la primera línea hace bajar una posición la celda seleccionada, de esta forma podemos acceder a su contenido y la segunda agrega este contenido a la variable "sum".

10-En esta línea podemos salir o volver a entrar al For según se haya llegado a 10 o no.

11- En la celda activa colocamos el valor de sum.

12-Tambien mostramos el resultado mediante un MsgBox.

13-Se termina el programa.

 

Quedando la hoja de calculo como se ve abajo

resltado de la macro

 

 

Copyright © 2009. Diseño CésarDesign
Free Web Hosting

http://www.1null_app_id.com/