Calendario emergente en Excel

Este artículo nace como respuesta a una consulta de un lector del blog en otro artículo relacionado, donde explicaba como incluir un calendario en un formulario. Concretamente se planteaba la pregunta de si se podía mostrar un calendario emergente en Excel, simplemente cliqueando en una celda.

La respuesta seguro que ya la sabéis, porque sino, no estaría escribiendo este artículo. Pues sí, se puede. En este caso, lo vamos a hacer sin necesidad de incluir el calendario en un formulario. Simplemente haremos que el calendario aparezca, sin más.

Creo que el artículo de hoy os puede ser de mucha utilidad, especialmente si trabajamos con hojas de cálculo en las que tengamos que introducir muchas fechas del mes en curso (del mes en el que estamos), pues con un solo clic en el día del calendario, nos aparecerá la fecha en la celda donde estemos. También lo podemos utilizar para introducir fechas correspondientes a otros meses y/o años, pero ya no será tan rápida la introducción de los datos, pues deberemos realizar más de un clic en el calendario (para seleccionar el mes y/o año, y el día). Puede ser interesante por ejemplo, como complemento llevar el control mensual de cobros y pagos, para hacer un presupuesto diario, o para llevar el control de asistencias del personal, por poner solo tres casos.

Para poder hacer todo esto, lo primero que tendremos que hacer es "dibujar" el calendario. Ojo, con esto de dibujar, me estoy refiriendo simplemente, a darle al calendario las dimensiones que deseemos. Para ello, si usamos Excel 2003, seleccionaremos en Herramientas --> Personalizar --> y en la pestaña de barras de herramientas, seleccionaremos "Cuadro de controles". Una vez hecho esto, nos aparecerá la barra de controles, así que cerraremos la ventana emergente de personalización. Seguidamente, seleccionaremos el icono del final que tiene un dibujillo de un martillo y una llave, y seleccionaremos "Control de calendario 11.0".

En el caso de que utilicemos Excel 2007 y Excel 2010, para mostrar el Cuadro de controles, antes debemos hacer visible la pestaña "Programador". Para ello, nos iremos a Archivo --> Opciones --> Personalizar cinta de opciones --> y pondremos una muesca en "Programador". Una vez tengamos en la cinta de opciones la ficha Programador, dentro de ella, encontraremos el Cuadro de controles, seleccionando "Insertar", cuyo icono es el martillo y la llave.

En el caso concreto de utilizar Excel 2010 es más que probable que no os aparezca el control calendario. Para solucionar este contratiempo, deberéis seguir las instrucciones del comentario que publiqué el 15 de junio de 2011, ante una pregunta de un usuario, y que veréis al final del artículo incluir un calendario en un formulario. Os remito directamente a ese comentario, para no duplicar el contenido.

Aquí tenéis una imagen de Excel 2003, que es la versión que más suelo utilizar:


Una vez tengamos todo listo, y hayamos seleccionado el control calendario, solo nos quedará dibujar el calendario en la hoja de cálculo para que tenga el tamaño que deseemos. Para ello, simplemente deberemos cliquear y arrastrar el mouse, para darle la forma que queramos. Una vez hecho eso, si usamos Excel 2003, pulsaremos en el primer icono de la barra de Cuadro de controles (la escuadra, la regla, y el lápiz), para salir del modo diseño. En Excel 2007 y 2010, simplemente cliquearemos en el icono que hay junto al de Cuadro de controles, con el lápiz, regla y escuadra, para salir del modo diseño. A continuación, cerraremos la barra de Cuadro de controles, pues ya no la vamos a necesitar más.


Una vez hecho esto, solo nos quedará incluir el código de programación, en la hoja donde queramos hacer que aparezca el en cuestión (no en un módulo). Lo que haremos en nuestro ejemplo, será mostrar el calendario siempre que cliqueemos en una celda de la columna A. Da igual que celda sea, pues cuando cliqueemos sobre la columna A, nos aparecerá el calendario.

Muchos estaréis pensando: "pero si ya tenemos visible el calendario, ¿cómo va a aparecer de nuevo cuando cliqueemos en una celda de la columna A?". Bueno, la respuesta es sencilla. Lo que haremos será ocultar el calendario siempre que cliqueemos en cualquier celda que no esté en la columna A, y mostrarlo cuando cliqueemos en cualquier celda de la columna A.

¿Cómo vamos a hacer todo esto?. Pues con un sencillo código que pondremos en el evento SelectionChange. Es decir, un código que se ejecutará al cambiar la selección de la celda. También incluiremos unas sencillas líneas de código para incluir en esa celda (la de la columna A, que ha permitido que el calendario se haga visible), la fecha que seleccionemos en el calendario. Es decir, si cliqueamos en un día del calendario, esa fecha aparecerá el la celda donde estemos situados (esto lo haremos a través del evento Click).

El código del evento SelectionChange de la hoja, será este:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Ejemplo para mostrar el calendario al seleccionar 'cualquier celda de la columna A If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then 'ahora le diremos donde queremos que aparezca el calendario 'para que no se quede fijo en las celdas de arriba, ya que al hacer scroll, 'se nos quedaría oculto en la parte de arriba. 'Podemos jugar con estos valores, para ver donde se muestra 'el calendario, y para que quede a nuestro gusto Calendar1.Left = Target.Left + Target.Width + 60 'para que no se nos deforme el calendario, si estamos en las últimas filas 'incluimos un condicional que controlará la celda donde estamos y 'la comparará con la última fila de la hoja de cálculo If ActiveCell.Row + 20 >= Cells.Rows.Count Then Calendar1.Top = Target.Top - 145 Else Calendar1.Top = Target.Top - 50 End If 'hacemos visible el calendario Calendar1.Visible = True 'Mostramos la fecha de hoy Calendar1.Today Else 'ocultamos el calendario, en el caso de no 'seleccionar una celda de la columna A Calendar1.Visible = False End If End Sub

Y el del evento Click del calendario será este:

Private Sub Calendar1_Click() 'Al hacer clic en una fecha del calendario 'ponemos el valor en la celda donde estemos situados ActiveCell = Calendar1.Value 'ocultamos el calendario Calendar1.Visible = False End Sub

Con este sencillo código, obtendremos algo tan vistoso como esto, cada vez que nos situemos en una celda de la columna A:


Desde aquí podéis descargar el fichero de Excel, con el ejemplo que hemos visto en este artículo. Si os ha sido de utilidad, espero vuestros comentarios.