Saltar al contenido principal

¿Cómo crear un calendario en Excel?

Un calendario de Excel le ayuda a realizar un seguimiento de eventos importantes, como cuando alguien comienza un nuevo trabajo o cuando es necesario entregar algo. Hace que ver estas fechas sea fácil y claro. En esta guía, le mostraré cómo crear calendarios mensuales y anuales en Excel. Veremos el uso de plantillas para una configuración rápida y también cómo crear una desde cero para aquellos que quieran tener más control. De esta manera podrás mantenerte organizado, ya sea para el trabajo o para planes personales.

Cree un calendario anual utilizando plantillas de calendario de Excel

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

Crea un calendario mensual con código VBA

Cree un calendario anual utilizando 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.

1. Ir Archive pestaña, clic Nuevo en el panel izquierdo y haga clic en Calendarios en Búsquedas sugeridas. Ver captura de pantalla:

2. seleccione una de las plantillas de calendario que desee, haga doble clic en ella para crear el calendario anual.

Resultado

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.

Nota: Para aplicar esto Calendario perpetuo función, en primer lugar, debe descargar e instalar Kutools for Excel.

Después de instalar Kutools para Excel, haga clic en Kutools Más > Hoja de trabajo > Calendario perpetuo. en el surgimiento Calendario perpetuo cuadro de diálogo, haga lo siguiente:

  • Para crear un calendario mensual, especifique los meses en los que desea crear el calendario a través del Desde yA lista desplegable y haga clic Crear.

  • Para crear un calendario anual, especifique el año en el que desea crear el calendario a través del Desde y A lista desplegable y haga clic Crear.

Resultado
  • Un calendario mensual:

  • Un calendario anual:

Consejo: Para utilizar esta función, debe instalar Kutools for Excel primero, por favor haga clic para descargar y tener una prueba gratuita de 30 días ahora.

Crea un calendario mensual con código VBA

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

1. prensa otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Aparecerá una nueva ventana. Hacer clic recuadro > Módulo, luego ingrese los siguientes códigos en el módulo:

 Sub CalendarMaker()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
Application.ScreenUpdating = False
On Error GoTo MyErrorTrap
Range("a1:g14").Clear
MyInput = InputBox("Type in Month and year for Calendar ")
If MyInput = "" Then Exit Sub
StartDay = DateValue(MyInput)
If Day(StartDay) <> 1 Then
StartDay = DateValue(Month(StartDay) & "/1/" & _
Year(StartDay))
End If
Range("a1").NumberFormat = "mmmm yyyy"
With Range("a1:g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End With
With Range("a2:g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End With
Range("a2") = "Sunday"
Range("b2") = "Monday"
Range("c2") = "Tuesday"
Range("d2") = "Wednesday"
Range("e2") = "Thursday"
Range("f2") = "Friday"
Range("g2") = "Saturday"
With Range("a3:g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End With
Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
DayofWeek = Weekday(StartDay)
CurYear = Year(StartDay)
CurMonth = Month(StartDay)
FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
Select Case DayofWeek
Case 1
Range("a3").Value = 1
Case 2
Range("b3").Value = 1
Case 3
Range("c3").Value = 1
Case 4
Range("d3").Value = 1
Case 5
Range("e3").Value = 1
Case 6
Range("f3").Value = 1
Case 7
Range("g3").Value = 1
End Select
For Each cell In Range("a3:g8")
RowCell = cell.Row
ColCell = cell.Column
If cell.Column = 1 And cell.Row = 3 Then
ElseIf cell.Column <> 1 Then
If cell.Offset(0, -1).Value >= 1 Then
cell.Value = cell.Offset(0, -1).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
ElseIf cell.Row > 3 And cell.Column = 1 Then
cell.Value = cell.Offset(-1, 6).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
Next
For x = 0 To 5
Range("A4").Offset(x * 2, 0).EntireRow.Insert
With Range("A4:G4").Offset(x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Font.Size = 10
.Font.Bold = False
.Locked = False
End With
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlLeft)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlRight)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
Weight:=xlThick, ColorIndex:=xlAutomatic
Next
If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
.Resize(2, 8).EntireRow.Delete
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
MyErrorTrap:
MsgBox "You may not have entered your Month and Year correctly." _
& Chr(13) & "Spell the Month correctly" _
& " (or use 3 letter abbreviation)" _
& Chr(13) & "and 4 digits for the Year"
MyInput = InputBox("Type in Month and year for Calendar")
If MyInput = "" Then Exit Sub
Resume
End Sub

3. Luego haga clic Ejecutar botón o prensa F5 clave para ejecutar la aplicación. Ahora aparecerá un cuadro emergente, puede ingresar el mes y el año en el cuadro en blanco.

Resultado