Saltar al contenido

Calendario VBA para formularios (alternativa control dtpicker) 2.0.0

   (0 revisiones )

3 imágenes

Sobre el aporte

La contraseña del proyecto VBA es "riddle"

Hola, el día de hoy voy a compartir una alternativa al control dtpicker, que seria básicamente un calendario que se instala como complemento y puede ser utilizado en cualquier formulario VBA.

Los pasos serian los siguientes:

1. Descargar el complemento, es preferible que lo guardes en la carpeta por defecto para complementos de excel la cual suele estar aqui: "C:\Users\NOMBRE USUARIO\AppData\Roaming\Microsoft\Complementos", o simplemente lo guardan donde deseen.

2.Instalamos el complemento Guía para instalar complementos

3.Vamos a abrir el archivo excel donde queremos que el calendario aparezca  y nos dirigiremos a la Ventana de VBA (Alt + F11), iremos a Herramientas -> Referencias, y activaremos la que dice CalendarioRiddle.

reg.gif.thumb.gif.e7aa582f694f6619d789f993be873689.gif

4.El calendario esta listo para ser usado, solo debemos ligarlo a un textbox, para esto crearemos un botón junto al textbox y agregaremos el siguiente código el el evento click() del CommandButton:

Private Sub CommandButton1_Click()
CalendarioR TextBox1
End Sub

Se debe colocar la palabra "CalendarioR" seguido del nombre del textbox que guardara la fecha.

El calendario por defecto empieza la semana el día Domingo, podemos cambiar esto agregando un 2 como segunda variable para que empiece por el día Lunes:

Private Sub CommandButton1_Click()
CalendarioR TextBox1, 2
End Sub

También es posible cambiar el color del calendario (por defecto es negro) agregando como tercera variable el color deseado, por ejemplo morado:

Private Sub CommandButton1_Click()
CalendarioR TextBox1, 2, &H400040
End Sub

 Quedaría así:

ejemplo.gif.24e56d383d1121f8a9da2c0406f09293.gif

Para cambiar de mes dan click sobre el mes actual y seleccionan el mes deseado, para volver al día actual click sobre la leyenda del día de hoy.

Pueden salir del calendario con la tecla "ESC" del teclado.

Saludos y espero que sea de utilidad.


What's New in Version 2.0.0   See changelog

Released

Se arreglo el error que marcaba el número de día del mes anterior o siguiente si era igual al número de día actual.




Comentarios de los usuarios

Create an account or sign in to leave a review

You need to be a member in order to leave a review

Crear una cuenta

Registrarse para una nueva cuenta en nuestra comunidad. ¡Es fácil!

Registrar una nueva cuenta

Conectarse

¿Ya tienes una cuenta? Conéctate aquí.

Conéctate ahora

No hay nuevas revisiones para visualizar.

×