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