Методы автоматизации при работе в MS Excel. Синявская Г.А. - 54 стр.

тировка / Выбрать поле Наименование. Все эти действия необходимо пред-
ставить в виде программного кода. Самый простой вариант – записать макрос.
Для этого, находясь в листе Выбор, запустите макрос: Сервис / Макрос / На-
чать запись. В открывшемся окне можно задать свои параметры для макроса, а
можно оставить все как есть и нажать кнопку ОК. Обратите внимание на поя-
вившуюся панель инструментов Остановить запись (рис. 26). Пока вы не на-
жмете на кнопку с синим квадратиком, все ваши действия будут фиксироваться
и кодироваться в специальной программе, называемой макросом. Не нажмите
по ошибке на кнопку Закрыть ( на крестик). Эта кнопка не остановит запись
макроса, а только закроет панель инструментов, и вам придется останавливать
макрос через меню. Если панель Остановить запись не появилась, то прекра-
тить запись макроса можно через меню: Сервис / Макрос / Остановить за-
пись.
      После того как запись макроса запущена, движения должны быть четки-
ми и безошибочными:
      4 щелкнем по ярлыку листа Товары;
      4 щелкаем по любой ячейке в области данных, например по ячейке В3;
      4 в меню Данные / Сортировка в поле Сортировать по следует вы-
         брать Наименование материала и отметить переключатель По воз-
         растанию и ОК;
      4 теперь надо перейти на лист Выбор, щелкнув по его ярлыку;
      4 нажать кнопку Остановить запись.
      Если при записи макроса вам придется двигаться с помощью полосы про-
крутки, эти действия также запишутся в макросе. Избегайте лишних действий!
      Теперь надо скопировать программный код из макроса в процедуру обра-
ботки события DblClick.
      По меню Сервис / Макрос / Макросы можно попасть в диалоговое окно
Макрос, в котором имеется список макросов, принадлежащих открытым кни-
гам. Щелкните мышкой по записанному вами макросу и нажмите кнопку Из-
менить. Записанный макрос будет иметь вид:

    Sub Макрос1()
    '
    ' Макрос1 Макрос
    ' Макрос записан 15.01.2004 (Автор)
    '
       Sheets("Товары").Select
       Range("B3").Select
       Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
          OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
       Sheets("Выбор").Select
    End Sub

     Код макроса надо скопировать в процедуру Private Sub Spisok_DblClick.



                                        54