Ciclos VBA

Páginas: 2 (274 palabras) Publicado: 2 de diciembre de 2013
Ciclos VBA

Definición de ciclo: es un proceso en el que se ejecutan una serie de operaciones un número determinado de veces. Las operaciones serán siempre las mismas,pero con datos y resultados diferentes.


Ciclo Do While

Do while...
…..
Loop


Ejemplo usando ciclos
Excel tiene valores en las celdas B1:B100. Quieres buscarla primera celda que tenga un valor más alto o igual que 1.50
i = 1
Do While Cells(i, 2) ""
if Cells(i, 1) >= 1.5 Then Exit Do
i = i + 1
Loop
MsgBox "El valor seencontró en fila no. " & i

i = la línea donde empezamos el ciclo. Ponemos i = 1. Cells(i, 2) significará línea i (=1), columna 2. Es decir celda B1. Al final del ciclo, i nosdará la línea que buscamos.
Do While Cells(i, 2) "" significa que queremos que un ciclo siga hasta que no haya más celdas con valores en esta columna.
Aplicamos lacondición a cada celda, para luego salir del ciclo (Exit Do) si encuentra un valor igual a ó más alto que 1.50
Al final devolvemos un MsgBox para presentar el resultado.Ciclo For-Next

For i= 1 to ...
…..
Next i

Repite las instrucciones un número especificado de veces.

For i... Next
Repite las instrucciones i veces.

EjemploCreamos un ciclo sencillo. Queremos que se repita 4 veces, y que la variable intValor (al empezar = 1) se incremente con 2 cada vuelta. Este nos da el resultado intValor = 9(1+2+2+2+2).
intValor = 1
For i = 1 to 4
intValor = intValor + 2
Next i

El incremento en Step como parte del ciclo, es usado para decirle a VBA cuánto debe aumentar encada ciclo la variable de control. El siguiente ejemplo imprimirá la variable test con los valores 1, 3, 5, 7 y 9
For test = 1 To 10 Step 2
Print test
Next test
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • modulos en vba
  • Formularios En VBA
  • Programación en vba
  • FUCIONES VBA
  • Resumen vba
  • Programar VBA
  • Diccionario vba
  • Vba resumen

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS