Documentos de Académico
Documentos de Profesional
Documentos de Cultura
Práctica N°8 - Creación de Formularios
Práctica N°8 - Creación de Formularios
PRÁCTICA
8
COMPUTACIÓN APLICADA
CREACIÓN DE FORMULARIOS
OBJETIVOS
RECURSOS
Excel
DURACIÓN DE LA PRÁCTICA
MARCO TEÓRICO
INGENIERÍA INDUSTRIAL 1
Para ingresar al editor de visual basic podemos hacer lo siguiente:
o Presionar simultáneamente las teclas Alt + F11.
o Hacer clic en la opción Visual Basic.
INGENIERÍA INDUSTRIAL 2
Es probable, que algunas ventanas no estén habilitadas, como por ejemplo la
ventana de propiedades y otras más que vamos a necesitar de aquí en adelante.
Para solucionar ello, debemos ir al menú Ver y escoger las ventanas que por defecto
las mas importantes son: Explorador de Proyectos, Ventana Propiedades y la
Ventana Inmediato. Ésta ultima nos servirá para hacer seguimiento a las variables.
INGENIERÍA INDUSTRIAL 3
funcionalidades. Para ello, debemos ir nuevamente al menú Ver y escoger la opción
Barra de Herramientas y habilitar las Barras de Depuración, Edición y UserForm.
Una vez habilitadas las tres barras de herramientas adicionales, debemos tener la
siguiente pantalla. Lo que vamos a realizar con cada una de las barras es
desplazarlas a la parte superior al mismo nivel de la barra estándar.
INGENIERÍA INDUSTRIAL 4
CREACION DE FORMULARIOS EN VBA
Un formulario es una ventana que se programa por medio de controles y estos
controles responden a sucesos que nosotros programamos.
INGENIERÍA INDUSTRIAL 5
Hacemos clic en el formulario y en la ventana de propiedades en (Name) cambiar
UserForm1 por frmPrincipal, luego en Caption cambiar UserForm1 por Primer
Formulario. De tal manera que si presionamos la tecla F5 ejecutará el formulario:
Ahora utilizaremos los controles de los formularios. Hacemos clic en la opción A que
corresponde al de etiqueta y en el formulario lo adicionamos haciendo clic en el
mismo. Haciendo clic en la etiqueta agregada al formulario, en la ventana
propiedades cambiamos en (name) Label1 por lblUsuario, en Caption por Usuario:.
Recuerda que la ventana de propiedades la puedes ordenar de forma Alfabética y
Por Categorías. Como se muestra en la siguiente figura:
INGENIERÍA INDUSTRIAL 6
En el mismo formulario, adicionaremos el control Cuadro de Texto a la misma altura
de la etiqueta usuario. En la ventana propiedades, cambiar en (name) TextBox1 por
TxtCodigo.
No olvidar que deben grabar la macro como Libro de Excel Habilitado para Macros y
asignarle un nombre al archivo. Por ejemplo, Creación de Formularios.
Si ejecutamos hasta el momento (F5), el formulario tiene la siguiente presentación:
Una buena práctica en la programación de una macro, es solicitar que todas las
variables que utilicemos se declaren con el tipo de dato que corresponde. Para ello
hacemos clic en cualquier parte del formulario que no sean los controles adicionados
como se muestra en la figura:
INGENIERÍA INDUSTRIAL 7
Al apretar la tecla Enter a la altura de Private Sub UserForm_Click(), aparecerá en
el campo Objeto – (General) y en Procedimiento – (Declaraciones) tipear Option
Explicit.
INGENIERÍA INDUSTRIAL 8
LA FUNCIÓN VAL
En Visual Basic una petición de datos al usuario no necesitará ser dispuesta en el código,
sino que se obtendrá a través de un objeto prefabricado: un TextBox. Con frecuencia
el dato que queremos obtener será un valor numérico, mientras que sin embargo el
contenido de los TextBox es tipo texto.
Por ello deberemos realizar una conversión. La función Val nos permite obtener el
contenido de un TextBox en formato numérico (Integer, Single, Double, etc.).
Variable = Val(Cadena)
Ejemplo:
Dim A As Single
A = Val(TextBox1.Text)
Supone que la variable A, que ha sido definida como tipo Single, adopta el contenido
numérico del TextBox denominado TextBox1.
La función Val deja de leer la cadena en el primer carácter que no puede reconocer
como parte de un número. Los espacios en blanco, los tabuladores y los avances de
línea se eliminan.
Val(" 38205 (Distrito Norte)")devuelve 38205 como valor numérico. Los espacios en
blanco se eliminan, y el resto de cadena a partir de donde no se puede reconocer un
valor numérico se ignora. Si la cadena empieza con un contenido no numérico Val
devuelve cero. Por ejemplo Val (" (Distrito Norte) 38205 " devuelve cero.
La función Val sólo reconoce el punto (.) como separador decimal válido (aunque esto
puede verse afectado por la configuración regional de tu ordenador). Cuando se usa un
separador decimal diferente, debe realizarse un tratamiento previo de la cadena o
utilizarse una función de conversión de tipos como CSng ó CDbl para convertir la cadena
a un número.
INGENIERÍA INDUSTRIAL 9
EJERCICIOS PROPUESTOS
2. Realizar un programa VBA que permita ingresar el código del alumno, apellido
paterno, apellido materno, nombres, nombre del curso. El curso tiene tres notas
y se debe mostrar el promedio. Para poder obtener el promedio deben aplicar:
txtPromedio.Text=(Val(txtNota1.Text)+Val(txtNota2.Text)+Val(txtNota3.Text))
/3. Analizar que sucede sino colocan la función Val.
INGENIERÍA INDUSTRIAL 10