¿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.
Paso 2: active el calendario al hacer clic en la celda
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.
Note: 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 del botón.
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.
Note: 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
Note: 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. Proyecto , 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
Note: 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.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
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
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!