Saberexcel - o Site das Macros
Essa Macro do Aplicativo Microsoft Excel VBA, calcula juros chamando uma Função, chamada Taxa Progressiva, o valor é calculado automaticamente.
Sub Resultado_taxa_progressiva()
Dim X As Integer
Call TaxaProgressiva(Range("e1").Value)
Range("F1") = TaxaProgressiva(Range("e1").Value)
End Sub
Function TaxaProgressiva(Saldo As Double) As Double
Dim Taxa As Double
'Descobre o valor da taxa
If Saldo < 10000 Then
Taxa = 0.02
Else
Taxa = 0.03
End If
'Retorno da funcao
TaxaProgressiva = Saldo * (1 + Taxa)
End Function
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo a função e macro acima
Excel planiha vba juros usando estrutura if then else endif (102.31 kB)
