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)