Insertar Calendario Flotante en Formularios VBA

Para Insertar Calendario Flotante VBA vamos a seguir los siguientes pasos:

📌Guardamos el Archivo como Excel con Macros

Calendario Guardar Excel Como Macro

  1. Clic en la pestaña «Archivo».
  2. Clic en la opción «Guardar Como»
  3. Elegimos la ubicación donde se guardara el archivo.
  4. En la sección «Tipo», elegimos la opción » Libro de Excel Habilitado para Macros».
  5. Clic en «Guardar».

📌Creamos un Botón para llamar a nuestro Calendario

  1. Clic en la pestaña «Insertar».
  2. Clic la opción «Ilustraciones».
  3. Clic en «Formas»
  4. Elegimos una forma.
  5. Clic derecho en la forma y elegimos la opción «Editar Texto» para ponerle un nombre a nuestro botón.
Calendario Botón Llamar Formulario

📌Programación en Visual BASIC de nuestro Calendario

Insertamos Nuestro Primer Formulario

Primer Formulario
  1. Clic derecho en el Nombre de la Hoja.
  2. Clic en la opcion «Ver Código».
  3. En la ventana que se apertura, clic en insertar «User Form».
  4. Clic en la opcion «UserForm».
  5. Clic para agregar una «Etiqueta».
  6. Clic para agregar un «Cuadro de Texto».
  7. Clic para agregar un «Botón de Comando».
  8. Modificamos la etiqueta según criterio de cada uno.

Insertar Calendario Flotante VBA

Calendario Form
  1. Clic en «Formularios», luego clic derecho.
  2. Clic en «Importar Archivo».
  3. Seleccionamos la ubicación de nuestro archivo.
  4. Clic en «Abrir».

Para descargar el calendario flotante VBA te dejo el siguiente enlace:

Creación de Modulo en el Botón para llamar a nuestro Formulario

Insertar Formulario para Calendario
  1. Clic en la opción «Agregar modulo».
  2.  Clic en «Modulo»:
  3. Copiamos el siguiente código y cerramos el Visual Basic:                                              Sub llamar()
    UserForm1.Show
    End Sub
  4. Clic derecho en nuestro botón.
  5. Clic en «Asignar Macro».
  6. Elegimos el nombre de nuestro modulo.
  7. Clic en aceptar.

Programar Cuadro de Texto y Botón para llamar al calendario

PrograCalendario
  1. Doble Clic en «UserForm1».
  2.  Doble Clic en el Cuadro de Texto.
  3. Elegimos la Opción «DblClick».
  4. En el espacio mostrado copiamos el siguiente código:                                             Dim fecha As Date
    fecha = CalendarForm.GetDate
    TextBox1.value = fecha
  5. En el espacio mostrado copiamos el mismo código.
  6. Guardamos y ya tenemos listo nuestro calendario.

🎯Video referente🎯

Para más Tutoriales, Cursos y Guías Suscríbete a nuestro canal de Youtube.

A continuación te presentaré unos videos relacionados, para que sigas aprendiendo con nosotros:

👉Permitir varios filtros por campo en Tablas dinámicas

Agrupar datos en tablas dinámicas

👉Mostrar detalles en Tablas Dinámicas

Puedes aprender paso a paso de manera gratuita con todos nuestros cursos Aquí.

Related Articles

Responses

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

  1. hola muy bien explicado, pero tengo una consulta con respecto a esto que se me cambia la fecha a veces pone mes dia año y otras dias mes año por que pasara? gracias de todas formas muy util