MS Excel con VB
Ver Más instrucciones
escribir un programa simple con un Loop
1
Mantenga pulsada la tecla " Alt" y presione 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 ", luego seleccione " Editor de Visual Basic ".
2 Haga clic en " Insertar" y seleccione "Módulo ". Escriba el siguiente código cuando se ve el cursor debajo de la palabra " (General ) ": .
Sub SimpleLoop ()
Dim I Como IntegerWorksheets ( "Sheet1 ") ActivateRange ("A1 " ) Seleccione
' comentario: Aquí viene la de Loop
For I = 1 a 100ActiveCell.Value IActiveCell.Offset = ( 1 , 0 ) ActivateNext I Love
. ». comentario: extremos del lazo en la declaración anterior
End Sub
3
Revise su código cuidadosamente para errores - los dos personajes después de la palabra " SimpleLoop " están entre paréntesis. Asegúrese de que su código es exactamente igual que el código anterior
4
Ejecute el programa : . Seleccione "Ejecutar ", luego 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 células en la pantalla.
Modificar el programa
6
Mantenga pulsada la tecla " Alt" y presione "F11 ". Cambiar el programa para hacer 100 cálculos rápidos y almacenar el resultado : Mueva el cursor a la línea que dice: " ActiveCell.Value = I". Cámbielo para que lea como sigue:
ActiveCell.Value = 1.05 ^ ( I)
7
Ejecute el programa. Haga clic en la "X" verde de nuevo y asegúrese de que el programa ha realizado 100 cálculos 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
Cambie su programa para escribir un mensaje de 200 veces : Mantenga pulsada la tecla " Alt" y presione "F11 ". Mueva el cursor al número " 100 " y sustituirla por " 200 ". Mueve el cursor una línea hacia abajo y reemplazar " yo" con "Te quiero calcular ! " La línea de código debería tener este aspecto :
ActiveCell.Value = "¡ Me encanta computing"
10
Ejecute el programa de nuevo. Haga clic en la "X" verde de nuevo y asegúrese de que el programa se ha escrito " Me encanta la informática ! " 200 veces.