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

Supongamos que hay un rango de columnas en una hoja de trabajo que necesita ingresar y cambiar las fechas con frecuencia dentro, pero es aburrido ingresar o cambiar la fecha manualmente por hora. ¿Cómo ingresar fechas rápidamente sin ingresar manualmente en el rango de columnas? Este artículo habla sobre cómo abrir un calendario al hacer clic en celdas en un cierto rango, luego insertar la fecha en la celda seleccionada automáticamente después de seleccionar la fecha en el calendario.

Aparece un calendario al hacer clic en una celda específica con código VBA

Resuelva este problema de la siguiente manera paso a paso.

Nota:: Este método solo puede funcionar en Microsoft Excel de 32 bits.

Paso 1: crea un formulario de usuario con calendario

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

1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Formulario de usuario.

3. Entonces un Formulario de usuario y Herramientas ventanas emergentes, en el Herramientas, haga clic en cualquier control y haga clic derecho, luego seleccione Controles adicionales desde el menú contextual. Ver captura de pantalla:

4. En el Controles adicionales cuadro de diálogo, desplácese hacia abajo para comprobar el Control de MonthView de Microsoft opción en el Controles disponibles cuadro, y luego haga clic en el OK

5. Entonces puede ver el Vista de mes botón se agrega en el Herramientas ventana. Haga clic en este botón MonthView y luego haga clic en la ventana UserForm1 para crear un calendario en el formulario de usuario.

Nota:: Puede ajustar el tamaño de la ventana UserForm para que se adapte al calendario insertado arrastrando el borde del UserForm.

6. Haga doble clic en el calendario insertado en UserForm1, y en el Código ventana, reemplace el código original con el siguiente script 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 puede ayudar a insertar la fecha en la celda seleccionada después de seleccionar la fecha del calendario.

Paso 2: active el calendario al hacer clic en la celda

Ahora debe especificar ciertas celdas para que aparezca el calendario al hacer clic. Haz lo siguiente.

7. Haga doble clic en el nombre de la hoja que contiene las celdas en las que hará clic para que aparezca el calendario a la izquierda. Oficial , luego copie y pegue el código VBA a continuación en la ventana Código. Ver 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 celdas en las que hará clic para mostrar el calendario. Cambie el rango de celdas que necesite.

8. Prensa otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones ventana.

A partir de ahora, cuando haga clic en cualquier celda dentro del rango especificado en la hoja de trabajo actual, aparecerá un calendario como se muestra a continuación. Y la fecha se insertará automáticamente en la celda seleccionada después de seleccionar la fecha en el calendario.

Aparece un calendario al hacer clic en una celda específica con código VBA

Esta sección presenta la Selector de fechas utilidad de Kutools for Excel. Después de habilitar esta función, haga clic en una celda de fecha y aparecerá un calendario, puede reemplazar fácilmente la fecha existente con una nueva fecha. Siga los pasos a continuación para aplicar esta función.

1. Hacer clic en Kutools > Contenido > Habilitar selector de fecha.

2. Después de habilitar esta función, haga clic en una celda de fecha y aparecerá un icono de calendario directamente en la celda.

3. Haga clic en el icono de calendario para abrir el Selector de fechas cuadro de diálogo y luego haga clic en una nueva fecha para reemplazar la fecha en la celda seleccionada.

Notas

• Botón Deshacer: haga clic en este botón para deshacer la fecha de reemplazo;
• Botó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 las celdas que contienen la fecha.

Artículos relacionados:

• ¿Cómo activar o ejecutar una macro haciendo clic en una celda específica en Excel?
• ¿Cómo cambiar el color de la celda cuando se hace clic o se selecciona la celda en Excel?
• ¿Cómo abrir un cuadro de mensaje al hacer clic en una celda determinada en Excel?
• ¿Cómo deshabilitar el botón después de hacer clic una vez en Excel?
• ¿Cómo deshabilitar el clic derecho en la pestaña de la hoja en Excel?

---

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

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

• Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
• ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Leer más ... Descarga gratis... Compra...