Aposentadoria generosa com aportes mensais de R$400 e sem mágicas

A Importância do Tempo nos Investimentos

Quando falamos sobre investimentos, um dos fatores mais importantes para a formação de riqueza é o tempo. Ele tem um papel crucial na composição dos montantes devido ao efeito exponencial dos juros compostos. Vamos explorar como isso funciona com base em alguns cálculos e exemplos práticos.

Selic Média Anual nos Últimos 10 Anos

A taxa Selic, sendo a taxa básica de juros da economia brasileira, impacta diretamente os investimentos. Abaixo estão as médias anuais da Selic dos últimos 10 anos:

A média anual da taxa Selic nesse período foi de 9,48%. Essa taxa nos dá uma visão geral de como os juros se comportaram na última década.

Taxa Equivalente Mensal

Convertendo essa média anual de 9,48% para uma taxa mensal equivalente, obtemos aproximadamente 0,76% ao mês. Isso é crucial para avaliar o impacto de investimentos recorrentes ao longo do tempo.

Montantes Acumulados com Investimentos Mensais

Vamos agora calcular o montante acumulado com contribuições mensais de R$ 400,00 investidos a uma taxa de 0,76% ao mês para diferentes períodos:

• 10 anos: R$ 77.933,03
• 20 anos: R$ 271.263,63
• 30 anos: R$ 750.864,16
• 40 anos: R$ 1.940.622,38
• 50 anos: R$ 4.892.088,31
• 60 anos: R$ 12.213.870,98

A seguir, temos um gráfico que ilustra o crescimento exponencial do montante ao longo do tempo:

Perceba que, pelo caráter exponencial da curva, ela tende a crescer rumo ao infinito após o decorrer de tempo suficientemente grande. Quanto maior o tempo, maior essa tendência.

Como Reproduzir Esses Cálculos no Excel

Para quem deseja reproduzir esses cálculos e o gráfico no Excel, siga os passos abaixo:

1. a) Abra o Excel e crie uma tabela com as seguintes colunas: "Período (anos)", "Contribuição Mensal", "Taxa Mensal (%)", e "Montante Acumulado".
2. b) Preencha a coluna "Período (anos)" com os valores 10, 20, 30, 40, 50 e 60.
3. c) Na coluna "Contribuição Mensal", insira o valor 400 para todas as linhas.
4. d) Na coluna "Taxa Mensal (%)", insira o valor 0,76 para todas as linhas.
5. e) Use a fórmula de juros compostos para calcular o montante acumulado. Na célula correspondente ao primeiro período, insira: =VF(Taxa_Mensal/100, Período_Anos*12, -Contribuição_Mensal, 0, 0)
6. f) Arraste a fórmula para as demais linhas para calcular os montantes para os outros períodos.
7. g) Crie um gráfico de linhas para visualizar o crescimento exponencial do montante acumulado. Para isso, selecione as colunas "Período (anos)" e "Montante Acumulado" e insira um gráfico de linha.

Esses passos permitem observar claramente como o tempo potencializa os resultados de investimentos recorrentes.

Sub CriaTabelaPost34()              
    ' Deleta todo o conteúdo, formatação e objetos da planilha ativa
    Cells.Clear
    
    Dim chartObj As ChartObject             
    
    ' Loop para percorrer e deletar todos os gráficos
    For Each chartObj In ActiveSheet.ChartObjects
        chartObj.Delete
    Next chartObj             
    
    ' Define os cabeçalhos da tabela
    Dim headers As Variant

    headers = Array("Período (anos)", "Contribuição Mensal", "Taxa Mensal (%)", "Montante Acumulado")
                
    Range("B2:E2").Value = headers

    ' Cria a tabela com estilo
    Dim tbl As ListObject

    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("B2:E8"), , xlYes)

    tbl.Name = "Tabela2"

    tbl.TableStyle = "TableStyleLight9"             

    ' Preenche os dados da tabela
    Dim periodos As Variant

    periodos = Array(10, 20, 30, 40, 50, 60)
                
    Range("B3:B8").Value = Application.WorksheetFunction.Transpose(periodos)

    Range("C3:C8").Value = 400
    Range("D3:D8").Value = 0.76              
    Range("C:C").Style = "Currency"
    
    ' Preenche a coluna de montante acumulado com a fórmula
    Range("E3:E8").FormulaR1C1 = "=FV(RC[-1]/100,RC[-3]*12,-RC[-2],0,0)"

    ' Cria o gráfico
    Set chartObj = ActiveSheet.ChartObjects.Add(150, 50, 400, 300) 'Define posição e tamanho do gráfico

    ' Configura o gráfico
    With chartObj.Chart
      .ChartType = xlLine              
      .SetSourceData Source:=Range("B3:B8,E3:E8") ' Fonte dos dados do gráfico
      .Legend.Delete ' Remove a legenda
      
      ' Configura o eixo X (períodos em anos)
      .Axes(xlCategory).CategoryNames = Range("B3:B8") ' Usa os anos como categoria no eixo X
      
      ' Configura o eixo Y (valores em R$)
      .Axes(xlValue).TickLabels.NumberFormat = "$ #,##0.00" ' Formato do eixo Y em moeda (R$)
      
      ' Remove a grade vertical do gráfico para uma visualização mais limpa
      .Axes(xlCategory).MajorGridlines.Delete
      
      ' Remove a série referente aos anos (eixo X)
      chartObj.Chart.SeriesCollection Collection(1).Delete              
    End With
End Sub