Selection.AutoFill Destination:=Range("C96:C100"), Type:=xlFillDefault

Range("C96:C100").Select

Range("F96").Select

ActiveCell.FormulaR1C1 = "=(R49C11*R102C7/R57C11)*RC[-2]"

Range("F96").Select

Selection.AutoFill Destination:=Range("F96:F100"), Type:=xlFillDefault

Range("F96:F100").Select

ActiveWindow.SmallScroll Down:=3

Range("G102").Select

ActiveCell.FormulaR1C1 = "=RC[-3]-3"

Range("G99:P99").Select

ActiveCell.FormulaR1C1 = _

"=IF(R[4]C[-4]<R[4]C,""Нулевая гипотеза принимается (Y распределен по нормальному закону)"",""Нулевая гипотеза отвергается (Y не распределен по нормальному закону)"")"

Range("C103").Select

ActiveCell.FormulaR1C1 = _

"=(R[-7]C[2]-R[-7]C[3])^2/R[-7]C[3]+(R[-6]C[2]-R[-6]C[3])^2/R[-6]C[3]+(R[-5]C[2]-R[-5]C[3])^2/R[-5]C[3]+(R[-4]C[2]-R[-4]C[3])^2/R[-4]C[3]+(R[-3]C[2]-R[-3]C[3])^2/R[-3]C[3]"

Range("C104").Select

ActiveWindow.SmallScroll Down:=-6

End Sub

Приложение Г

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

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

Sub Задание5()

Задание5 Макрос

Range("C105").Select

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

Range("C106").Select

ActiveWindow.SmallScroll Down:=6

Range("C105").Select

Selection.AutoFill Destination:=Range("C105:H105"), Type:=xlFillDefault

Range("C105:H105").Select