Descubra como fazer figuras agradáveis com retângulos dispostos aleatoriamente e algumas linhas de código, em Excel – VBA.

Para traçar um único retângulo no VBA, utilizar o comando a seguir:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 30, 50, 30).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 200)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)

Este vai traçar um retângulo nas coordenadas (x,y) = (50,30), com largura 50 e altura 30. Cor azul escuro e contorno preto.

Mais uma linha, para dizer a transparência de 70% – isso para destacar a intersecção com cores diferentes.

Selection.ShapeRange.Fill.Transparency = 0.7

Se colocarmos tudo dentro de um loop for, sem aleatoriedade alguma, teremos um grid de retângulos.

For i = 1 To 12
 For j = 1 To 12
  ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50 * j, 30 * i, 50, 30).Select
  Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 200)
  Selection.ShapeRange.Fill.Transparency = 0.7
  Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
 Next j
Next i

Já o resultado fica um pouco mais interessante…

Juros simples x juros compostos

Os juros compostos dão retorno exponencial. Um pequeno experimento, para mostrar a força dos juros compostos.

Suponha um investimento inicial e uma taxa. Na primeira coluna, calculamos juros simples, e na segunda, compostos. No início, é praticamente igual.

Com um pouco mais de tempo, a diferença começa a surgir.

A longo prazo, os juros simples têm comportamento linear, enquanto os compostos, exponencial, daí o seu poder.

Lições: para ter efeito de juros compostos, é necessário investimento constante e paciência, visão de longo prazo. É como a tartaruga do conto de Esopo, devagar e sempre.

“Jogue jogos iterados. Todos os retornos na vida, seja em riqueza, relacionamentos ou conhecimento, vêm de juros compostos” – Naval Ravikant

Veja também:

https://ideiasesquecidas.com/