Range ("C96"). Select
ActiveCell.FormulaR1C1 = "= (RC [-1]-R53C11)/R57C11"
Range ("C97"). Select
ActiveWindow.SmallScroll Down: = 9
Range ("C96"). Select
Selection.AutoFill Destination: = Range ("C96: C100"), Type: = xlFillDefault
Range ("C96: C100"). Select
Range ("F96"). Select
ActiveCell.FormulaR1C1 = "= (R49C11 * R102C7/R57C11) * RC [-2]"
Range ("F96"). Select
Selection.AutoFill Destination: = Range ("F96: F100"), Type: = xlFillDefault
Range ("F96: F100"). Select
ActiveWindow.SmallScroll Down: = 3
Range ("G102"). Select
ActiveCell.FormulaR1C1 = "= RC [-3] -3"
Range ("G99: P99"). Select
ActiveCell.FormulaR1C1 = _ p> "= IF (R [4] C [-4]
Range ("C103"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("C104"). Select
ActiveWindow.SmallScroll Down: = -6
End Sub
Додаток Г
(обов'язковий)
В
Опис макросу завдання № 5
Sub Заданіе5 ()
Заданіе5 Макрос
Range ("C105"). Select
ActiveCell.FormulaR1C1 = "= R [-68] C [-1]"
Range ("C106"). Select
ActiveWindow.SmallScroll Down: = 6
Range ("C105"). Select
Selection.AutoFill Destination: = Range ("C105: H105"), Type: = xlFillDefault
Range ("C105: H105"). Select
ActiveWindow.SmallScroll Down: = 6
Range ("C114"). Select
ActiveCell.FormulaR1C1 = "= R [-76] C [-1]"
Range ("C114"). Select
Selection.AutoFill Destination: = Range ("C114: H114"), Type: = xlFillDefault
Range ("C114: H114"). Select
Range ("A107"). Select
ActiveCell.FormulaR1C1 = "= R [-70] C [9]"
Range ("A108"). Select
ActiveCell.FormulaR1C1 = "= R [-71] C [10]"
Range ("A109"). Select
ActiveCell.FormulaR1C1 = "= R [-72] C [11]"
Range ("A110"). Select
ActiveCell.FormulaR1C1 = "= R [-73] C [12]"
Range ("A111"). Select
ActiveCell.FormulaR1C1 = "= R [-74] C [13]"
Range ("K107"). Select
ActiveCell.FormulaR1C1 = "=" p> Range ("K107"). Select
ActiveCell.FormulaR1C1 = "= R [-69] C [-1]"
Range ("K108"). Select
ActiveCell.FormulaR1C1 = "= R [-70] C"
Range ("K109"). Select
ActiveCell.FormulaR1C1 = "= R [-71] C [1]"
Range ("K110"). Select
ActiveCell.FormulaR1C1 = "= R [-72] C [2]"
Range ("K111"). Select
ActiveCell.FormulaR1C1 = "= R [-73] C [3]"
Range ("K112"). Select
ActiveWindow.SmallScroll Down: = 9
Range ("C107"). Select
ActiveCell.FormulaR1C1 = "= R [-91] C [2]"
Range ("C108"). Select
<...
