p>
Columns ("J: J"). ColumnWidth = 8.43
ActiveCell.FormulaR1C1 = _ p> "= (R [-7] C [-4] * SQRT (R [-77] C [-6] -2))/коернь (1 - (R [-7] C [-4] ^ 2)) "
Range ("J126"). Select
ActiveCell.FormulaR1C1 = _ p> "= (R [-7] C [-4] * SQRT (R [-77] C [-6] -2))/SQRT (1 - (R [-7] C [-4] ^ 2)) "
Range ("H124"). Select
ActiveCell.FormulaR1C1 = _ p> "= IF (R [2] C [2]> R [2] C [-1]," "Зв'язки між випадковими величинами немає (нульова гіпотеза відкидається) "", "" Зв'язок між випадковими величинами є (Нульова гіпотеза підтверджується) "") "
Range ("H125"). Select
End Sub
Додаток Е
(обов'язковий)
В
Опис макросу завдання № 7
Sub Заданіе7 ()
Range ("B141"). Select
ActiveCell.FormulaR1C1 = _ p> "= R [-13] C [6] * (R [-85] C [9]/R [-84] C [9]) * (R [1] CR [-88] C [ 9]) + R [-89] C [9] "
Range ("D141"). Select
ActiveCell.FormulaR1C1 = _ p> "= 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 = _ p> "= R [-29] C [4] * (R [-100] C [7]/R [-101] C [7]) * (R [1] CR [-105] C [ 7])-R [-104] C [7] "
Range ("D157"). Select
ActiveCell.FormulaR1C1 = _ p> "= R [-29] C [4] * (R [-100] C [7]/R [-101] C [7]) * (R [1] CR [-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"
...
