Como criar um calendário mensal no Excel 2016, 2013 ou 2010
Aprenda a inserir calendários mensais personalizados em seus projetos com esse código.
Por Maximiliano Meyer em 21/09/2016 - atualização: 07/08/2018 08:54
Precisando inserir um calendário em sua planilha? Então você está no post certo.
Lembrando que este código irá inserir um calendário mensal de um mês e ano especificado por você. Caso deseje um código que crie um calendário anual na sua planilha, confira este outro código. Na verdade eu sugiro que você veja os 2 e escolha qual se adapta melhor às suas necessidades.
Lembrando que já está disponível para download nossa planilha calendário com agendador de contas para o ano de 2017. O download pode ser feito aqui.
Vamos começara criar esse calendário então. Logo que abrir a planilha aperte Alt+F11 para acessar o modo de edição e programação de macros. Agora dê um duplo clique em "Esta_pasta_de_trabalho" e cole o seguinte código:
Sub CalendarioMensal()
Range("a1:g14").Clear 'Esta será a área onde será inserido o calendário. Se você editar a área de inserção não esqueça de editar as células abaixo para não dar erro
MyInput = InputBox("Digite o mês e o ano do seu calendário:" & vbCrLf & "" & vbCrLf & "www.AprenderExcel.com.br")
Range("a2") = "Domingo"
Range("b2") = "Segunda"
Range("c2") = "Terça"
Range("d2") = "Quarta"
Range("e2") = "Quinta"
Range("f2") = "Sexta"
Range("g2") = "Sábado"
With Range("A3").Offset(x * 2, 0).Resize(2, 7).Borders(xlLeft)
With Range("A3").Offset(x * 2, 0).Resize(2, 7).Borders(xlRight)
' ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _ Atenção: ' Se você quiser bloquear seu calendário contra edições é só apagar as aspas vermelhas no início dessa frase e na frase abaixo
' Scenarios:=True
MsgBox "Provavelmente você não entrou os dados corretamente" _
& Chr(13) & "" _
& Chr(13) & "Digite o nome do mês" _
& " (você pode usar a abreviação de 3 letras)" _
& Chr(13) & "e 4 dígitos para o ano" _
& Chr(13) & "www.AprenderExcel.com.br"
MyInput = InputBox("Digite o mês e o ano")
Agora chegou a hora de testar. Clique no sinal de play na barra de tarefas da própria janela de edição do VBA. Se você já estiver fora da janela de edição é só apertar alt + F8 e executar a macro. Se você achar interessante pode criar também um botão para executar a macro sempre que desejar. Aprenda a fazer isso aqui.
Na janela que abrir insira o mês e o ano desejado, em uma linha única, sem vírgulas ou caracteres especiais. Por exemplo: Dezembro 2016.
O nome do mês deve ser inserido no idioma que está o seu Office. Legal que você pode usar a abreviação de letras para cada mês: janeiro será jan, fevereiro será fev, etc.
É isso aí pessoal. Não esqueça de conferir o outro método de criar calendários e escolha o seu preferido.