Taller N 7.

Formularios en Excel
Abra un nuevo archivo de Excel. Primero debemos activar la Ficha Desarrollador (Programador)

En Excel 2007 : De clic en el botn de Office , y luego clic en: Opciones de Excel (abajo)

Ahora de clic en la Ficha de la izquierda: Ms frecuentes . Busque la opcin llamada: Mostrar ficha Programador en la cinta de opciones y actvela dando clic en ella. (Debe quedar esta figura [] dentro del cuadrito) Luego de clic en Aceptar. En Excel 2013: De clic en el botn Archivo, luego en Opciones , luego en Personalizar cinta de opciones , y en la ventana que sale, en el lado derecho active la opcin Desarrollador (Programador) y Aceptar . De clic en la Ficha Desarrollador (Programador) , luego en Seguridad de Macros. Abra la opcin: Configuracin de macros, y de clic en Habilitar todas las macros y Aceptar. De clic en la Ficha Desarrollador (Programador) y luego de clic en el comando: Seguridad de macros. Busque al lado izquierdo: Configuracin de macros y a la derecha active el comando: Habilitar todas las macros () dando clic sobre este. Tambin de clic sobre el comando: Confiar en el acceso al modelo de objetos de proyectos de VBA. De clic en Aceptar. Una Macro es una serie de pasos que se almacenan y se pueden activar con la tecla de control y una letra. Por ejemplo: si vamos a dar formato a diferentes celdas, como: Fuente (Tipo de letra), tamao de Fuente, Negrita, y Color de Fuente, para no estar repitiendo estos pasos se pueden almacenar en una macro y cuando ejecute la macro los pasos antes mencionados se realizan las veces que se desee. A continuacin veamos cmo grabar y cmo ejecutar una macro. 1. 2. 3. Vaya a la celda A1 escriba su Nombre y presione Enter. Regrese a la celda A1 y ajuste el ancho de la columna. En la ficha Desarrollador (Programador) de clic en el comando: Grabar macro y podr observar esta figura: Windows activa el cuadro de dialogo Grabar Macro, que permitir darle el nombre a la macro y que ser el mtodo abreviado para ejecutarla. El mtodo Abreviado se refiere a la letra con la que se va activar la macro, utilizando la tecla Control. Esta letra debe ser en minscula, porque si activa las maysculas la macro se ejecutar presionando la tecla Shift + Control + la letra que usted indic. Donde dice Nombre de la macro ya aparece el nombre que llevar la macro en este caso Macro1. Si desea cambiarlo escriba uno nuevo, pero yo le recomiendo que lo deje as.

4.

5.

6. 7. 8. 9. 10. 11. 12.

En la opcin Mtodo Abreviado dice que se activa con la tecla Control (CTRL) + la letra que usted indique, de clic en el cuadrito y ponga la letra a (en minsculas). En la opcin Descripcin, escriba brevemente para qu sirve la macro que va a hacer:

el formato a una celda

Esta macro cambia

De clic en el Botn Aceptar . Excel empezar a grabar en la Macro1 todos los pasos que hagamos ya sea con el ratn o con el teclado. Cambie el Tipo de Letra en el Botn Fuente de la Ficha Inicio por: Calibri Cambie el tamao de la letra en el Botn Tamao de Fuente y djelo en 14 De clic en el Botn Negrita y en el botn de Subrayado Cambie el color de la letra dando clic en el botn Color de Fuente y seleccione color rojo y en Color de Relleno seleccione amarillo. Recuerde que todos estos pasos estn siendo almacenados en la macro que estamos grabando y tambin recuerde que estos pasos se estn efectuando en la celda A1. Regrese a la Ficha Desarrollador (Programador) y presione el botn Detener Grabacin. guard los pasos en la Macro1 la cual se activar presionado las teclas Control + a Excel

13. 14.

Escriba otro nombre en la celda C1 y presione Enter , despus regrese a la celda C1. Luego presione las teclas Control + a. Excel efectuar todos los pasos grabados sobre la celda C1, esto quiere decir que el nombre que est en C1 tendr las caractersticas del que est en A1. Tipo de letra, tamao, negrita y el color que se indic al grabar la macro.

Nota. Cada vez que usted presione Control + a, Excel ejecutar la macro y efectuar los pasos en la celda activa. Puede grabar todas las macros que usted desee.

PRA CTICA 1 Genere las siguientes Macros: 1. 2. 3. 4. Grabe una Macro que se active con Control + f y que permita dar fondo verde claro a la celda con borde azul oscuro, y alineacin centrar. Grabe una Macro que se active con Control + h y que permita cambiar la fuente por Tahoma tamao 16, estilo negrita, cursiva, subrayada y centrada con alto de fila en 20. Grabe una Macro que se active con Control + i y que permita dar formato moneda con smbolo pesos, sin decimales, alineacin derecha, tamao de letra en 9. Guarde el archivo con su nombre en la carpeta Mis Documentos, con la opcin: Libro de Excel habilitado para macros.

CREA NDO FORM ULA RIOS Y PROGRA M NDOLOS (10 Puntos)

Escriba: Nombre en la celda A1. En B1 escriba: Direccin y en C1 escriba: Telfono. subrayados y en negrita. A la columna A aplique ancho 35 y 40 a la columna B.

Estos van centrados,

Un formulario es una ventana que se programa por medio de controles y estos controles responden a sucesos que nosotros programamos. Todo esto se encuentra dentro de Visual Basic. A continuacin veamos cmo crear un formulario y cmo programarlo: 1. 2. Presione La Teclas Alt + F11, para entrar al editor de Visual Basic. Active las siguientes opciones: a. b. 3. a. b. De clic en el Men Ver y elija la opcin Explorador de Proyectos De clic en el Men ver y elija la opcin Ventana Propiedades VisualBasic insertar un nuevo formulario llamado: UserForm1. De clic en el Formulario USERFORM1 para activar el Cuadro de Herramientas , si no se activa de clic en el Men Ver y elija la opcin Cuadro de Herramientas . En el panel de propiedades de clic sobre la propiedad Caption y escriba su nombre con letras maysculas. El formulario que vamos a programar tiene el siguiente aspecto, y as debe disearlo:

En el Men Insertar de clic en la Opcin UserForm.

c.

d.

Las palabras: Nombre, Direccin y Telfono son Etiquetas (Label) Los cuadros que estn al lado derecho de cada etiqueta se llaman: Cuadros de Texto (TextBox) Y abajo se ve un Botn de comando (CommandButton) 4. En el Cuadro de Herramientas de clic sobre el Control Etiqueta (el que tiene la A) y luego de clic en el Formulario USERFORM1 para insertar la etiqueta. a. b. Observar un recuadro con el nombre Label1 De un clic en la propiedad Caption de la etiqueta y escriba la palabra: Nombre.

c. 5.

Si por error da doble clic en la etiqueta y lo manda a la pantalla de programacin de la etiqueta, solo de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto.

En el Cuadro de Herramientas de clic sobre el control Cuadro de Texto (el que tiene ab) y luego de clic en el formulario USERFORM1 al lado derecho de la etiqueta que dice Nombre. Este cuadro de texto se llama TextBox1 y debe de estar vaco. Repita los dos pasos anteriores insertando dos controles Etiqueta y dos controles Cuadro de texto escribiendo Direccin en la propiedad Caption de la Label2 y Telfono en la Label3. En el Cuadro de Herramientas de clic sobre el control Botn de Comando y luego de clic sobre el Formulario USERFORM1 a. b. De clic en la propiedad Caption y escriba: Insertar. Si por error da doble clic en el Botn y lo manda a la ventana de programacin, cierre esta ventana.

6. 7.

8.

Ahora de doble clic sobre el cuadro de texto llamado: Textbox1 que se encuentra al frente de la etiqueta Nombre y vamos a programarlo. Cuando salga la ventana de Cdigo escriba las instrucciones que se encuentran en letra negrita: Private Sub TextBox1_Change() Range("A3").Select ActiveCell.For mulaR1C1 = TextBox1 End Sub Nota. Lo que est en azul lo genera Excel automticamente, usted solo escribir lo que est en Negrita. Estos comandos le indican a Excel que se vaya a la celda A3 y escriba lo que hay en el Textbox1. volver al Formular io cierre la ventana de Cdigo. Para

9.

Ahora de doble clic sobre el cuadro de texto llamado: Textbox2 que se encuentra al frente de la etiqueta Direccin y vamos a programarlo. Cuando salga la ventana de Cdigo escriba las instrucciones que se encuentran en letra negrita: Private Sub TextBox2_Change() Range("B3").Select ActiveCell.For mulaR1C1 = TextBox2 End Sub Estos comandos le indican a Excel que se vaya a la celda B3 y escriba lo que hay en el Textbox2. volver al Formular io cierre la ventana de Cdigo. Para

10.

Ahora de doble clic sobre el cuadro de texto llamado: Textbox3 que se encuentra al frente de la etiqueta Telfono y vamos a programarlo. Cuando salga la ventana de Cdigo escriba las instrucciones que se encuentran en letra negrita: Private Sub TextBox3_Change() Range("C3").Select ActiveCell.For mulaR1C1 = TextBox3 End Sub

Estos comandos le indican a Excel que se vaya a la celda C3 y escriba lo que hay en el Textbox3. volver al Formular io cierre la ventana de Cdigo. 11.

Para

Ahora de doble clic sobre el control Botn de Comando para programarlo y despus inserte el siguiente cdigo: Private Sub CommandButton1_Click() Selection.EntireRow.Insert TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.Set Focus End Sub

Nota. 12.

El comando Empty es empleado para blanquear los Textbox, es decir, para dejarlos vacos.

Ahora presione la tecla de funcin F5 para ejecutar el Formulario Userform1. Escriba los datos que all se piden (Nombre, direccin y telfono) seguidos de la tecla Enter . En el

campo direccin escriba el barrio.

Todo lo que escriba en los Cuadros de Texto (Textbox) se escribir en Excel Cuando presione el botn Insertar, se insertar una fila en blanco y los Cuadros de texto (Textbox) quedarn vacos. Inserte cinco registros con nombre, barrio y telfono. Los datos pueden ser inventados.

13.

Ahora quite los comandos de los procedimientos: textbox1_change(), textbox2_change(), y textbox3_change(), y pngalos al principio del procedimiento Commandbutton1_click() para que quede de la siguiente manera: Private Sub CommandButton1_Click() Range("A3").Select ActiveCell.For mulaR1C1 = TextBox1 Range("B3").Select ActiveCell.For mulaR1C1 = TextBox2 Range("C3").Select ActiveCell.For mulaR1C1 = TextBox3 Selection.EntireRow.Insert TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.Set Focus End Sub

Private Sub TextBox1_Change() End Sub Private Sub TextBox2_Change() End Sub Private Sub TextBox3_Change() End Sub Observe que los procedimientos: TextBox quedaron vacos. tecla F5 y observe qu sucede. Ejecute de Nuevo el formulario pulsando la

14.

Guarde su archivo con su nombre en la carpeta Mis Documentos con la opcin: Libro de Excel habilitado para macros.

15.

Ahora elimine el cuadro de texto TextBox2 y en su lugar inserte un ComboBox. El formulario queda as:

16.

Ahora de un clic sobre el ComboBox1 y en la ventana de Propiedades busque la opcin: TabIndex y escriba: 2 y pulse Enter. De un clic sobre el TextBox3 y en la propiedad TabIndex escriba 3 y pulse Enter.

17.

Frente a la etiqueta direccin, qued un combobox. Ahora de doble clic en el botn Insertar y cambie textbox2 por combobox1, para que quede como se muestra a continuacin: Private Sub CommandButton1_Click() Range("A3").Select ActiveCell.FormulaR1C1 = TextBox1 Range("B3").Select ActiveCell.FormulaR1C1 = ComboBox1 Range("C3").Select ActiveCell.FormulaR1C1 = TextBox3 Selection.EntireRow.Insert TextBox1 = Empty ComboBox1 = Empty TextBox3 = Empty TextBox1.SetFocus End Sub

18.

De doble clic sobre el formulario, en la parte gris con puntos y busque el evento Initialize al lado derecho para que escriba el siguiente cdigo:

Private Sub UserForm_Initialize() ComboBox1.AddItem "CHAPINERO" ComboBox1.AddItem "SAN LUIS" ComboBox1.AddItem "TEUSAQUILLO" ComboBox1.AddItem "GALERAS" ComboBox1.AddItem "EL LAGO" ComboBox1.AddItem "EL CAMPN" End Sub

Este comando: AddItem lo que hace es inicializar el combobox con una lista de Barrios que van a ser usados en el momento de meter los datos. Pulse la tecla F5 para que vea el funcionamiento del formulario. Inserte al menos tres registros con: Nombre, barrio y telfono. Observe que no necesita escribir los barrios, sino seleccionarlos de la lista. Guarde su archivo con su nombre en la carpeta Mis Documentos con la opcin: Libro de Excel habilitado para macros.

SEGUNDO EJEMPLO: (10 Puntos)

Para comenzar el segundo ejemplo debemos guardar el trabajo anterior y cerrarlo. Abra un nuevo archivo de Excel. Escriba Nombre en A1. Edad en B1 y Das vividos en C1. Estos van centrados, con negrilla y subrayados. Aplique a la columna A ancho 30. Ahora pulse Alt + F11 para ir al editor de Visual Basic, luego dele Insertar UserForm. En la propiedad Caption escriba su nombre completo. Ahora vamos a crear un formulario con el siguiente aspecto:

El formulario tiene: a. b. c. Tres etiquetas Tres Textbox Un Botn de Comando

Los datos que se piden son: Nombre y Edad, los Das Vividos se generaran automticamente cuando inserte la edad. A continuacin se muestra como se deben de programar estos Controles:

Programacin de los Controles: Private Sub CommandButton1_Click() Selection.EntireRow.Insert TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.SetFocus End Sub Private Sub TextBox1_Change() Range("A3").Select ActiveCell.FormulaR1C1 = TextBox1 End Sub Private Sub TextBox2_Change() Range("B3").Select ActiveCell.FormulaR1C1 = TextBox2 TextBox3 = Val(TextBox2) * 365 End Sub Private Sub TextBox3_Change() Range("C3").Select ActiveCell.FormulaR1C1 = TextBox3 End Sub Esto va permitir que cuando se ejecute el formulario y se de la edad el resultado de los das vividos aparecer en el Textbox3 y se escribir tambin en Excel. El comando Val es un comando de Visual Basic que permite convertir un valor de texto a un valor numrico.

EJERCICIO PRACTICO:

(30 Puntos)

En una nueva hoja de Excel, escriba a partir de la celda A1: CEDULA, NOMBRE, CARRERA, JORNADA, SEMESTRE, GRUPO, Nota1, Nota2, Nota3, Nota4, cada palabra en una celda. Debe crear en VisualBasic un formulario que Necesitar: Once etiquetas (Label), seis permita introducir estos datos en la hoja de Excel a partir de la fila 3.

cuadros de Texto (TextBox) para cdula, nombre y las cuatro notas, cuatro ComboBox para carrera, jornada, semestre y grupo y un Botn de comando (CommandButton), como se muestra a continuacin:

El combobox1 debe contener tres carreras: Administracin, Contabilidad y Marketing. El ComboBox2 debe contener tres jornadas: Maana, Noche y Sbados. El ComboBox3 debe contener los nmeros: 1, 2, 3, 4, 5, 6, 7, 8, 9. El ComboBox4 debe contener los grupos: A, B. Revise los puntos 17 y 18 del primer ejercicio de este taller. En la propiedad Caption del formulario debe escribir su nombre completo. Si no escribe su nombre se le baja 5 puntos. Los comandos son iguales a los vistos en el primer formulario, lo mismo que la forma de inicializar los ComboBox. En el evento Change() de cada textbox de las notas correspondientes al primero, segundo y tercer cortes, debe ir la siguiente instruccin: Private Sub TextBox5_Change() TextBox6.Value = (Val(TextBox3.Value) * 0.3 + Val(TextBox4.Value) * 0.3 + Val(TextBox5.Value) * 0.4) End Sub Esto con el fin de que se realice el clculo correspondiente a la nota definitiva, en el momento que se digiten las tres notas.