Статистический анализ деятельности предприятия (стр. 4 из 4)

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 = "="

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

ActiveWindow.SmallScroll Down:=9

Range("C107").Select

Selection.AutoFill Destination:=Range("C107:H107"), Type:=xlFillDefault

Range("C107:H107").Select

Range("C108").Select

ActiveCell.FormulaR1C1 = "=R[-91]C[2]"

Range("C108").Select

Selection.AutoFill Destination:=Range("C108:H108"), Type:=xlFillDefault

Range("C108:H108").Select

Range("C109").Select

ActiveCell.FormulaR1C1 = "=R[-91]C[2]"

Range("C110").Select

ActiveWindow.SmallScroll Down:=6

Range("C109").Select

Selection.AutoFill Destination:=Range("C109:H109"), Type:=xlFillDefault

Range("C109:H109").Select

Range("C110").Select

ActiveCell.FormulaR1C1 = "=R[-91]C[2]"

Range("C111").Select

ActiveWindow.SmallScroll Down:=9

Range("C110").Select

Selection.AutoFill Destination:=Range("C110:H110"), Type:=xlFillDefault

Range("C110:H110").Select

Range("C111").Select

ActiveCell.FormulaR1C1 = "=R[-91]C[2]"

Range("C112").Select

ActiveWindow.SmallScroll Down:=6

Range("C111").Select

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

Selection.Copy

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])"

Range("C116").Select

ActiveCell.FormulaR1C1 = _

"=(R[-2]C*R[-10]C+R[-2]C[1]*R[-10]C[1]+R[-2]C[2]*R[-10]C[2]+R[-2]C[3]*R[-10]C[3]+R[-2]C[4]*R[-10]C[4]+R[-2]C[5]*R[-10]C[5])/R[-67]C[1]"

Range("C117").Select

ActiveWindow.SmallScroll Down:=9

Range("C117").Select

ActiveCell.FormulaR1C1 = _

"=(R[-10]C[8]*R[-10]C[-1]+R[-9]C[8]*R[-9]C[-1]+R[-8]C[8]*R[-8]C[-1]+R[-7]C[8]*R[-7]C[-1]+R[-6]C[8]*R[-6]C[-1])/R[-68]C[1]"

Range("C118").Select

ActiveWindow.SmallScroll Down:=6

ActiveCell.FormulaR1C1 = _

"=(R[-4]C*R106C3+R[-4]C[1]*R106C4+R[-4]C[2]*R106C5+R[-4]C[3]*R106C6+R[-4]C[4]*R106C7+R[-4]C[5]*R106C8)/R[-69]C[1]"

Range("C119").Select

ActiveWindow.SmallScroll Down:=6

Range("C118").Select

ActiveCell.FormulaR1C1 = _

"=(R[-4]C*R106C3^2+R[-4]C[1]*R106C4^2+R[-4]C[2]*R106C5^2+R[-4]C[3]*R106C6^2+R[-4]C[4]*R106C7^2+R[-4]C[5]*R106C8^2)/R[-69]C[1]"

Range("C119").Select

ActiveCell.FormulaR1C1 = _

"=(R[-12]C[8]*R[-12]C[-1]^2+R[-11]C[8]*R[-11]C[-1]^2+R[-10]C[8]*R[-10]C[-1]^2+R[-9]C[8]*R[-9]C[-1]^2+R[-8]C[8]*R[-8]C[-1]^2)/R[-70]C[1]"

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 = _

"=(R[-1]C-R[-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 = _

"=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 = _

"=(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

Columns("J:J").ColumnWidth = 8.43

ActiveCell.FormulaR1C1 = _

"=(R[-7]C[-4]*SQRT(R[-77]C[-6]-2))/коернь(1-(R[-7]C[-4]^2))"

Range("J126").Select

ActiveCell.FormulaR1C1 = _

"=(R[-7]C[-4]*SQRT(R[-77]C[-6]-2))/SQRT(1-(R[-7]C[-4]^2))"

Range("H124").Select

ActiveCell.FormulaR1C1 = _

"=IF(R[2]C[2]>R[2]C[-1],""Связи между случайными величинами нет (нулевая гипотеза отвергается)"",""Связь между случайными величинами есть (нулевая гипотеза подтверждается)"")"

Range("H125").Select

End Sub

ПриложениеЕ

(обязательное)

Описание макроса задание №7

Sub Задание7()

Range("B141").Select

ActiveCell.FormulaR1C1 = _

"=R[-13]C[6]*(R[-85]C[9]/R[-84]C[9])*(R[1]C-R[-88]C[9])+R[-89]C[9]"

Range("D141").Select

ActiveCell.FormulaR1C1 = _

"=R128C8*(R57C11/R56C11)*(R[1]C-R52C11)+R53C11"

Range("C144").Select

ActiveCell.FormulaR1C1 = "=R128C8*(R57C11/R56C11)*(R[1]C-R52C11)+R53C11"

Range("C144").Select

Selection.AutoFill Destination:=Range("C144:D144"), Type:=xlFillDefault

Range("C144:D144").Select

Range("C147").Select

ActiveCell.FormulaR1C1 = "=R128C8*(R56C11/R57C11)*(R[1]C-R53C11)+R52C11"

Range("C147").Select

Selection.AutoFill Destination:=Range("C147:D147"), Type:=xlFillDefault

Range("C147:D147").Select

Range("C144").Select

End Sub

Приложение Ж

(обязательное)

Описание макроса задание №8

Sub Задание8()

Range("D157").Select

ActiveCell.FormulaR1C1 = _

"=R[-29]C[4]*(R[-100]C[7]/R[-101]C[7])*(R[1]C-R[-105]C[7])-R[-104]C[7]"

Range("D157").Select

ActiveCell.FormulaR1C1 = _

"=R[-29]C[4]*(R[-100]C[7]/R[-101]C[7])*(R[1]C-R[-105]C[7])+R[-104]C[7]"

Range("D158").Select

End Sub

ПриложениеЗ

(обязательное)

Описание макроса задание №9

Sub Задание9()

ActiveWindow.SmallScroll Down:=6

Range("C170").Select

ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-3]C)/R[-2]C"

Range("C171").Select

ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-4]C)/R[-3]C"

Range("C172").Select

ActiveWindow.SmallScroll Down:=3

Range("C178").Select

ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-3]C)/R[-2]C"

Range("C179").Select

ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-4]C)/R[-3]C"

Range("L170").Select

ActiveCell.FormulaR1C1 = "=(R[-2]C[-3]-R[-2]C[-1])*100"

Range("L178").Select

ActiveCell.FormulaR1C1 = "=(R[-2]C[-3]-R[-2]C[-1])*100"

Range("L179").Select

Range("E170").Select

ActiveCell.FormulaR1C1 = "=R[-2]C[-2]*6"

Range("E178").Select

ActiveCell.FormulaR1C1 = "=R[-2]C[-2]*6"

Range("E179").Select

End Sub