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

Range("B107").Select

ActiveSheet.Paste

Range("B109").Select

Application.CutCopyMode = False

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

Range("C112").Select

ActiveCell.FormulaR1C1 = _

"=R107C2*R[-5]C+R108C2*R[-4]C+R109C2*R[-3]C+R110C2*R[-2]C+R111C2*R[-1]C"

Range("C113").Select

ActiveWindow.SmallScroll Down:=-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 = "="

ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"

Range("J113").Select

Selection.FormulaR1C1 = "="

ActiveCell.FormulaR1C1 = "=SUM(RC[-7]:RC[-2])"