Estructuras Condicionales y Repetitivas
Estructuras Condicionales y Repetitivas
Estructuras Condicionales y Repetitivas
Estructuras Condicionales y
repetitivas
1
7/29/2018
Inserción de Código
2
7/29/2018
Declaración de Variables
3
7/29/2018
Tipo de Variables
TIPO DESCRIPCIÓN
Byte Número entre 0 y 255
Integer Número entre -32768 y +32767
Long Número entre -2.147.483.648 y + 2.147.483.647
Currency Número con 15 posiciones decimales antes y después de la
coma
Double Tiene precisión de 16 dígitos decimales
Single Tiene precisión de 8 dígitos decimales
Date Fechas y horas desde 1/01/1900 hasta 31/12/9999 y hora 00:00
a 23:59:59
String Una cadena de caracteres limitado solo por la cantidad de RAM
Object Almacena un puntero al objeto
Variant Tipo por defecto
4
7/29/2018
Escribir instrucciones:
Ejemplo:
5
7/29/2018
Procedimientos
Existen 2 tipos:
Los que NO retornan Valor Sub name()
Los que retornan Valor …
No retornan Valor: Realiza End Sub
ciertas acciones: Grabar el
libro actual, pero no retorna un
valor. Define un subprograma o Macro
Los programas se distinguen
porque su código de programa
es pequeño, divido en Sub saludo(parametro1,
unidades separadas parametro2, etc.)
(Procedimientos).
Estas unidades pequeñas
pueden ser llamadas por otras.
Msgbox “Hola a todos”
Puede pasarse parámetros
entre ellos. End Sub
6
7/29/2018
Procedimientos
continuación…
Los que retorna valor; se
denominan FUNCIONES
Como las funciones de EXCEL
Siempre se usan escribiendo el
signo = delante del nombre:
Function MiSuma(dato1, dato2)
7
7/29/2018
Argumentos optativos
8
7/29/2018
Demostración:
Escribir una Macro en el Editor de VB que use
variables y muestre el resultado en la
ventana INMEDIATO
9
7/29/2018
Ejercicio 1
Activar la segunda hoja del libro actual e insertar en la
celda A10 la fecha actual.
SUB CAMBIARHOJA
WorkSheets(2).Activate
Range(“A10”).Select
ActiveCell.Value= “=TODAY”
END SUB
10
7/29/2018
Ejercicio 2
Contar cuantas hojas tiene el libro Actual y escribir el resultado en la ultima
Hoja del libro, en la celda A5 el texto; “Este libro tiene en total: ” num
“hojas”.
SUB CUENTAHOJAS
WorkSheets(NUM).Activate
Range(“A5”).Select
END SUB
11
7/29/2018
Ejercicio 3
Introducir un valor numérico e insertarlo en la segunda hoja en la
celda E3 y luego obtener ese valor y mostrarlo en un cuadro de
mensaje.
SUB INSERTAVALOR
WorkSheets(2).Activate ‘Sheets(2).Activate
Range(“E3”).Select
ActiveCell.Value= VALOR
12
7/29/2018
Ejercicio 4
Que el usuario introduzca el tipo de cambio del dolar en
la hoja1, celda B3.
SUB TIPO_CAMBIO
Dim tc as double
WorkSheets(1).Activate
Range(“B3”).Select
ActiveCell.Value= tc
13
7/29/2018
Ejercicio 5
Crear la macro que convierta una cantidad de Bolivianos en Dólares a
través de un botón en la barra de herramientas. El tipo de Cambio actual
esta en la Hoja 1, celda B3
SUB CONVERTIR_DOLAR
boliviano = ActiveCell.Value
dolar = Worksheets(1).Range("B3").Value
ActiveCell.Value= Resultado
14
7/29/2018
Ejercicio 6
Crear la macro que convierta una cantidad de Bolivianos en Dólares a través de un
botón en la barra de herramientas y muestre el resultado en una Ventana de
Mensaje. El tipo de Cambio actual esta en la Hoja 1, celda B3
SUB MOSTRAR_DOLAR
boliviano = ActiveCell.Value
dolar = Worksheets(1).Range("B3").Value
END SUB
15
7/29/2018
16
7/29/2018
ELSE
END IF
17
7/29/2018
18
7/29/2018
19
7/29/2018
Salario = 2000
Rendimiento = InputBox(“Introduzca Rendimiento”)
20
7/29/2018
FOR-TO- NEXT:
Instrucciones
[EXIT FOR ]
Instrucciones
NEXT contador
21
7/29/2018
Range(celda).Select
NEXT
22
7/29/2018
While …Wend
Permite ejecutar instrucciones mientras una condición
sea VERDADERA.
“Se ejecuta CERO o más veces”
El ciclo While
WHILE condicion
Instrucciones
Instrucciones
WEND
23
7/29/2018
Range(“A2”).Select
Contador = 0
WEND
24
7/29/2018
Do … Loop
Repite las instrucciones un número de veces hasta que una
condición sea VERDADERA.
Dos formas de comprobar la condición: ANTES y DESPUÉS de
entrar al BLOQUE
•Instrucciones •Instrucciones
Exit DO Exit DO
Instrucciones Instrucciones
“Se ejecuta CERO o más veces” “Se ejecuta UNA o más veces”
25
7/29/2018
26
7/29/2018
DO
miNum = miNum – 1
Contador = Contador + 1
27
7/29/2018
DO UNTIL miNum = 10
miNum = miNum – 1
Contador = Contador + 1
LOOP
28
7/29/2018
Ejercicio D) Do Loop
Contabilizar las veces que se ingresa al bloque DO
HASTA que miNum sea igual a 10
Contador = 0
miNum = 1
DO
miNum = miNum + 1
Contador = Contador + 1
29