ActiveCell.FormulaR1C1 = "=R[-4]C[-1]^2*R[-28]C[7]^2/R[-4]C[3]^2"

Range("D86").Select

End Sub

Приложение В

(обязательное)

Описание макроса задание №4

Sub Задание4()

Range("B96").Select

ActiveCell.FormulaR1C1 = "=R[-57]C"

Range("B97").Select

ActiveCell.FormulaR1C1 = "=R[-58]C[1]"

Range("B98").Select

ActiveCell.FormulaR1C1 = "=R[-59]C[2]"

Range("B99").Select

ActiveCell.FormulaR1C1 = "=R[-60]C[3]"

Range("B100").Select

ActiveCell.FormulaR1C1 = "=R[-61]C[4]"

Range("E96").Select

ActiveCell.FormulaR1C1 = "=R[-56]C[-3]"

Range("E97").Select

ActiveCell.FormulaR1C1 = "=R[-57]C[-2]"

Range("E98").Select

ActiveCell.FormulaR1C1 = "=R[-58]C[-1]"

Range("E99").Select

ActiveCell.FormulaR1C1 = "=R[-59]C"

Range("E100").Select

ActiveCell.FormulaR1C1 = "=R[-60]C[1]"

Range("C96").Select

ActiveCell.FormulaR1C1 = "=(RC[-1]-R53C11)/R57C11"

Range("C97").Select

ActiveWindow.SmallScroll Down:=9