PRÁCTICA 12. VISUAL BASIC EN EXCEL - Aspectos elementales

Ejemplo1: primer procedimiento.

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

 

 

 

Ejemplo3: 
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)