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 o Aplicativo Microsoft Excel VBA com SaberExcel