Estructuras repetitivas- Laboratorio 14 Nro.
DD-106
Informática Aplicada Página 1 de 6
INFORMÁTICA APLICADA
LABORATORIO N 14
Estructuras repetitivas
CODIGO DEL CURSO: IG 1014
Alumno(s): Nota
Grupo: Ciclo:
Requiere No
Criterio de Excelente Bueno Puntaje
mejora acept.
Evaluación (5pts) (4pts) Logrado
(3pts) (0pts)
Desarrolla y utiliza
correctamente las
estructuras for.
Conoce y utiliza y
desarrolla Macros.
Realiza y desarrolla
ejercicios VBA
Puntualidad, orden
Observaciones, y
conclusiones
PROGRAMA DE FORMACIÓN REGULAR
Estructuras repetitivas- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 2 de 6
I. OBJETIVOS:
II. Identificar las estructuras de programación del lenguaje de programación Visual Basic para
Aplicaciones
III. Identificar las sentencias de ciclos o bucles
IV. Identificar la estructura de las funciones definidas por el usuario.
V. SEGURIDAD:
Advertencia:
En este laboratorio está prohibida la manipulación del hardware,
conexiones eléctricas o de red; así como la ingestión de alimentos
o bebidas. No jugar durante el desarrollo de la sesión.
.
Al culminar la sesión de laboratorio, apagar correctamente la
computadora y el monitor.
VI. RECURSOS:
En este laboratorio cada alumno trabará con un equipo con Windows.
Los equipos deben contar con internet.
Microsoft Word
Microsoft Excel 2013.
VII. METODOLOGÍA PARA EL DESARROLLO DE LA TAREA:
El desarrollo del laboratorio es individual.
VIII. FUNDAMNENTO TEORICO.
Bucle For Each
A continuación, mostramos la sintaxis del bucle For Each
For Each elemento In grupo
[instrucciones]
[Exit For]
[instrucciones]
Next [elemento]
Implementar una nueva macro denominada m_bucle_for_each() que rellene el rango de
celdas seleccionadas con valores enteros pares iniciando en el valor 100 en la hoja 3. A
continuación se indica el código :
Sub m_bucle_for_each()
Dim contador As Integer
contador = 100
For Each celda In Selection.Cells
celda.Value = contador
contador = contador + 2
Next
End Sub
PROGRAMA DE FORMACIÓN REGULAR
Estructuras repetitivas- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 3 de 6
Ingrese los valores y el botón como se muestra el gráfico
Modifique la macro con los siguientes valores: 100 – 2 ; 200 – 3 ; 300 - 5
Crear tres botones uno para cada caso
Ejecute la macro y verifique los resultados generados
Anote los detalles más importantes del ejercicio anterior
Para qué sirve For Each
El bucle FOR NEXT
En VBA nos permite en Excel (o cualquier otro lenguaje de programación) repetir una
acción un número de veces dado. Su sintaxis es la siguiente:
For CONTADOR = COMIENZO To FINAL [Step VALOR_DE_PASO]
'código
[Exit For]
'código
Next
Dónde:
CONTADOR: es la variable numérica de control del bucle
COMIENZO: es el valor numérico donde comenzará el CONTADOR. Es un número
entero.
PROGRAMA DE FORMACIÓN REGULAR
Estructuras repetitivas- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 4 de 6
FINAL: es el valor numérico hasta donde contará el CONTADOR.
Step VALOR_DE_PASO: opcional. Valor numérico que irá sumándose al
CONTADOR a lo largo del bucle. Es un número natural.
‘código: es el código de la expresión que queremos que se ejecute dentro del
bucle todas las veces.
Exit For: sentencia opcional que nos permite salir del bucle y continuar la macro a
partir del NEXT final sin necesidad de haber recorrido el bucle completamente.
A continuación vamos a ver una serie de ejemplos que nos permitan entender mejor el
bucle FOR NEXT en VBA.
En este ejemplo tenemos el bucle FOR NEXT en VBA más sencillo. El bucle cuenta de
1 a 10 y va poniendo en una columna el valor del contador. Creamos una macro
denominada m_bucle_for_1() y ejecutamos el código.
En este ejemplo añadimos la propiedad “step 2” que incrementará el contador de 2 en 2. Es decir,
inicialmente el contador valdrá 1, luego 3, luego 5 y así sucesivamente. Creamos una macro
denominada m_bucle_for_2() y ejecutamos el código.
Implementar una nueva macro denominada m_bucle_for_3(). A continuación se indica el código
:
Sub m_bucle_for_3()
For CONTADOR = 1 To 16 Step 1
fila = CONTADOR
Cells(fila, 1) = CONTADOR
Next
For fila = 2 To 16 Step 2
Range(Cells(fila, "A"), Cells(fila, "C")).Interior.Color =
10392541
Next
End Sub
PROGRAMA DE FORMACIÓN REGULAR
Estructuras repetitivas- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 5 de 6
Insertar un botón para hacer correr la macro.
Aumentar dos For Next en donde el step aumente en 2 y en 3
Aumentar un For Nxt en donde cambie el color de la segunda fila (cambiar el código)
Ejecute la macro y verifique los resultados generados
Anote los detalles más importantes del ejercicio anterior
Ayudarse de la imagen
Implementar una nueva macro denominada m_bucle_for_(). A continuación se indica el código :
Sub m_bucle_for_4()
For CONTADOR = 10 To 100
If CONTADOR = 49 Then
MsgBox "El contador ha llegado al número " & CONTADOR
Exit For
End If
Next
End Sub
PROGRAMA DE FORMACIÓN REGULAR
Estructuras repetitivas- Laboratorio 14 Nro. DD-106
Informática Aplicada Página 6 de 6
Ejecute la macro y verifique los resultados generados
Anote los detalles más importantes del ejercicio anterior
CONCLUSIONES
OBSERVACIONES:
PROGRAMA DE FORMACIÓN REGULAR
