-6
Range ("C112"). Select
Selection.AutoFill Destination: = Range ("C112: H112"), Type: = xlFillDefault
Range ("C112: H112"). Select
Range ("C113"). Select
ActiveCell.FormulaR1C1 = "= R [-1] C * R [-7] C"
Range ("C113"). Select
Selection.AutoFill Destination: = Range ("C113: H113"), Type: = xlFillDefault
Range ("C113: H113"). Select
Range ("J107"). Select
ActiveCell.FormulaR1C1 = "= RC [-1] * RC [-8]"
Range ("J107"). Select
Selection.AutoFill Destination: = Range ("J107: J111"), Type: = xlFillDefault
Range ("J107: J111"). Select
Range ("J112"). Select
Selection.FormulaR1C1 = "=" p> ActiveCell.FormulaR1C1 = "= SUM (R [-5] C: R [-1] C)"
Range ("J113"). Select
Selection.FormulaR1C1 = "=" p> ActiveCell.FormulaR1C1 = "= SUM (RC [-7]: RC [-2])"
Range ("C116"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("C117"). Select
ActiveWindow.SmallScroll Down: = 9
Range ("C117"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("C118"). Select
ActiveWindow.SmallScroll Down: = 6
ActiveCell.FormulaR1C1 = _ p>
Range ("C119"). Select
ActiveWindow.SmallScroll Down: = 6
Range ("C118"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("C119"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("F116"). Select
ActiveCell.FormulaR1C1 = "= SQRT (R [2] C [-3]-RC [-3] ^ 2)"
Range ("F117"). Select
ActiveCell.FormulaR1C1 = "= Коен (R [2] C [-3]-RC [-3] ^ 2)"
Range ("F117"). Select
Columns ("F: F"). ColumnWidth = 11
Columns ("F: F"). ColumnWidth = 10.14
ActiveCell.FormulaR1C1 = "= SQRT (R [2] C [-3]-RC [-3] ^ 2)"
Range ("F118"). Select
ActiveCell.FormulaR1C1 = "= R [-5] C [4]"
Range ("F119"). Select
ActiveCell.FormulaR1C1 = _ p> "= (R [-1] CR [-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 = _ p> "= 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 = _ p> "= (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
