Imagem de fundo

A figura acima uma planilha do Microsoft Excel 2000, considerando instalação padrão em...

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

A
-10
B
0
C
40
D
70
E
80