Sub HolaMundo()
MsgBox "¡Hola Mundo!"
End Sub
Ejercicio1: Crea un procedimiento en el que aparezcan tu nombre y tu curso.
Ejercicio2: Crea un procedimiento con una frase ilustre.
Ejercicio3: Inventa un procedimiento.
Ejemplo2:
Sub Saluda()
nombre = InputBox ("Dime tu nombre")
MsgBox "Hola " & nombre
End Sub
Sub Saluda()
nombre = InputBox ("Dime tu nombre")
MsgBox "Hola " & nombre
End Sub
Ejemplo3:
Sub Calcula()
numero = InputBox("Escribe un valor")
MsgBox numero * 2
End Sub
Sub Calcula()
numero = InputBox("Escribe un valor")
MsgBox numero * 2
End Sub
Ejercicio 4: Crea un procedimiento en el que calcules el cuadrado de un número.
Ejercicio5: Crea un procedimiento en el que calcules la suma de dos números.
Ejercicio 6: Inventa un procedimiento utilizando algún operador aritmético.
Ejemplo4:
Sub Nota()
valor = InputBox("Ingresa la nota")
If valor >= 5 Then
MsgBox "Aprobado"
Else
MsgBox "Suspenso"
End If
End Sub
Ejercicio 7: Crea un procedimiento que te diga si una persona es mayor de edad o menor.
Ejercicio 8: Crea un procedimiento en el que dados dos números determines cual es mayor.
Ejercicio9: Crea un procedimiento en el que determines si un número es par o no.
Ejemplo5:Dado un número, N, calculamos mediante un procedimiento la suma de los N primeros enteros.
Sub SumaNumeros()
Dim n As Integer
i = 1
Suma = 0
n = InputBox("Escribe un número")
Do While i <= n
Suma = Suma + i
i = i + 1
Loop
MsgBox Suma
End Sub
Ejercicio10: Crea un procedimiento en el que determines el producto de los N primeros enteros.
Ejemplo6: Programa que escribe en la celda C3 el doble de lo que hay en la celda C2.
Sub DuplicarValor()
dato = Range("C2").Value
Range("C3").Value = dato * 2
End Sub
Ejercicio11: Crea un procedimiento en el que en la primera columna escribas 20 números. En la celda C3 te debe aparecer su producto, en la celda D3 media.
Ejemplo7: Programa que escribe en la celda A1 el valor 1000, en la celda B3 el valor 2000 y en la D1 3000.
Sub Rangos()
Cells(1, 1).Value = 1000
Cells(3, 2).Value = 2000
Cells(1, 4).Value = 3000
End Sub
(Observación es lo mismo Cells(1, 1).Value = 1000 que Cells(1, 1) = 1000, no es necesario poner Value)
Ejercicio12: Crea un procedimiento en el que calcules la tabla del 9. Debes introducir los datos como se muestra en la siguiente tabla y dar el resultado en la columna E.
Ejercicio13: Crea un procedimiento en el que calcules la tabla de multiplicar correspondiente al número indicado en la celda A1 (la tabla empieza a desplegarse desde la línea 3 en adelante)
