ACTIVIDAD MACROS 1103

1.      Entre a Excel

2.       Guarde la LIBRO de calculo con el nombre BasedeDatos1103 y en tipo elija Libro de Excel habilitado para Macros y haga clic en Guardar

3.       En la celda A6 digite CEDULA  En. la Celda B6 digite LUGAR DE EXPEDICION. En la Celda C6 digite NOMBRES.  En la Celda D6 digite APELLIDOS.  En la Celda E6 digite GENERO.  En la Celda F6 digite CELULAR.  En la Celda G6 digite DECRETO. 

4.       Seleccione los encabezados y presione al mismo tiempo las teclas CTRL y T

Y en esta ventana 

 hacemos clic en el Check , La tabla tiene encabezados y hacemos clic en Aceptar

 6.  Luego en la pestaña Diseño de tabla elegimos un Estilo de Tabla.

 7. .  Ahora vamos a la pestaña Vista y desactivamos el Check Lineas de cuadrícula, para que no se vean las cuadrícula

8. Vamos a crear un Título para nuestra tabla, en este caso escribimos BASE DE DATOS DOCENTES I.E.S.P

9. Vamos a la pestaña Programador y damos clic en Visual Basic

10.  Damos clic en Insertar e insertamos un UserForm que tendrá la siguiente apariencia

11. Selecciono el cuadro de texto de la etiqueta CEDULA y en la propiedad Nombre le escribimos TextCedula

12. Hago lo mismo para los otros cuadros de texto llamando las cajas de texto como TextLugarExpedicion, TextNombres, TextApellidos,TextGenero, TextCelular y TextDecreto

13. El botón de Comando REGRISTRAR lo llamamos Bt_Registrar y el Botón VOLVER A EXCEL lo llamaremos VolverExcel

14.  Ahora escribimos el siguiente código

Private Sub Bt_Registrar_Click()

Dim ulfila As String

ulfila = Sheets("HOJA1").Cells(Rows.Count, "A").End(xlUp).Row

ulfila = ulfila + 1

 If Me.TextCedula = " " Then

   MsgBox "Agregue un dato"

Else

  Me.TextCedula.SetFocus

  Range("A" & ulfila).Value = Me.TextCedula.Value

  Range("B" & ulfila).Value = Me.TextLugarExpedicion.Value

  Range("C" & ulfila).Value = Me.TextNombres.Value

  Range("D" & ulfila).Value = Me.TextApellidos.Value

  Range("E" & ulfila).Value = Me.TextGenero.Value

  Range("F" & ulfila).Value = Me.TextCelular.Value

  Range("G" & ulfila).Value = Me.TextDecreto.Value

   Me.TextCedula.SetFocus

  Me.TextCedula.value = Empty

  Me.TextLugarExpedicion.value = Empty

  Me.TextNombres.value = Empty

  Me.TextApellidos.value = Empty

  Me.TextGenero.value = Empty

  Me.TextCelular.SetFocus

 Me.TextDecreto.SetFocus

End If

End Sub

 

 Private Sub Volverexcel_Click()

Application.Visible = True

Unload Me

End Sub

 

Ahora damos clic en Insertar e insertamos un modulo    y escribimos lo siguiente:

Sub mostrarformulario()   

 UserForm1.Show

End Sub

 

Sub ocultarexcel()

Application.Visible = False

UserForm1.Show

End Sub

 16.  Ahora guardamos y ejecutamos

17.    Ahora voy a la hoja de Excel e inserto dos formas con el siguiente aspecto:

               18.   Selecciono la forma FORMULARIO y presiono Botón derecho del mouse y elijo Asignar macro y aparece la siguiente ventana

Doy clic en mostrarformulario y luego en Aceptar

19.  Ahora selecciono la Forma Ocultar Excel y presiono Botón derecho del mouse y elijo Asignar macro y hago clic en Ocultarexcel y Aceptar

20.     Guardamos y ejecutamos