Cómo utilizar un bucle para cambiar varias celdas en Visual Basic

La característica más poderosa de una computadora es su capacidad para automatizar, y que se basa en un concepto de programación simple llamado un "bucle". Si el idioma es Visual Basic, Ensamblador, Fortran, C o Java, la conveniencia de la informática proviene del bucle. En esencia, se puede indicar al equipo para repetir un determinado cientos de tareas, miles o incluso millones de veces. Es fácil de programar un bucle simple en Visual Basic para cambiar varias celdas en Excel.

Instrucciones

Escribir un programa simple con un Loop

1 Mantenga pulsada la tecla "Alt" y pulse la tecla "F11" en una nueva hoja de cálculo en Excel. Mira el Editor de Visual Basic, y si ves la hoja de cálculo en la pantalla en su lugar, seleccione "Herramientas", seleccione "Macro", a continuación, seleccione "Editor de Visual Basic."

2 Haga clic en "Insertar" y seleccione "Módulo". Escriba el siguiente código cuando se ve el cursor parpadeante debajo de la palabra "(general)":

Sub SimpleLoop ()

Dim I As Integer
Hojas de trabajo ( "Sheet1"). Activar
Range ( "A1"). Seleccionar

'Comentario: He aquí viene el bucle

Para i = 1 a 100
ActiveCell.Value = I
ActiveCell.Offset (1, 0) .Activate
Siguiente yo

"Comentario: El bucle termina a declaración anterior

End Sub

3 Revisan su código cuidadosamente para errores - los dos caracteres después de la palabra "SimpleLoop" están entre paréntesis. Confirmar que el código es exactamente igual que el código de seguridad.

4 Ejecutar el programa: Seleccione "Ejecutar", seleccione "Ejecutar Sub / UserForm."

5 Confirmar los resultados del programa haciendo clic en la "X" verde en la parte superior izquierda de la pantalla. Tenga en cuenta que el programa ha escrito los números del 1 al 100 en los primeros 100 celdas de la pantalla.

Modificar el Programa

6 Mantenga pulsada la tecla "Alt" y pulse "F11". Cambiar su programa para hacer cálculos rápidos 100 y almacenar el resultado: Mover el cursor a la línea que dice: "ActiveCell.Value = I". Cambiarla para que lea como sigue:

ActiveCell.Value = 1,05 ^ (I)

7 Ejecuta el programa. Haga clic en la "X" verde de nuevo y confirme que el programa ha hecho cálculos 100 y los almacena en la hoja de cálculo. calcular manualmente 1,05 elevado a la potencia 2 para entender el cálculo.

8 Borrar la pantalla manteniendo pulsada la tecla "Ctrl" y la tecla "A" Suelte ambas teclas y pulsar "Del".

9 Alterar su programa para escribir un mensaje de 200 veces: Mantenga oprimida la tecla "Alt" y pulse "F11". Mover el cursor al número "100" y sustituirla por "200" Mover el cursor una línea hacia abajo y reemplazar "I" con "Me encanta la informática!" La línea de código debería tener este aspecto:

ActiveCell.Value = "Amo informática!"

10 Ejecutar el programa de nuevo. Haga clic en la "X" verde de nuevo y confirme que el programa ha escrito "Me encanta la informática!" 200 veces.