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

Sub Задание6()

 Range("J126").Select

 ActiveCell.FormulaR1C1 = "=R[-7]C[-4]*корень"

 Range("D49").Select

 ActiveWindow.SmallScroll Down:=75

 Range("J126").Select

 ActiveCell.FormulaR1C1 = _

 "=(R[-7]C[-4]*SQRT(R[-77]C[-6]-2))/коернь(1-R[-7]C[-4]^2)"

 Range("J126").Select

 Columns("J:J").ColumnWidth = 11.86

 Columns("J:J").ColumnWidth = 13.86

 Columns("J:J").ColumnWidth = 9.86

 Columns("J:J").ColumnWidth = 8.43

 ActiveCell.FormulaR1C1 = _

 "=(R[-7]C[-4]*SQRT(R[-77]C[-6]-2))/коернь(1-(R[-7]C[-4]^2))"

 Range("J126").Select

 ActiveCell.FormulaR1C1 = _

 "=(R[-7]C[-4]*SQRT(R[-77]C[-6]-2))/SQRT(1-(R[-7]C[-4]^2))"

 Range("H124").Select

 ActiveCell.FormulaR1C1 = _

 "=IF(R[2]C[2]>R[2]C[-1],""Связи между случайными величинами нет (нулевая гипотеза отвергается)"",""Связь между случайными величинами есть (нулевая гипотеза подтверждается)"")"

 Range("H125").Select

End Sub

Приложение Е

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

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

Sub Задание7()

 Range("B141").Select

 ActiveCell.FormulaR1C1 = _

 "=R[-13]C[6]*(R[-85]C[9]/R[-84]C[9])*(R[1]C-R[-88]C[9])+R[-89]C[9]"

 Range("D141").Select

 ActiveCell.FormulaR1C1 = _

 "=R128C8*(R57C11/R56C11)*(R[1]C-R52C11)+R53C11"

 Range("C144").Select

 ActiveCell.FormulaR1C1 = "=R128C8*(R57C11/R56C11)*(R[1]C-R52C11)+R53C11"

 Range("C144").Select

 Selection.AutoFill Destination:=Range("C144:D144"), Type:=xlFillDefault

 Range("C144:D144").Select

 Range("C147").Select

 ActiveCell.FormulaR1C1 = "=R128C8*(R56C11/R57C11)*(R[1]C-R53C11)+R52C11"

 Range("C147").Select

 Selection.AutoFill Destination:=Range("C147:D147"), Type:=xlFillDefault

 Range("C147:D147").Select

 Range("C144").Select

End Sub

Приложение Ж

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

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

Sub Задание8()

 Range("D157").Select

 ActiveCell.FormulaR1C1 = _

 "=R[-29]C[4]*(R[-100]C[7]/R[-101]C[7])*(R[1]C-R[-105]C[7])-R[-104]C[7]"

 Range("D157").Select

 ActiveCell.FormulaR1C1 = _

 "=R[-29]C[4]*(R[-100]C[7]/R[-101]C[7])*(R[1]C-R[-105]C[7])+R[-104]C[7]"

 Range("D158").Select

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