Информатика: Применение электронных таблиц в инженерно-технических расчетах. Кузнецов В.В - 33 стр.

                    -32-

    Workbooks.Open
FileName:="C:\pere\PAPACLASS\Акции.xls"
    End If
    Range("A1").Select
    Selection.End(2).Select
    Selection.End(4).Select
    ActiveCell.Offset(1,
0).Range("A1").Select
    Do
    EnterCycle
    Response = MsgBox("Будем вводить еще кур-
сы?", vbYesNo, "Запрос")
    Loop While Response = vbYes
    ActiveWorkbook.Save
End Sub
    Sub EnterCycle()
    ActiveCell.FormulaR1C1 =
InputBox(prompt:="Введите курс DtBank")
    ActiveCell.Offset(0, -
1).Range("A1").Select
    ActiveCell.FormulaR1C1 =
InputBox(prompt:="Введите курс IBM")
    ActiveCell.Offset(0, -
1).Range("A1").Select
    ActiveCell.FormulaR1C1 =
InputBox(prompt:="Введите курс Daimler")
    ActiveCell.Offset(0, -
1).Range("A1").Select
    ActiveCell.FormulaR1C1 =
InputBox(prompt:="Введите курс Инко")
    ActiveCell.Offset(0, -
1).Range("A1").Select
    ActiveCell.FormulaR1C1 =
InputBox(prompt:="Введите курс Рога и Ко")
    ActiveCell.Offset(0, -
1).Range("A1").Select
    ActiveCell.Offset(1,
5).Range("A1").Select
    End Sub