Note: The other languages of the website are Google-translated. Back to English

¿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.

  Si desea tener una prueba gratuita (30-día) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Artículos relacionados:


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.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (18)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Quiero mostrar el calendario emergente debajo de la celda seleccionada. ¿Cómo debo hacerlo?
Este comentario fue minimizado por el moderador en el sitio
Usé estos códigos VBA y todo está bien hasta ahora. El rango es A2: A10 y el calendario aparece cuando selecciona una celda en él. Pero si vuelve a marcar la fila del 2 al 10, el calendario vuelve a aparecer. Es lo mismo con la columna "A" si la marca, nuevamente aparece el calendario. ¿Cómo debo proceder para obtener el calendario solo en el rango que he definido?
Este comentario fue minimizado por el moderador en el sitio
Hola a todos,

¿Alguien puede decirme cómo abrir un calendario en un rango de celdas, pero comenzando solo desde la celda debajo del encabezado de una tabla y abajo en una columna de Excel?


Gracias de antemano.
Este comentario fue minimizado por el moderador en el sitio
Buenos días,
Lo siento, no entendí tu pregunta. Sería bueno si pudiera proporcionar una captura de pantalla de lo que está tratando de hacer.
Este comentario fue minimizado por el moderador en el sitio
Use, por ejemplo: Rango ("B6: C30")
Este comentario fue minimizado por el moderador en el sitio
Use, por ejemplo: Rango ("B6: C30")
Este comentario fue minimizado por el moderador en el sitio
Tarihi seçebiliyorum ama a1: a10 hücrelerine seçtiğim tarih eklenmiyor. Teşekkür Ederim
Este comentario fue minimizado por el moderador en el sitio
si trato de seleccionar una fila, la ventana emergente se activará y la fecha aparecerá en cada celda de esa fila


¿Cómo puedo evitar esto?
Este comentario fue minimizado por el moderador en el sitio
Hola Sam,
El código se ha actualizado en el artículo con la resolución de problemas. Pruébalo y gracias por tu comentario.
Este comentario fue minimizado por el moderador en el sitio
Salve Il Codice Funziona Benissimo, Ma Se Volessi Farlo Funzionare Anchse Su Un Altro Foglio
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿es posible colocar la ventana emergente del selector de fecha para varias columnas, ya que en mi hoja tengo "fecha de inicio", "fecha de finalización" y "fecha del acuerdo". ¿Si es así, entonces cómo?
Este comentario fue minimizado por el moderador en el sitio
Hola Jeet,
Siga los pasos y reemplace el rango "A2:A10" en el segundo código de VBA con su rango de columna (como C2:E2).
Este comentario fue minimizado por el moderador en el sitio
¡Muchas gracias! Estas direcciones fueron muy útiles :)
Este comentario fue minimizado por el moderador en el sitio
Aparecerá el calendario, pero cuando hago clic en la fecha, la celda no se llena.
Este comentario fue minimizado por el moderador en el sitio
Hola,
El código funciona bien en mi caso. ¿Qué versión de Excel estás usando?
Este comentario fue minimizado por el moderador en el sitio
No hay ningún Control MonthView de Microsoft en la lista (Office 365), y las instrucciones aquí no explican cómo se obtendría ese control, por lo que es bastante inútil a menos que esté usando una versión anterior de Excel.
Este comentario fue minimizado por el moderador en el sitio
No veo Microsoft MonthView Control en la lista, pero puede ser como Pete (#32847) mencionó que esto no funcionará en Office 365 o Microsoft Office de 64 bits.
Este comentario fue minimizado por el moderador en el sitio
Hola Teagan Caudle,
Busqué y probé los métodos sugeridos en Google, pero finalmente no pude registrar el control MonthView en Microsoft 365.
Lo siento por los inconvenientes ocasionados. Tal vez puedas comprobar esto.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL