En esta oportunidad, se presentará un caso que ayuda a muchos en lo que se conoce como "Completar Datos Personales", de cualquier tipo de evento, ya sea ésta una lista de alumnos o trabajadores de alguna empresa u otro sector. El fin del siguiente ejemplo es ir llenan un cuadro con la información del personal con el que uno cuenta.
Imaginemos que yo soy el tutor de un salón y trabajo para una Academia, y al conocer a mis nuevos alumnos necesito sus datos personales como especialidad, edad, fecha de cumpleaños, etc. Para ir teniendo en cuenta sobre cómo puedo orientarlos en su camino del Ingreso a la Universidad. Podríamos tener un cuadro como el siguiente
(Para mayor visualización de la imagen, hacer click en la misma)
El trabajo consiste en llenar este cuadro ordenadamente (alumno por alumno) para luego ponerlo en un registro oficial y guardarlo en la base de datos de la Academia por si se desea contar con ellos a futuro, por ejemplo, como docentes. El aplicativo Do Loop nos permite el proceso de ir llenando este cuadro, añadiendo los tópicos que se nos interese tener en cuenta mediante la orden que se le de al MACROS. En nuestro caso, el archivo en VBA es el siguiente
Sub Ejercicio_2()
Dim Nombre As String
Dim Ciudad As String
Dim Edad As Integer
Dim Fecha As Date
Dim Especialidad As String
Worksheets("Hoja1").Activate
ActiveSheet.Range("A2").Activate
Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")
Do While Nombre <> ""
Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")
Edad = Val(InputBox("Entre la Edad : ", "Edad"))
Fecha = CDate(InputBox("Entra la Fecha : ", "Fecha"))
Especialidad = InputBox("Entre el Especialidad : ", "Especialidad")
With ActiveCell
.Value = Nombre
.Offset(0, 1).Value = Ciudad
.Offset(0, 2).Value = Edad
.Offset(0, 3).Value = Fecha
.Offset(0, 4).Value = Especialidad
End With
ActiveCell.Offset(1, 0).Activate
Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")
Loop
End Sub
De querer, podría añadirse más tópicos de Datos Personales, pero para este ejemplo es suficiente. En otros casos como el completar planillas, o rellenar un formulario, etc. las preguntas o tópicos a llenar son mayores y quizá más complejos.
Se deja el siguiente archivo como ejemplo para poder probar la aplicación, saldría algo como lo que se presenta a continuación.
El archivo de prueba es el siguiente:
Aplicacion de Relleno de Informacion Personal
Elaborado por: Hugo Fuentes Dávila