Universidad de Cuenca
Facultad de ciencias Químicas
Práctica Número 15
Docente: Ing. Juan Carlos Vidal
Alumno: Jhonny Zhigue
Fecha: 05 de mayo de 2021
Segundo Interciclo -2021
Lenguaje de Programación
Creación de una base de datos por medio del Userform
1. Marco teórico
a. Comandos utilizados en Userform para la programación de la base de
datos.
- Base de datos: Consiste en una herramienta que se encarga de recopilar datos
los cuales son ingresados de forma manual por un usuario de un número
indeterminado de información de una persona, animal, maquinaria etc. una vez
ingresados estos datos son almacenados en la base de datos lo cual facilita el
proceso de búsqueda de una extensa lista de datos.
- Userform: también conocidos como formularios sirven para crear una
interfaz de usuario desde la que puede ejecutar macros, en los cuales se
puede hacer operaciones como registro de datos, actualizaciones,
eliminación o procesamientos los cuales son impresos en las hojas de excel.
- Listbox: imprime un cuadro de dialogo mostrando que la ejecución de un
macro se ha completado, la información que muestra es establecida
directamente por el operario.
- Set focus: es un método que nos permite fijar la ventana u objeto activo en un
momento dado.
- ActiveSheet: Representa o llama a una hoja de cálculo, además incluye el
Workssheets el cual es un grupo de colección Sheets que consta de un grupo de
hojas de gráficos y hojas de cálculo.
- Text: Es el espacio donde va la información de cada usuario para ser
registrada en la base de datos.
- Cuadro de lista (Msgbox): Los cuadros de lista son componentes de la
interfaz de usuario para mostrar elementos enlistados para posteriormente ser
elegidos por los usuarios.
- Back color: sirve para especificar el color del interior de un control, sección o
cuadro de la interfaz de userform.
- Font: esta opción permite modificar el formato del texto incluido en los
cuadros de textos o en las etiquetas incluyendo el tamaño y tipo de letra que
desea insertar el programador.
- Name: se utiliza para destinar lo que se desea programar en los macros
muchas de las veces son pequeñas terminologías haciendo referencia a los
textos o cuadros de texto que se desea programar.
- Caption: el captio dentro de la interfaz de userform indica el nombre que se
designa a cada cuadro de texto.
- Picture: esta función permite netamente insertar imágenes dentro de la
interfaz programada.
- Etiqueta: permite ingresar cuadros de textos que luego son utilizados para
crear los macros.
- Cuadro de texto: Su función principal es permitir al usuario ingresar la
información que desea registrar para operar conjuntamente con los macros,
tal información se inserta de forma manual.
- Botón de comando: El control Button o botón es de mucha utilidad, pues a
través de él, podemos dar órdenes, o sea, sirve como comando.
- Range: Representa una celda, fila, columna, o una selección de celdas que
contienen uno o más bloques de celdas contiguos o un rango donde se desea
ubicar la información.
- ListIndex: es un entero entre 0 y el número total de elementos de un cuadro de
lista o cuadro combinado menos 1.
- AddItem: Permite añadir elementos uno a uno dentro de una lista (Listbox) que
luego se desplegara al manipularlo.
2. Pseudocódigo.
'---------Universidad de Cuenca-----------------'
'-------Facultad de Ciencias Químicas-----------'
'Nombre: Jhonny Zhigue
'Fecha:11/07/2021
'Tema: Creación de una base de datos a partir de la interfaz Userform
'Programa para ubicar la información de cada celda de la base de datos
Private Sub CommandButton1_Click()
[Link](5, 3).Select 'se ubica la celda donde se va a poner la información
registrada
[Link] 'seleciona toda la fila
[Link](5, 3) = [Link] 'se ubica la celda donde se va a poner la
información registrada
[Link](5, 4) = [Link] 'se ubica la celda donde se va a poner la
información registrada
[Link](5, 5) = [Link] 'se ubica la celda donde se va a poner la
información registrada
[Link](5, 6) = [Link] 'se ubica la celda donde se va a poner la
información registrada
[Link](5, 7) = [Link]
[Link](5, 8) = [Link]
[Link](5, 9) = [Link] 'se ubica la celda donde se va a poner la
información registrada
[Link](5, 10) = [Link] 'se ubica la celda donde se va a poner la
información registrada
[Link](5, 11) = [Link] 'se ubica la celda donde se va a poner la
información registrada
'operacion eliminar datos del cuadro de registro
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] 'coloca el cursor en el lugar destinado
MsgBox " Datos registrados exitosamente " 'cuadro de texto que indica una ejecución
End Sub 'fin del programa
'Programa para eliminar los datos registrados en la tabla
Private Sub CommandButton3_Click() 'inicio del programa
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] = "" 'se elimina el registro con un dato igual a 0
[Link] 'coloca el cursor en el lugar destinado
MsgBox "Registro Elinado exitosamente" 'cuadro de texto que indica una ejecución
End Sub
Private Sub CommandButton4_Click()
On Error GoTo Errores 'control de Error
'sección para eliminar los datos almacenados en la tabla de datos
Sheets("Hoja1").Select 'se extrae los datos de la pagina de la base de datos
Range("b5").[Link] 'se selecciona el rango a eliminar
Sheets("Hoja1").Select 'se ejecuta la operación
MsgBox ("DATOS ELIMINADOS EXITOSAMENTE") 'se imprime un mensaje de
confirmacion
Exit Sub 'operacion para posibles errores existentes en la programación
Errores:
Sheets("Hoja1").Select 'se hace la evaluacion en la base de registros
MsgBox (" YA NO EXISTE DATOS POR ELIMINAR") 'se imprime un mensaje de
afirmación
End Sub 'fin de la programación
'programa para salir de la interfaz de userform
Private Sub salir_Click()
Dim pregunta As String 'define la variable
pregunta = MsgBox("Sr. Usuario desea salir de la interfaz de usuario?", vbYesNo +
vbQuestion, "consulta") 'operacion -comando
End ' con el end se cierra la interfaz de userform
End Sub
'codigo para ingresar solo números en el espacio
Private Sub TXTcedula_Change() 'se selécciona la celda
If Not IsNumeric([Link]) And _
[Link] <> "" Then '
Beep 'propiedad que permite ingresar una cantidad recucida de números
MsgBox ("Sr. Usuario solo debe ingresar cantidades numéricas"), vbCritical, "ERROR"
'cuadro de texto
[Link] = "" 'se ubica el lugar para realizar la operación y limpia
[Link] 'coloca el cursor en el lugar indicado
End If 'fin del if
End Sub 'fin del código
'codigo para ingresar solo números en el espacio
Private Sub TXTcelular_Change() 'se selécciona la celda
If Not IsNumeric([Link]) And _
[Link] <> "" Then
Beep 'propiedad que permite ingresar una cantidad recucida de números
MsgBox ("Sr. Usuario solo debe ingresar cantidades numéricas"), vbCritical, "ERROR"
'cuadro de texto
[Link] = "" 'se ubica el lugar para realizar la operación y limpia
[Link] 'coloca el cursor en el lugar indicado
End If 'fin del if
End Sub 'fin del código
'código para establecer cada ciudad con su respectivo pais
Private Sub TXTpais_Click()
With [Link]
[Link] = fmMatchEntryFirstLetter ' de la lisbox de paises escoge uno
[Link] = fmListStylePlain 'en la lista de paises ubica cada uno para su
respectiva ciudad
[Link] = fmMatchEntryFirstLetter ' de la lista de ciudades escoge la
ciudad que pertenece a cada país
[Link] 'limpia el espacio
If [Link] = 0 Then 'en la ciudad 1 puede añadir:
[Link] "Cali" 'la ciudad 1
[Link] "Bogotá" 'ciudad 2
[Link] "Cartagena" 'ciudad 3
End If ' fin del la elección de ciudades para el caso 1
If [Link] = 1 Then 'del indice de lista del pais 2 escoge
[Link] "Machala" 'ciudad 1
[Link] "Cuenca" 'ciudad 2
[Link] "Quito" 'ciudad 3
End If 'fin de la elección de ciudades para el caso 2
If [Link] = 2 Then 'del indice de lista del pais 3 escoge
[Link] "São Paulo" 'ciudad 1
[Link] "Rio de Janeiro" 'ciudad 2
[Link] "Cuibá" 'ciudad 3
End If 'fin de la elección de ciudades para el caso 3
If [Link] = 3 Then 'del indice de lista del pais 4 escoge
[Link] "Tulca" 'ciudad 1
[Link] "Temuco" 'ciudad 2
[Link] "S. de Chile" 'ciudad 3
End If 'fin de la elección de ciudades para el caso 4
If [Link] = 4 Then 'del indice de lista del pais 5 escoge
[Link] "Mar de plata" 'ciudad 1
[Link] "Rosario" 'ciudad 2
[Link] "Buenos Aires" 'ciudad 3
End If 'fin de la elección de ciudades para el caso 5
End With ' fin del operador with
End Sub 'fin del programa
Private Sub UserForm_Activate() 'de la interfaz de userform se da a conocer las ciudad del
lisbox 2
[Link] "Colombia" 'se agrega la ciudad 1
[Link] "Ecuador" 'se agrega la ciudad 2
[Link] "Brasil" 'se agrega la ciudad 3
[Link] "Chile" 'se agrega la ciudad 4
[Link] "Argentina" 'se agrega la ciudad 5
End Sub 'fi del código
'------------------------Fin de todo el programa----------------------'
3. Pruebas de funcionamiento.
Interfaz de Userform con su respectivo formato y restricciones
Funcionamiento de controles
Lisbox y botones de control
Tabla de bases de datos registrados
4. Conclusión
La utilización de userform dentro del programa de visual Basic es muy práctico ya que
presenta un sinnúmero de herramientas que nos permiten crear una interfaz de usuario
de forma personal y autentica, ya que cuenta con varios comandos para realizar
formatos. Además permite ingresar de forma sencilla los datos por medio de un cuadro
previamente programado en la interfaz donde se puede registrar gran información para
luego poder almacenarla en tablas de datos. Tal operación se puede llevar acabo ya que
por medio de la creación de macros se puede agilitar los procesos del programa.
Finalmente el userform tendría muy buenas aplicaciones en industrias, tiendas,
instituciones educativas y otras instituciones que necesiten de una herramienta para
almacenar información.
5. Referencias
Guerrero, D. O. (21 de Agosto de 2007). MATLAB_GUIDE. Obtenido de
MATLAB_GUIDE.:
[Link]
%255D_MATLAB_GUIDE.pdf
Microsoft. (05 de Octubre de 2019). microsoft. Obtenido de microsoft.:
[Link]
Silva, D. (09 de Julio de 2019). [Link]. Obtenido de [Link]:
[Link]