PRÁCTICA 13. CREAR UN BOTÓN Y ASIGNAR UNA MACRO

Ejercicio1: Introduce 25 valores 0 y 1 en la columna A1. Crea un programa que cuente la cantidad de ceros que hay y la cantidad de unos que hay. El resultado debe aparecer en las celdas que quieras. Agrega un botón para que se ejecute la macro.

 

 Ejercicio2: . Crea un programa libre y  agrega un botón para que se ejecute la macro.

 

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)

 

PRÁCTICA 11. JUEGO CON MICROSOFT EXCEL

Quizz de Excel : Nuestro juego trata de adivinar los monumentos ,parques de Colombia y banderas , cada sección esta compuesta de quince imagenes. 
Recordamos que las respuestas tienen que estar respondidas en mayúscula. 
Después de terminar el juego podéis ver el porcentaje de vuestros aciertos en la parte superior izquierda. 
Espero que os guste.

Bienvenidos

Buenos días tenemos un nuevo Blog ya que el de  NO NOS CAMBIEN MÁS nos lo han inhabilitado por ser un falso positivo mas conocido como SPAM que no tienen derecho por que no hemos publicado nada fuera de lo normal .
Continuaremos subiendo publicaciones de nuestros trabajos escolares después de semana santa y en este nuevo blog .
Espero que os guste este nuevo blog

Att: las chicas informáticas