Ir para o conteúdo principal

Como criar um calendário no Excel?

Um calendário do Excel ajuda você a acompanhar eventos importantes, como quando alguém inicia um novo trabalho ou quando algo precisa ser entregue. Isso torna a visualização dessas datas fácil e clara. Neste guia, mostrarei como fazer calendários mensais e anuais no Excel. Veremos como usar modelos para uma configuração rápida e também como fazer um do zero para quem deseja mais controle. Dessa forma, você consegue se manter organizado, seja para trabalho ou planos pessoais.

Crie um calendário anual usando modelos de calendário do Excel

Crie rapidamente um calendário mensal ou anual com o Kutools para Excel

Crie um calendário mensal com o código VBA


Crie um calendário anual usando modelos de calendário do Excel

Com este método, você deve garantir que seu computador se conecte à rede, para que você possa baixar Modelos de calendário.

1. Vamos para Envie o guia, clique em Novo no painel esquerdo e clique em Calendários da Pesquisas sugeridas. Veja a imagem:

2. selecione um dos modelos de calendário de sua preferência e clique duas vezes nele para criar o calendário anual.

Resultado


Crie rapidamente um calendário mensal ou anual com o Kutools para Excel

Calendário perpétuo ferramenta de kutools para Excel pode criar rapidamente um calendário mensal ou anual personalizado em uma nova pasta de trabalho, e cada calendário mensal estará contido em uma nova planilha.

Nota: Para aplicar isso Calendário perpétuo recurso, em primeiro lugar, você deve baixar e instalar Kutools for Excel.

Depois de instalar o Kutools para Excel, clique em Kutools Plus > Planilha > Calendário perpétuo. No pop-up Calendário perpétuo caixa de diálogo, faça o seguinte:

  • Para criar um calendário mensal, especifique os meses em que deseja criar o calendário através do De ePara lista suspensa e clique em Crie.
  • Para criar um calendário anual, especifique o ano em que deseja criar o calendário através do De e Para lista suspensa e clique em Crie.
Resultado
  • Um calendário mensal:
  • Um calendário anual:
Dica: Para usar esse recurso, você deve instalar Kutools for Excel primeiro, por favor clique para baixar e ter um teste gratuito de 30 dias !

Crie um calendário mensal com o código VBA

Com o seguinte código VBA, você pode criar rapidamente um calendário mensal. Faça o seguinte:

1. pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Haverá uma nova janela exibida. Clique inserção > Móduloe insira os seguintes códigos no 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. Então clique Execute ou pressione F5 chave para executar o aplicativo. Agora uma caixa de prompt aparecerá, você pode inserir o mês e o ano na caixa em branco.

Resultado

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks guys for helping. Would like to be able to have a yearly Calendar in which I can enter items. If you can help that would be great.
This comment was minimized by the moderator on the site
Hi, How can I make it start on Monday instead? Thanks in advance
This comment was minimized by the moderator on the site
Excellent job. Billions thanks for your great design of the Excel calendar template. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations