Uso de formularios para el registro de datos estudios en el exterior

Descargar ejemplo de registro de alumnos

Los formularios facilitan el registro de datos de manera oportuna y ordenada. En este caso se usará un aplicativo con especial énfasis en los eventos y propiedades del optionbutton, que es un comando que permite elegir solamente una opción lo que le distingue del checkbox que elige varias opciones.

Así el optionbutton cuenta con los siguientes eventos: click, change,DblClick, enter, error, exit, KeyDown, KeyPress, entre otros. El más usado es el click que se utilizará en el ejemplo adjunto.

(Para mayor visualización de la imagen, hacer click en la misma)

El ejemplo consiste en dos formularios para el registro de datos: Nombre, orden de mérito en la universidad (tercio superior, quinto superior u otro), universidad o centro de estudio. Además de especificar si desea estudiar en el extranjero, el país a postular y finalmente todos estos datos se registran en una hoja excel de manera automática, facilitando el trabajo de oficina.

(Para mayor visualización de la imagen, hacer click en la misma)

Los principales comandos a utilizar son:

Para el inicio de sesión, al momento de abrir el excel

Private Sub Workbook_Open()
Sheets("ingreso de datos").Select
MsgBox "Bienvenidos, por favor ingresar datos"
UserForm1.Show
End Sub

Para el cierre de sesión, al momento de salir del programa excel

Private Sub Workbook_Deactivate()
MsgBox "Desactivado"
End Sub

Formulario 1, botón archivar para que se registre nombre, orden de mérito y universidad

Sheets("registro").Select
ult = Cells(Rows.Count, 1).End(xlUp).Row
a = ult + 1
Cells(a, 1) = TextBox1.Text
Cells(a, 2) = TextBox2.Text
If OptionButton1.Value = True Then
Cells(a, 3).Value = "tercio superior"
End If
If OptionButton2.Value = True Then
Cells(a, 3).Value = "quinto superior"
End If
If OptionButton3.Value = True
Then Cells(a, 3).Value = TextBox3.Text
End If
End Sub

Formulario 1 botón siguiente, que es el nexo para pasar al segundo formulario y debe cumplir algunas condiciones

If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
MsgBox "asegúrese de indicar orden de mérito"
End If

If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "Por favor ingresar campos vacíos"
Else
UserForm2.Show

Segundo formulario botón archivar

Para archivar lugar de preferencia en la hoja de registro

ult = Cells(Rows.Count, 4).End(xlUp).Row
If CheckBox1.Value = True Then
TextBox2.Text = CheckBox1.Caption
End If

If CheckBox2.Value = True Then
TextBox2.Text = CheckBox2.Caption
End If

If CheckBox1.Value = True And CheckBox2.Value = True Then
TextBox2.Text = CheckBox2.Caption & " " & CheckBox1.Caption
End If
Cells(ult, 5) = TextBox2.Text
End Sub

Se pregunta si desea estudiar en el extranjero utilizando optionbutton (Si, No)

Y los siguientes comandos:
ult = Cells(Rows.Count, 4).End(xlUp).Row
a = ult + 1
If OptionButton1.Value = True Then
Cells(a, 4) = "si"
CheckBox1.Enabled = True
CheckBox2.Enabled = True
CommandButton2.Enabled = True
TextBox2.Enabled = True
End If
End Sub

- Si es "Sí" se activa los comandos checkbox que contienen los lugares de preferencia; pero si la respuesta es "no" se desactivan como se muestra a continuación

ult = Cells(Rows.Count, 4).End(xlUp).Row
a = ult + 1
If OptionButton2.Value = True Then
Cells(a, 4) = "no"
CheckBox1.Enabled = False
CheckBox2.Enabled = False
CommandButton2.Enabled = False
TextBox2.Enabled = False
End If
End Sub

Finalmente para salir de los formularios se utiliza el botón salir y el comando

Unload UserForm

Cabe mencionar que es recomendable antes de pulsar el botón siguiente primero hacer click en el botón archivar de cada formulario, para que se registren los datos en la hoja de cálculo.

Elaborado por: Muchin Isabel Bazán Ruiz