Курсовая работа: Статистический анализ деятельности предприятия

Selection.AutoFill Destination:=Range("C111:H111"), Type:=xlFillDefault

Range("C111:H111").Select

Range("C106").Select

ActiveCell.FormulaR1C1 = "=(R[-1]C-R118C11)/R116C11"

Range("C106").Select

Selection.AutoFill Destination:=Range("C106:H106"), Type:=xlFillDefault

Range("C106:H106").Select

Range("B107").Select

ActiveCell.FormulaR1C1 = "=(RC[-1]-R119C11)/R117C11"

Range("B107").Select

Selection.AutoFill Destination:=Range("B107:B111"), Type:=xlFillDefault

Range("B107:B111").Select

Range("I107").Select

ActiveCell.FormulaR1C1 = _

"=R[-1]C[-6]*RC[-6]+R[-1]C[-5]*RC[-5]+R[-1]C[-4]*RC[-4]+R[-1]C[-3]*RC[-3]+R[-1]C[-2]*RC[-2]+R[-1]C[-1]*R[-1]C[-1]"

Range("I107").Select

ActiveCell.FormulaR1C1 = _

"=R[-1]C[-6]*RC[-6]+R[-1]C[-5]*RC[-5]+R[-1]C[-4]*RC[-4]+R[-1]C[-3]*RC[-3]+R[-1]C[-2]*RC[-2]+R[-1]C[-1]*RC[-1]"

Range("I107").Select

ActiveCell.FormulaR1C1 = _

"=R106C3*RC[-6]+R106C4*RC[-5]+R106C5*RC[-4]+R106C6*RC[-3]+R106C7*RC[-2]+R106C8*RC[-1]"

Range("I107").Select

Selection.AutoFill Destination:=Range("I107:I111"), Type:=xlFillDefault

Range("I107:I111").Select

Range("B107").Select

ActiveCell.FormulaR1C1 = ""

Range("C112").Select

ActiveCell.FormulaR1C1 = ""

Range("B108").Select