Calendario VBA para formularios (alternativa control dtpicker) 2.0.0

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.

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í:

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.