KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo mostrar un calendario al hacer clic en una celda específica de Excel?

AutoraSiluvia Fecha de modificación

Imagínese que tiene un rango de columnas en una hoja de cálculo donde debe introducir y modificar fechas con frecuencia, pero hacerlo manualmente cada vez resulta tedioso. ¿Cómo puede insertar fechas rápidamente sin tener que escribirlas a mano en ese rango? Este artículo le muestra cómo hacer aparecer un calendario al hacer clic en las celdas de un rango específico e insertar automáticamente la fecha seleccionada en la celda correspondiente.

Mostrar un calendario al hacer clic en una celda específica mediante código VBA

Resuelva este problema paso a paso, tal como se indica a continuación.

Nota: este método solo es compatible con Microsoft Excel de 32 bits.

Paso 1: crear un formulario de usuario con calendario

Cree un formulario de usuario que incluya un calendario, el cual aparecerá al hacer clic en una celda.

1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Formulario de usuario.

haga clic en Insertar > UserForm

3. A continuación, aparecerán las ventanas Formulario de usuario y Cuadro de herramientas. En el Cuadro de herramientas, haga clic en cualquier control, pulse el botón derecho del ratón y seleccione Controles adicionales en el menú contextual. Vea la captura de pantalla:

haga clic en cualquier control y, a continuación, haga clic con el botón derecho y seleccione Controles adicionales

4. En el cuadro de diálogo Controles adicionales, desplácese hacia abajo hasta encontrar la opción Control MonthView de Microsoft en el recuadro Controles disponibles, márquela y, a continuación, haga clic en el botón Aceptar.

active la opción Control MonthView de Microsoft

5. A continuación, verá que el botón MonthView se ha añadido a la ventana del Cuadro de herramientas. Haga clic en este botón MonthView y, a continuación, haga clic en la ventana Formulario de usuario 1 para insertar un calendario en el formulario.

crear un calendario en el formulario de usuario

Nota: Puede ajustar el tamaño de la ventana del formulario de usuario según el calendario insertado arrastrando el borde del formulario.

6. Haga doble clic en el calendario insertado en el Formulario de usuario 1 y, en la ventana de Código, reemplace el código original por el siguiente script de VBA.

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

Nota: este código permite insertar la fecha en la celda seleccionada tras elegir una fecha en el calendario.

copie y pegue el código en el módulo

Paso 2: activar el calendario al hacer clic en una celda

Ahora debe indicar en qué celdas aparecerá el calendario al hacer clic. Siga estos pasos:

7. Haga doble clic en el nombre de la hoja que contiene las celdas donde hará clic para mostrar el calendario en el panel izquierdo de Proyecto y copie y pegue el siguiente código VBA en la ventana de código. Vea la captura de pantalla:

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

Nota: en el código, A2:A10 son las celdas en las que harás clic para mostrar el calendario. Ajusta el rango de celdas según tus necesidades.

copie y pegue el código en el módulo de la hoja

8. Pulse simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

A partir de ahora, al hacer clic en cualquier celda del rango limitado de la hoja de trabajo actual, aparecerá un calendario como el que se muestra en la siguiente captura de pantalla. La fecha seleccionada se insertará automáticamente en la celda elegida.

al hacer clic en cualquier celda dentro del rango especificado, aparecerá un calendario

Mostrar un calendario al hacer clic en una celda específica mediante código VBA

Esta sección presenta la utilidad Selector de Fecha de Kutools para Excel. Tras activar esta función, al hacer clic en una celda que contenga una fecha aparecerá un calendario, lo que le permitirá reemplazar fácilmente la fecha existente por una nueva. Siga los pasos que se indican a continuación para aplicar esta función.

Kutools para Excelofrece más de 300 funciones avanzadas para simplificar tareas complejas, potenciando la creatividad y la eficiencia.Integrado con capacidades de IA, Kutools automatiza tareas con precisión, haciendo que la gestión de datos sea sencilla.Información detallada de Kutools para Excel...         Prueba gratuita...

1. Haga clic en Kutools > Contenido > Habilitar Selector de Fecha.

haga clic en la función Activar selector de fecha

2. Tras habilitar esta función, al hacer clic en una celda que contenga una fecha, aparecerá un icono de calendario a la derecha de dicha celda.

haga clic en una celda de fecha y aparecerá un icono de calendario

3. Haga clic en el icono de calendario para abrir el cuadro de diálogo Selector de Fecha y, a continuación, haga clic en una nueva fecha para reemplazar la de la celda seleccionada.

Haga clic en el icono de calendario para abrir el cuadro de diálogo Selector de fecha

Notas:

  • Botón DeshacerBotón Deshacer: haga clic en este botón para deshacer el reemplazo de la fecha;
  • Botón CerrarBotón Cerrar: haga clic en este botón para cerrar el cuadro de diálogo Selector de Fecha;
  • Esta función solo se puede aplicar a celdas con fechas.

Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.

Artículos relacionados:

Las mejores herramientas de productividad para Office

🤖KUTOOLS AI Asistente: Revolucione Análisis de datos basándose en:Ejecución Inteligente   |  Generar código|  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos|  Invocar Funciones mejoradas…
Funciones populares:Buscar, resaltar o Marcar duplicados   |  Eliminar filas en blanco   |  Combinar Columnas o celdas sin perder datos   |   Redondeo sin usar fórmulas...
Super BUSCARV:Búsqueda vertical (VLookup) con múltiples criterios  |  Búsqueda vertical (VLookup) con múltiples valores  |   Búsqueda vertical (VLookup) entre varias hojas   |   Coincidencia difusa....
Lista desplegable avanzada:Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple....
Gestor de columnas:Añadir un número específico de columnas|Mover columnas|Alternar el estado de visibilidad de columnas ocultas|Comparar rangos y columnas...
Funciones destacadas:Cuadrícula de enfoque   |  Vista de diseño   |Barra de fórmulas mejorada   | Gestor de libros y hojas   |  Biblioteca de recursos(Texto automático)|  Selector de Fecha   |  Combinar Hojas de Cálculo  |  Cifrar/Descifrar celdas   | Enviar correos electrónicos desde una lista   |  Super Filtro   |   Filtro especial(Filtrar celdas con fuente en negrita/cursiva/tachado...) ...
Principales conjuntos de herramientas 15:12 Herramientasde texto(Agregar texto,Eliminar caracteres específicos, ...)|   50+Tiposde gráfico(Diagrama de Gantt, ...)|   40+ Fórmulas prácticas(Calcular la edad basada en la fecha de nacimiento, ...)|   19 Herramientasde inserción(Insertar Código QR,Insertar imagen desde ruta, ...)|   12 Herramientasde conversión(Convertir a palabras,Conversión de moneda, ...)|   7 Herramientasde combinación y división(Combinar filas avanzado,Dividir celdas, ...)|...y muchas más
Use Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y 40+ más idiomas.¡

Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...

Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
  • ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!

Todos los complementos de Kutools en un solo instalador.

Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.

ExcelWordOutlookTabsPowerPoint
  • Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
  • Un instalador, una licencia— configuración en minutos (compatible con MSI)
  • Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
  • Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
  • La mejor relación calidad-precio— ahorre frente a la compra individual de complementos