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

¿Cómo crear un calendario en Excel?

El calendario en Excel es un objeto útil. Con un calendario en Excel, puede registrar muchos mensajes en el calendario. Tales como: la fecha en que un nuevo empleado se incorpora a la empresa, la fecha en que se entregan los bienes, etc. Con el calendario, estos mensajes se verán visuales y simples. ¿Cómo crear un calendario mensual o un calendario anual en Excel?

Cree un calendario anual descargando Plantillas de calendario de Excel

Crea un calendario mensual con código VBA

Cree rápidamente un calendario mensual o anual con Kutools para Excel

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derechaCree un calendario anual descargando Plantillas de calendario de Excel

Con este método, debe asegurarse de que su computadora se conecte a la red, para que pueda descargar el Plantillas de calendario.

Ve a Declarar impuestos, haga clic Nueva en el panel izquierdo y haga clic en Calendario de Plantillas de Office.com. Ver captura de pantalla:

doc-crear-calendario1

Luego puede elegir una carpeta de calendario y hacer clic en ella, habrá varios estilos de calendario, seleccione uno que le guste y haga clic en Descargar en el panel derecho.

Después de descargar la plantilla de calendario, obtendrá el calendario en un nuevo libro de trabajo.


flecha azul burbuja derecha Crea un calendario mensual con código VBA

Con el siguiente código VBA, puede crear rápidamente un calendario mensual. Haz lo siguiente:

Presione Developer > Visual Basic, Un nuevo Microsoft Visual Basic para aplicaciones aparecerá la ventana, haga clic en recuadro > Móduloe ingrese el siguiente código en el Módulo:

VBA: crea un calendario mensual en Excel

Sub CalendarMaker ()
ActiveSheet.Protect DrawingObjects: = False, Contenido: = False, _
Escenarios: = Falso
Application.ScreenUpdating = False
En caso de error, vaya a MyErrorTrap
Rango ("a1: g14"). Borrar
MyInput = InputBox ("Escriba mes y año para el calendario")
Si MyInput = "" Entonces salga de Sub
StartDay = DateValue (MyInput)
If Day (StartDay) <> 1 Entonces
StartDay = DateValue (Mes (StartDay) & "/ 1 /" & _
Año (StartDay))
Si terminar
Rango ("a1"). NumberFormat = "mmmm yyyy"
Con rango ("a1: g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCentro
.Fuente.Tamaño = 18
.Font.Bold = Verdadero
.RowHeight = 35
End With
Con rango ("a2: g2")
.AnchoColumna = 11
.VerticalAlignment = xlCentro
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCentro
.Orientación = xlHorizontal
.Fuente.Tamaño = 12
.Font.Bold = Verdadero
.RowHeight = 20
End With
Rango ("a2") = "Domingo"
Rango ("b2") = "Lunes"
Rango ("c2") = "martes"
Rango ("d2") = "miércoles"
Rango ("e2") = "jueves"
Rango ("f2") = "Viernes"
Rango ("g2") = "sábado"
Con rango ("a3: g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlSuperior
.Fuente.Tamaño = 18
.Font.Bold = Verdadero
.RowHeight = 21
End With
Rango ("a1"). Valor = Application.Text (MyInput, "mmmm yyyy")
DayofWeek = Día de la semana (StartDay)
CurYear = Año (StartDay)
CurMonth = Mes (StartDay)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
Seleccione el caso DayofWeek
Caso 1
Rango ("a3"). Valor = 1
Caso 2
Rango ("b3"). Valor = 1
Caso 3
Rango ("c3"). Valor = 1
Caso 4
Rango ("d3"). Valor = 1
Caso 5
Rango ("e3"). Valor = 1
Caso 6
Rango ("f3"). Valor = 1
Caso 7
Rango ("g3"). Valor = 1
Fin Seleccionar
Para cada celda del rango ("a3: g8")
RowCell = celda.Row
ColCell = celda.Columna
Si cell.Column = 1 Y cell.Row = 3 Entonces
ElseIf celda Columna <> 1 Entonces
Si cell.Offset (0, -1) .Value> = 1 Entonces
cell.Value = cell.Offset (0, -1) .Value + 1
Si cell.Value> (FinalDay - StartDay) Entonces
cell.Value = ""
Salir para
Si terminar
Si terminar
ElseIf cell.Row> 3 Y cell.Column = 1 Entonces
cell.Value = cell.Offset (-1, 6) .Value + 1
Si cell.Value> (FinalDay - StartDay) Entonces
cell.Value = ""
Salir para
Si terminar
Si terminar
Siguiente
Para x = 0 a 5
Rango ("A4"). Desplazamiento (x * 2, 0). Fila completa. Insertar
Con rango ("A4: G4"). Desplazamiento (x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlSuperior
.WrapText = Verdadero
.Fuente.Tamaño = 10
.Font.Bold = Falso
.Locked = Falso
End With
Con rango ("A3"). Desplazamiento (x * 2, 0). Redimensionar (2, _
7) .Bordes (xlIzquierda)
.Peso = xlThick
.ColorIndex = xlAutomatic
End With
Con rango ("A3"). Desplazamiento (x * 2, 0). Redimensionar (2, _
7) .Bordes (xlRight)
.Peso = xlThick
.ColorIndex = xlAutomatic
End With
Rango ("A3"). Desplazamiento (x * 2, 0). Redimensionar (2, 7) .BordeAlrededor _
Peso: = xlThick, ColorIndex: = xlAutomatic
Siguiente
Si Rango ("A13"). Valor = "" Entonces Rango ("A13"). Desplazamiento (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = Falso
ActiveSheet.Protect DrawingObjects: = Verdadero, Contenido: = Verdadero, _
Escenarios: = Verdadero
ActiveWindow.WindowState = xlMaximizado
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
Mi trampa de errores:
MsgBox "Es posible que no haya ingresado correctamente el mes y el año". _
& Chr (13) & "Escriba el mes correctamente" _
& "(o utilice una abreviatura de 3 letras)" _
& Chr (13) & "y 4 dígitos para el año"
MyInput = InputBox ("Escriba mes y año para el calendario")
Si MyInput = "" Entonces salga de Sub
Currículum
End Sub

A continuación, haga clic en doc-calendar-2 para ejecutar el código, y aparecerá un cuadro emergente, puede ingresar el mes y el año en el cuadro en blanco. Ver captura de pantalla:

doc-crear-calendario2

Y luego haz clic OK. Y se ha creado un nuevo calendario mensual en la hoja de trabajo actual. Ver captura de pantalla:

doc-crear-calendario3

El código VBA es difícil para la mayoría de nosotros, y con este código VBA, solo puede crear un calendario mensual, si desea crear un calendario anual rápida y fácilmente, ¿existe algún otro método simple para hacer esto?


flecha azul burbuja derecha Cree rápidamente un calendario mensual o anual con Kutools para Excel

Calendario perpetuo herramienta de kutools para Excel puede crear rápidamente un calendario mensual personalizado o un calendario anual en un nuevo libro de trabajo, y cada calendario mensual se incluirá en una nueva hoja de trabajo.

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. Comprar ahora

Si ha instalado Kutools para Excel, haga clic en Empresa > Herramientas de hoja de trabajo > Calendario perpetuo, Y un Calendario perpetuo aparecerá el cuadro de diálogo. Si desea crear un calendario mensual actual, simplemente ingrese 1 en el Número de meses cuadro y clic Crea botón. Ver captura de pantalla:

doc-crear-calendario4

Y luego se ha generado un calendario mensual actual en un nuevo libro de trabajo.

doc-crear-calendario5

Y si desea crear un calendario anual de 2012, ingrese el número 12 en el Número de meses cuadro, y especificó el primer mes para enero de 2012 en el panel izquierdo. Ver captura de pantalla:

doc-crear-calendario6

A continuación, haga clic en Crea , creará el calendario del año 2012 en un nuevo libro de trabajo.

doc-crear-calendario7


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 (3)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Excelente trabajo. Miles de millones de gracias por su excelente diseño de la plantilla de calendario de Excel. :lol:
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿cómo puedo hacer que comience el lunes en su lugar? Gracias por adelantado
Este comentario fue minimizado por el moderador en el sitio
Gracias chicos por ayudar. Me gustaría poder tener un calendario anual en el que pueda ingresar artículos. Si usted puede ayudar, seria maravilloso.
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