ActiveCell.FormulaR1C1 = "=(R[-19]C+R[-19]C[1])/2"

Range("K59").Select

ActiveCell.FormulaR1C1 = "=R[-20]C[-7]"

Range("K60").Select

ActiveWindow.SmallScroll Down:=6

ActiveCell.FormulaR1C1 = "=R[-21]C[3]-R[-21]C[-2]"

Range("K61").Select

ActiveWindow.SmallScroll Down:=9

ActiveCell.FormulaR1C1 = "=R[-22]C[-5]-R[-22]C[-9]"

Range("K62").Select

ActiveWindow.SmallScroll Down:=9

ActiveCell.FormulaR1C1 = "=R[-6]C/R[-10]C*100"

Range("K63").Select

ActiveCell.FormulaR1C1 = "=R[-6]C/R[-10]C*100"

Range("K63").Select

ActiveCell.FormulaR1C1 = "=R[-6]C/R[-10]C*100"

Range("K64").Select

End Sub

Приложение Б

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

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

Sub Задание3()

' Range("G80").Select

ActiveCell.FormulaR1C1 = "=(R[1]C[-4]*R[-23]C[4])/(SQRT(R[-31]C[4]))"

Range("G81").Select

ActiveWindow.SmallScroll Down:=6

ActiveCell.FormulaR1C1 = "=R[-1]C/2"

Range("G83").Select

ActiveCell.FormulaR1C1 = "=R[-30]C[4]-R[-3]C"

Range("H83").Select

ActiveCell.FormulaR1C1 = "=R[-30]C[3]+R[-2]C[-1]"