Excel VBA data planilha função soma mês ou anos datas

Planilha Excel VBA data função soma mês ou anos datas

Excel VBA data planilha função soma mês ou anos datas

Estes Macros e Função Personalizada do Aplicativo Microsoft Excel VBA(Visual Basic Application), adiciona determinado valor em uma data, seja Dia, Mês ou Anos. observe que na coluna(A) inseri a quantidade que será acrescentada na coluna(Dias), Coluna(Mes) e Coluna(Anos). Essas funções são extremamente simples de fazer porém muito eficaz, aqui voce aprender como inserir através de fórmulas chamando as Funções Personalizadas Dias = fDia(Celula, Qt.Dias), fMes(Célula, Qt Meses) e fAno(Célula, Qt Anos), é muito boa, então pratique bastante, tente fazer as funções em copiar, tem que memorizar bem e pratica. Fiz também um Macro que Chama a função fazendo o trazendo o mesmo resultado para as (Linhas e Coluna) correspondentes sem usar fórmulas, usando uma instrução For…Next.

Lembre-se que a Instrução Loop (For…next e Outras) e Condição IF – são extremamente importantes no aprendizado com Programação Excel VBA.

‘//==========’ funçao fDia adiciona um número de dias em determinada data .
Function fDia(d, n)
fDia = DateAdd(“d“, n, d)
End Function
‘//==========’ funçao fMes adiciona um número de Meses em determinada data .
Function fMes(d, n)
fMes = DateAdd(“m“, n, d)
End Function
‘//==========’ funçao fAno adiciona um número de Anos em determinada data .
Function fAno(d, n)
fAno = DateAdd(“yyyy“, n, d)
End Function
‘//======= macro para chamar as funções acima sem a necessidade do uso de fórmulas
‘ vai fazer justamente isso:
sem formulas: fDia(C2,19) – data inserida na célula (C2) vai adicionar 19 dias, assim com outras funções
Sub sbx_busca_funcao()
For i = 4 To Cells(Rows.Count, “A”).End(xlUp).Row
Cells(i, “n”).Value = fDia(Cells(i, “c”), Cells(i, “a”))
Cells(i, “p”).Value = fMes(Cells(i, “c”), Cells(i, “a”))
Cells(i, “r”).Value = fAno(Cells(i, “c”), Cells(i, “a”))
Next i
End Sub
‘//==========’ macro para limpar e fazer a realização do teste.
Sub sbx_limpar_teste()
‘aprender localizar a ultima linha em determinada coluna é EXTREMAMENTE IMPORTANTE, REPITA VARIAS VEZES
x = Range(“A” & Application.Rows.Count).End(xlUp).Row + 1 ‘ localiza a ultima linha + 1
Range(Cells(4, “n”), Cells(x, “r”)).ClearContents
End Sub