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

                                     -31-


                        Курс акций компании "Рога и Ко"

              2050

              2000

              1950
       Курс




              1900

              1850

              1800

              1750
                01.11.98 09.02.99 20.05.99 28.08.99 06.12.99 15.03.00
                                        Дата


      Рис. 11. Образец диаграммы "Динамика курса акций"
                для выполнения упражнения 4.8.
     В новой книге из чистого листа, сформируйте макрос, откры-
вающий книгу "Акции". Сохраните книгу с макросом под име-
нем "Макрос_акции". Отредактируйте его так, чтобы он загру-
жал в "Excel" книгу "Акции", если она еще не открыта, и в инте-
рактивном режиме позволял редактировать таблицу курса акций.
Листинг макроса:
   Sub Открытие_файла_Акции()
   '' Открытие_файла_Акции Макрос
   ' Макрос записан 12.12.99 (Иванов) Откры-
   тие_файла_Акции
   Loaded = "No"
        For Each wb In Workbooks
        If wb.Name = "Акции.xls" Then
        Loaded = "Yes"
        End If
        Next
        If Loaded = "Yes" Then
        Workbooks("Акции.xls").Activate
        Else