179315 (628172), страница 3
Текст из файла (страница 3)
ActiveCell.FormulaR1C1 = "=R[-11]C[8]/R[-1]C[8]"
Range("C52").Select
ActiveCell.FormulaR1C1 = "=R[-12]C[9]/R[-2]C[8]"
Range("C53").Select
ActiveCell.FormulaR1C1 = "=R[-13]C[10]/R[-3]C[8]"
Range("C54").Select
ActiveCell.FormulaR1C1 = "=R[-14]C[11]/R[-4]C[8]"
Range("F49").Select
ActiveCell.FormulaR1C1 = "=R[-9]C[-4]/R[1]C[5]"
Range("F50").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[-3]/RC[5]"
Range("F51").Select
ActiveCell.FormulaR1C1 = "=R[-11]C[-2]/R[-1]C[5]"
Range("F52").Select
ActiveCell.FormulaR1C1 = "=R[-12]C[-1]/R[-2]C[5]"
Range("F53").Select
ActiveCell.FormulaR1C1 = "=R[-13]C/R[-3]C[5]"
Range("K52").Select
ActiveCell.FormulaR1C1 = _
"=(R[-12]C[-2]*R[-13]C[-2]+R[-12]C[-1]*R[-13]C[-1]+R[-12]C*R[-13]C+R[-12]C[1]*R[-13]C[1]+R[-12]C[2]*R[-13]C[2]+R[-12]C[3]*R[-13]C[3])/R[-3]C"
Range("K53").Select
ActiveCell.FormulaR1C1 = _
"=(R[-13]C[-9]*R[-14]C[-9]+R[-13]C[-8]*R[-14]C[-8]+R[-13]C[-7]*R[-14]C[-7]+R[-13]C[-6]*R[-14]C[-6]+R[-13]C[-5]*R[-14]C[-5])/R[-4]C"
Range("K54").Select
ActiveCell.FormulaR1C1 = _
"=(R[-14]C[-2]*R[-15]C[-2]^2+R[-14]C[-1]*R[-15]C[-1]^2+R[-14]C*R[-15]C^2+R[-14]C[1]*R[-15]C[1]^2+R[-14]C[2]*R[-15]C[2]^2+R[-14]C[3]*R[-15]C[3]^2)/R[-5]C"
Range("K54").Select
ActiveCell.FormulaR1C1 = _
"=(R[-14]C[-2]*R[-15]C[-2]^2+R[-14]C[-1]*R[-15]C[-1]^2+R[-14]C*R[-15]C^2+R[-14]C[1]*R[-15]C[1]^2+R[-14]C[2]*R[-15]C[2]^2+R[-14]C[3]*R[-15]C[3]^2)/R[-5]C-R[-2]C^2"
Range("K55").Select
ActiveCell.FormulaR1C1 = _
"=(R[-15]C[-9]*R[-16]C[-9]^2+R[-15]C[-8]*R[-16]C[-8]^2+R[-15]C[-7]*R[-16]C[-7]^2+R[-15]C[-6]*R[-16]C[-6]^2+R[-15]C[-5]*R[-16]C[-5]^2)/R[-6]C-R[-2]C^2"
Range("K55").Select
ActiveCell.FormulaR1C1 = _
"=(R[-15]C[-9]*R[-16]C[-9]^2+R[-15]C[-8]*R[-16]C[-8]^2+R[-15]C[-7]*R[-16]C[-7]^2+R[-15]C[-6]*R[-16]C[-6]^2+R[-15]C[-5]*R[-16]C[-5]^2)/R[-6]C-R[-2]C^2"
Range("K55").Select
ActiveCell.FormulaR1C1 = _
"=(R[-15]C[-9]*R[-16]C[-9]^2+R[-15]C[-8]*R[-16]C[-8]^2+R[-15]C[-7]*R[-16]C[-7]^2+R[-15]C[-6]*R[-16]C[-6]^2+R[-15]C[-5]*R[-16]C[-5]^2)/R[-6]C-R[-2]C^2"
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]"
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 = _
"=IF(R[4]C[-4] Range("C103").Select ActiveCell.FormulaR1C1 = _ "=(R[-7]C[2]-R[-7]C[3])^2/R[-7]C[3]+(R[-6]C[2]-R[-6]C[3])^2/R[-6]C[3]+(R[-5]C[2]-R[-5]C[3])^2/R[-5]C[3]+(R[-4]C[2]-R[-4]C[3])^2/R[-4]C[3]+(R[-3]C[2]-R[-3]C[3])^2/R[-3]C[3]" Range("C104").Select ActiveWindow.SmallScroll Down:=-6 End Sub (обязательное) 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 = "=" 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]C0.5,R[-1]C<0.7),""связь средняя"",""связь слабая""))" Range("F121").Select End Sub (обязательное) 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 (обязательное) 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 (обязательное) 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 (обязательное) 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
Приложение Г
Описание макроса задание №5
Приложение Д
Описание макроса задание №6
Приложение Е
Описание макроса задание №7
Приложение Ж
Описание макроса задание №8
Приложение З
Описание макроса задание №9
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
