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 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.
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:
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
Artigos relacionados
Como criar um calendário de lista suspensa (selecionador de data) no Excel?
Com o calendário suspenso na planilha do Excel, você pode selecionar facilmente uma data específica sem digitar manualmente. Este tutorial mostra como criar um calendário em uma planilha do Excel usando o controle ActiveX.
Como abrir um calendário ao clicar em uma célula específica no Excel?
Este artigo fala sobre como abrir um calendário ao clicar nas células de um determinado intervalo e, em seguida, inserir a data na célula selecionada automaticamente após selecionar a data no calendário.
Como criar um compromisso da planilha do Excel para o calendário do Outlook?
Às vezes, você pode precisar criar compromissos no calendário do Outlook, mas você já tentou listar os compromissos em uma planilha do Excel e, em seguida, importá-los para o calendário do Outlook como mostrado na imagem abaixo?
Como criar um calendário mensal dinâmico no Excel?
Este artigo mostrará em detalhes o método para criar um calendário mensal dinâmico no Excel.
As melhores ferramentas de produtividade para escritório
Kutools para Excel - ajuda você a se destacar na multidão
Kutools para Excel possui mais de 300 recursos, Garantindo que o que você precisa está a apenas um clique de distância...
Guia Office - Habilite leitura e edição com guias no Microsoft Office (inclui Excel)
- Um segundo para alternar entre dezenas de documentos abertos!
- Reduza centenas de cliques do mouse para você todos os dias, diga adeus à mão do mouse.
- Aumenta sua produtividade em 50% ao visualizar e editar vários documentos.
- Traz guias eficientes para o Office (inclui Excel), assim como Chrome, Edge e Firefox.