A figura acima uma planilha do Microsoft Excel 2000, considerando instalação padrão em português. Para esta planilha foi rodada a seguinte macro: Sub Macro7() Range("A1:A3").Select Selection.NumberFormat = "$#,##0.00" Range("B1:B3").Select Selection.NumberFormat = "0.00%" Rows("1:1").Select Selection.Insert Shift:=xlDown Columns("A:A").Select Selection.Insert Shift:=xlToRight Range("C6").Select ActiveCell.FormulaR1C1 = _ "=-R[-5]C[-1]*R[-5]C+(R[-4]C[-1]*R[-4]C+R[-3]C[-1]*R[-3]C)" End Sub O valor armazenado na célula C6, após a execução da macro, é:
{TITLE}
{CONTENT}
{TITLE}
Aguarde, enviando solicitação...