Saberexcel - o site das macros

Exemplo de um Calendário com lista de Feriados com diversas Fórmulas
Esse exemplo de planilha Microsoft Excel, usa fórmulas e também uma macro. Observe que o exemplo usa uma função que calcula o último dia de cada mês, a Função FIMMÊS, essa função precisa do Suplemento [FIMMES = Ferramentas>Suplementos> Ferramenta de Analise VBA], instalado. Quando instalado mesmo se continuar dando erro, voce poderá acionar a macro que fiz, vai ativar cada fórmulas mês a mes, porque uma fórmula depende da outra para ir montando os meses. . Não esqueça de (Função FIMMÊS) depende de suplementos




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Esta planilha exemplo do Aplicativo Microsoft Excel, gera uma calendário perpétuo. Para ser mais preciso, ela gera uma folha anual entre os anos de 1900 e 9999. Siga as instruções abaixo para usar esta planilha:

Para usar esta planilha, basta clicar na barra de rolagem para selecionar o ano desejado. Conforme o ano é selecionado o "grid" do calendário é preenchido com as datas para todos os meses do ano escolhido.

Experimente também a versão para mês individual. O modelo com calendário mensal pode ser baixado do site da Microsoft no mesmo endereço onde você obteve este modelo de calendário anual.

Usuário de Excel em Inglês no Brasil:

A fórmula no topo do calendário é (célula C3) ="CALENDÁRIO PARA O ANO DE " & TEXTO(DATA(ano;1;1);"aaaa"). Caso você utilize o Excel en inglês, a fórmula acima precisa ser modificada para ="CALENDÁRIO PARA O ANO DE " & TEXTO(DATA(ano,1,1),"yyyy").

Note que "aaaa" deve ser trocado por "yyyy". Note também que o ponto-e-vírgula (;) deve ser trocado para vírgula (,).
Esta troca ocorrerá automaticamente no Excel.




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o Site das Macros
Essas macros do Aplicativo Microsoft Excel VBA, exibe um calendário permantente e insere a data do mês a partir de fórmulas matriciais. Observem que as fórmulas foram capturadas com GM(Gravador de macros) por isso que insisto para quem esta aprendendo a dominar bem
esse conhecimento, aprender sobre o GM(Gravador de Macros), aprender a depurar uma macro é muito importante no aprendizado do desenvolvedor.


Sub insere_formula_matricial_dias_do_Mes()
Dias_Semana
Range("A7").Select
'Insere fórmulas matriciais (array)
With Range(ActiveCell.Offset(2, 0), ActiveCell.Offset(7, 6))
'Formula would be too long, so insert shorter formula and replace characters.
.FormulaArray = "=IF(MONTH(DATE(y,m,1))<>MONTH(DATE(y,m,1)-(WEEKDAY(DATE(y,m,1))-1)+{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1),"""",DATE(y,m,1)-(WEEKDAY(DATE(y,m,1))-1)+{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1)"
.Replace What:=",m,", Replacement:=",MONTH(" & ActiveCell.Address(False, False) & "),"
.Replace What:="y,", Replacement:="YEAR(" & ActiveCell.Address(False, False) & "),"
'.NumberFormat = "d"
'.HorizontalAlignment = xlCenter
'.Interior.ColorIndex = 36
End With

End Sub


Sub Dias_Semana()
Range("A8").FormulaR1C1 = "Domingo"
Range("B8").FormulaR1C1 = "Segunda"
Range("C8").FormulaR1C1 = "Terça"
Range("D8").FormulaR1C1 = "Quarta"
Range("E8").FormulaR1C1 = "Quinta"
Range("F8").FormulaR1C1 = "Sexta"
Range("G8").FormulaR1C1 = "Sábado"
Range("B6").Select
End Sub


Sub Limpar_Teste()
Range("A4:H16").Select
Selection.ClearContents
Range("A7").Select
End Sub


Sub Mostra_Oculta_Formulas()
If Range("A9") = "" Then
MsgBox ("tem que inserir as formulas")
Exit Sub
Else
ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel