Escola SaberExcel VBA Estudos – www.saberexcel.com.br
Area de membros : membros.saberexcel.com.br
‘///===================’
‘Esta macro acrescenta dias, meses, anos, e semanas a data atual…
‘é só acionar o exemplo em um determinada planilha.
‘///===================’
Sub sbx_diferenca_datas()
‘inserindo os cabeçalhos… baseados nas datadif…
‘……………’
Range(“A1”).Value = “Data Atual”
Range(“B1”).Value = “‘+ 5 dias”
Range(“C1”).Value = “‘+ 5 meses”
Range(“D1”).Value = “‘+ 5 anos”
Range(“E1”).Value = “‘+ 4 semanas”
Range(“H1”).Select
‘INSERINDO A FUNÇÃO DATADIF
Range(“A2”).Value = Date: [a2].Font.Bold = True
Range(“B2”).Value = DateAdd(“d”, 5, Range(“A2”))
Range(“C2”).Value = DateAdd(“m”, 5, Range(“A2”))
Range(“D2”).Value = DateAdd(“yyyy”, 5, Range(“A2”))
Range(“E2”).Value = DateAdd(“ww”, 4, Range(“A2”))
End Sub
‘///===================’
Sub sbx_diferenca_datas_limpar()
[a1:e2].ClearContents
End Sub
Visite nosso site com Area de Membros. (Video Aulas e Milhares de Exemplos de Planilhas)
(Aprenda MS Excel VBA com Simplicidade escrevendo menos e fazendo Mais
http://www.saberexcel.com.br
Comentários