2020-01-14
138
Sub Задание2()
Range("C49").Select
ActiveCell.FormulaR1C1 = "=R[-9]C[6]/R[1]C[8]"
Range("C50").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[7]/RC[8]"
Range("C51").Select
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]<R[4]C,""Нулевая гипотеза принимается (Y распределен по нормальному закону)"",""Нулевая гипотеза отвергается (Y не распределен по нормальному закону)"")"
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
Приложение Г
(обязательное)
