Home Excel - Dicas Microsoft Excel VBA Excel VBA - Calendario Excel planilha vba calendario macros insere calendario

Excel planilha vba calendario macros insere calendario

E-mail Imprimir PDF

Saberexcel - o site das macros

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um calendário na folha de planiha, voce poderá testar os macros separadamente para ver o resultado, por exemplo o macro borda_1, insere as bordas nas células nos 12 meses do ano.
observe que há uma fórmula em FC(Formatação condicional) que formata os dias Sabados e Domingos (7º.dia e 1º dia), talvez possa lhe útil.
Fique com Deus - E_Marcondes

Sub borda_1()
Dim i As Integer
Dim J As Integer
Application.ScreenUpdating = False

 For i = 5 To 35
    For J = 2 To 35 Step 3
      With Range(Cells(i, J), Cells(i, J + 1))
        .Select
        .BorderAround LineStyle:=xlContinuous, ColorIndex:=1
        If Weekday(Cells(i, J)) = 1 Then
          With .Borders(xlEdgeBottom)
               .ColorIndex = 3
               .Weight = xlMedium
          End With
        End If
      End With
    Next J
  Next i
 
md_formatando_datas
md_meses_str
md_formula_datam
md_insere_dias
sb_meses
sb_semana
Cells.Font.Size = 8
End Sub

Sub limpar_formatos()
[sbmes].ClearContents
[A4:AI39].ClearContents
End Sub

Sub md_meses_str()
   [B4].Value = "JANEIRO"
   [E4].Value = "FEVEREIRO"
   [H4].Value = "MARÇO"
   [K4].Value = "ABRIL"
   [N4].Value = "MAIO"
   [Q4].Value = "JUNHO"
   [T4].Value = "JULHO"
   [W4].Value = "AGOSTO"
   [Z4].Value = "SETEMBRO"
   [AC4].Value = "OUTUBRO"
   [AF4].Value = "NOVEMBRO"
   [AI4].Value = "DEZEMBRO"
End Sub

Sub md_formula_datam()
   [B5].FormulaR1C1 = "=EDATE(R1C1,0)"
   [E5].FormulaR1C1 = "=EDATE(R1C1,RC[-4])"
   [H5].FormulaR1C1 = "=EDATE(R1C1,R[1]C[-7])"
   [K5].FormulaR1C1 = "=EDATE(R1C1,R[2]C[-10])"
   [N5].FormulaR1C1 = "=EDATE(R1C1,R[3]C[-13])"
   [Q5].FormulaR1C1 = "=EDATE(R1C1,R[4]C[-16])"
   [T5].FormulaR1C1 = "=EDATE(R1C1,R[5]C[-19])"
   [Z5].FormulaR1C1 = "=EDATE(R1C1,R[7]C[-25])"
   [W5].FormulaR1C1 = "=EDATE(R1C1,R[6]C[-22])"
   [AC5].FormulaR1C1 = "=EDATE(R1C1,R[8]C[-28])"
   [AF5].FormulaR1C1 = "=EDATE(R1C1,R[9]C[-31])"
   [AI5].FormulaR1C1 = "=EDATE(R1C1,R[10]C[-34])"
   [A2].Select
End Sub


Sub md_formatando_datas()
      [A1,B5,E5,H5,K5,N5,Q5,T5,W5,Z5,AC5,AF5,AI5].NumberFormat = "m/d/yyyy"
End Sub

'inserí este contador com intuíto didático, insere os dias na coluna(A), 1,2,3,4,.....31
Sub md_insere_dias()
Dim i As Integer
[A5].Select
i = 0
For i = 1 To 31
     ActiveCell.Offset(i - 1, 0).Value = i
Next i
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application) com os produtos didáticos Saberexcel



  Baixe o exemplo de planilha contendo os macros acima
Excel vba calendario bordas formatacao dias (39.09 KB)

Última atualização em Qua, 10 de Agosto de 2011 08:15  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje1637
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11768
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25497
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448326
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA