mulaR1C1 = _ p>
Range ("K55"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("K55"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("K55"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("K56"). Select
ActiveCell.FormulaR1C1 = "= SQRT (R [-2] C)"
Range ("K57"). Select
ActiveCell.FormulaR1C1 = "= SQRT (R [-2] C)"
Range ("K58"). Select
ActiveWindow.SmallScroll Down: = 6
ActiveCell.FormulaR1C1 = "= (R [-19] C + R [-19] C [1])/2"
Range ("K59"). Select
ActiveCell.FormulaR1C1 = "= R [-20] C [-7]"
Range ("K60"). Select
ActiveWindow.SmallScroll Down: = 6
ActiveCell.FormulaR1C1 = "= R [-21] C [3]-R [-21] C [-2]"
Range ("K61"). Select
ActiveWindow.SmallScroll Down: = 9
ActiveCell.FormulaR1C1 = "= R [-22] C [-5]-R [-22] C [-9]"
Range ("K62"). Select
ActiveWindow.SmallScroll Down: = 9
ActiveCell.FormulaR1C1 = "= R [-6] C/R [-10] C * 100"
Range ("K63"). Select
ActiveCell.FormulaR1C1 = "= R [-6] C/R [-10] C * 100"
Range ("K63"). Select
ActiveCell.FormulaR1C1 = "= R [-6] C/R [-10] C * 100"
Range ("K64"). Select
End Sub
Додаток Б
(обов'язковий)
В
Опис макросу завдання № 3
Sub Заданіе3 ()
'Range ("G80"). Select
ActiveCell.FormulaR1C1 = "= (R [1] C [-4] * R [-23] C [4])/(SQRT (R [-31] C [4]))"
Range ("G81"). Select
ActiveWindow.SmallScroll Down: = 6
ActiveCell.FormulaR1C1 = "= R [-1] C/2"
Range ("G83"). Select
ActiveCell.FormulaR1C1 = "= R [-30] C [4]-R [-3] C"
Range ("H83"). Select
ActiveCell.FormulaR1C1 = "= R [-30] C [3] + R [-2] C [-1]"
Range ("D85"). Select
ActiveCell.FormulaR1C1 = "= R [-4] C [-1] ^ 2 * R [-28] C [7] ^ 2/R [-4] C [3] ^ 2"
Range ("D86"). Select
End Sub
Додаток В
(обов'язковий)
В
Опис макросу завдання № 4
Sub Заданіе4 ()
Range ("B96"). Select
ActiveCell.FormulaR1C1 = "= R [-57] C"
Range ("B97"). Select
ActiveCell.FormulaR1C1 = "= R [-58] C [1]"
Range ("B98"). Select
ActiveCell.FormulaR1C1 = "= R [-59] C [2]"
Range ("B99"). Select
ActiveCell.FormulaR1C1 = "= R [-60] C [3]"
Range ("B100"). Select
ActiveCell.FormulaR1C1 = "= R [-61] C [4]"
Range ("E96"). Select
ActiveCell.FormulaR1C1 = "= R [-56] C [-3]"
Range ("E97"). Select
ActiveCell.FormulaR1C1 = "= R [-57] C [-2]"
Range ("E98"). Select
ActiveCell.FormulaR1C1 = "= R [-58] C [-1]"
Range ("E99"). Select
ActiveCell.FormulaR1C1 = "= R [-59] C"
Range ("E100"). Select
ActiveCell.FormulaR1C1 = "= R [-60] C [1]"
...
