End Sub

Приложение З

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

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

Sub Задание9()

ActiveWindow.SmallScroll Down:=6

Range("C170").Select

ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-3]C)/R[-2]C"

Range("C171").Select

ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-4]C)/R[-3]C"

Range("C172").Select

ActiveWindow.SmallScroll Down:=3

Range("C178").Select

ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-3]C)/R[-2]C"

Range("C179").Select

ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-4]C)/R[-3]C"

Range("L170").Select

ActiveCell.FormulaR1C1 = "=(R[-2]C[-3]-R[-2]C[-1])*100"

Range("L178").Select

ActiveCell.FormulaR1C1 = "=(R[-2]C[-3]-R[-2]C[-1])*100"

Range("L179").Select

Range("E170").Select

ActiveCell.FormulaR1C1 = "=R[-2]C[-2]*6"

Range("E178").Select

ActiveCell.FormulaR1C1 = "=R[-2]C[-2]*6"

Range("E179").Select

End Sub