Planilha Excel VBA Calculo Previsão Anual Dias data base vba Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usaindo a funçao fDia() calcula dias base visita clientes pesquisa, para montar um grafico sobre a visitação clienltes para calculos de vendas de lanches, com base
Para 5, Para 7 e Para 10, mostrando o sucesso possivel de vendas de lanches.
‘//==========’
Sub sbx_calcula_dias_uteis()
Cells(1, “f”).Value = ((365 / 7) * 5)
End Sub
‘//==========’
Sub sbx_limpar_dados()
Cells(1, “f”).Value = “”
End Sub
‘//==========’
Function fDias(d, n)
fDias = DateAdd(“d”, n, d)
End Function
‘//==========’
Sub sbx_calcular_datas_pagamento()
For i = 1 To 5
Cells(i, “c”).Value = fDias(Cells(i, “b”), Cells(3, “a”))
Next i
End Sub
‘//==========’
Sub sbx_limpar_calculos_datas_pagamento()
For i = 1 To 5
Cells(i, “c”).Value = “”
Next i
End Sub
‘//==========’
Sub sbx_calculo_efetivo()
Dim i As Long
For i = 8 To Cells(Rows.Count, “a”).End(xlUp).Row
‘Cells(i, “b”).Value = Cells(6, “b”).Value * Cells(i, “a”).Value * Cells(1, “f”).Value
‘ou
Cells(i, “b”).Value = Cells(6, “b”).Value * Cells(i, “a”).Value * ((365 / 7) * 5)
Cells(i, “c”).Value = Cells(6, “c”).Value * Cells(i, “a”).Value * ((365 / 7) * 5)
Cells(i, “d”).Value = Cells(6, “d”).Value * Cells(i, “a”).Value * ((365 / 7) * 5)
Next i
End Sub
‘//==========’
Sub sbx_limpar_calculo_efetivo()
X = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(Cells(8, “b”), Cells(X, “d”)).ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
Baixe o exemplo de planilha contendo os macros acima:
Planilha Excel VBA Calculo Previsao Anual Dias data base vba