SEGUNDO PERIODO

Tema: OptionButton
Programa: Microsoft Office Excel
Ejercicio1:
Código:
Private Sub CommandButton1_Click()
Dim puntos As integer
If optionButton1= True then
Puntos=Puntos+20
End if
If optionButton5= True then
Puntos=Puntos+20
End if
If optionButton9= True then
Puntos=Puntos+20
End if
If optionButton13= True then
Puntos=Puntos+20
End if
If optionButton17= True then
Puntos=Puntos+20
End if
Msgbox”Total de puntos” +str(puntos)
End sub

Ejercicio 2:
Código:
Private Sub CommandButton1_Click()
Dim puntos As integer
If optionButton1= True then
Puntos=Puntos+20
End if
If optionButton5= True then
Puntos=Puntos+20
End if
If optionButton9= True then
Puntos=Puntos+20
End if
If optionButton13= True then
Puntos=Puntos+20
End if
If optionButton17= True then
Puntos=Puntos+20
End if
Msgbox”Total de puntos” +str(puntos)
Hoja6.cells(2,2)=str(puntos)
End sub

Tema: Combobox
Programa: Microsoft Office Excel
Ejrcicio 1:
Código:
Privae sub commandButton1_click()
Dim puntos As integer
If combobox1=”juan” then
Puntos=puntos+20
End if
If combobox2=”n.a” then
Puntos=puntos+20
End if
If combobox3=”i.t.c.d.” then
Puntos=puntos+20
End if
If combobox4=”café” then
Puntos=puntos+20
End if
If combobox5=”Thmás” then
Puntos=puntos+20
End if
Msgbox”Total de puntos” +str(puntos)
End sub

EJERCICIOS EN EXCEL UTILIZANDO COMMANBUTTON.

1. Crear un programa que sume 5 números e imprima el resultado
Código:
Private sub commanButton1_click()
Hoja1.cells(4,4)=Hoja1.cells(3,2)+Hoja1.cells(4,2)+ Hoja1.cells(5,2)+ Hoja1.cells(6,2)+ Hoja1.cells(7,2)

2.Crear un programa que calcule el área d un triangulo, dada la base y la altura. Del mismo.
Código:
Private sub commanButton1_click()
Hoja2.cells(3,4)=(Hoja2.cells(3,2)*Hoja2.cells(4,2))/2


Tema: Macro
Programa: Excel
Ejercicio 1:
Pasos:
1.Entrar a Excel, luego realizar un cuadro, seleccionando el área donde se ubicará y colocando bordes externos; dentro de dicho cuadro pondrás bordes externos a las celdas donde ingresarás la siguiente información:

Nombre:……celda
Apellido……..celda
Teléfono…….celda

2.Luego, en la hoja 2, escribe en a1: nombre, en b1:apellido, y en c1:teléfono.

3.Luego en la hoja1, debajo del recuadro, inserta un rectángulo de autoformas.
4.Elige la opción programador y luego haz clic en grabar macro, luego copia la celda a la que le has puesto margen, que está frente a nombre, y en la hoja dos pégala debajo de a1, dando clic derecho y elige la opción insertar celdas copiadas, luego te aparecerá una pequeña ventana, a la cual le darás aceptar. Del mismo modo has con los otros datos.

5.Luego borra la información (invisible) que hay en las celdas de la hoja 1 que copiaste, y detén el macro.

6.Por último da clic derecho a la figura de autoformas y elige la opción asignar macro, luego prosigue a llenar los datos, haz clic en el botón de autoformas y la información ingresada se pasará automáticamente para la hoja 2.