ActiveCell.FormulaR1C1 = _

"=(R[-1]C-R[-70]C[-2]*R[-3]C[-3]*R[-2]C[-3])/(R[-70]C[-2]*R[-3]C*R[-2]C)"

Range("F120").Select

ActiveCell.FormulaR1C1 = _

"=IF(AND(R[-1]C>0.7,R[-1]C<1),""связьсильная"",IF(AND(R[-1]C>0.5,R[-1]C<0.7),""связьсредняя"",""связьслабая""))"

Range("F121").Select

End Sub

Приложение Д

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

Описание макроса задание №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],""Связи между случайными величинами нет (нулевая гипотеза отвергается)"",""Связь между случайными величинами есть (нулевая гипотеза подтверждается)"")"