Реферат: Работа в программе Excel

Range("F4").Select

Selection.Copy

Range("F6").Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = _

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

Range("B4").Select

ActiveCell.FormulaR1C1 = "1"

Range("B5").Select

ActiveCell.FormulaR1C1 = "3"

Range("B6").Select

ActiveCell.FormulaR1C1 = "-2"

Range("B6").Select

ActiveCell.FormulaR1C1 = "2"

Range("F4").Select

ActiveCell.FormulaR1C1 = _

"=(-R[1]C[-4]+SQRT(R[1]C[-4]^2-(4*RC[-4]*R[2]C[-4])))/(2*RC[-4])"

Range("F4").Select

Selection.Copy

Range("F6").Select

ActiveSheet.Paste

Range("F6").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = _

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

Range("F6").Select

ActiveCell.FormulaR1C1 = _

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