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, é: