Тайм-менеджмент для системных администраторов (Лимончелли) - страница 161
Пример таблицы показан на рис. 13.2.
Создание кнопки выполняется в несколько шагов.
Во-первых, для запоминания нужных действий используйте функцию записи макроса:
1. Запишите макрос: последовательно выберите команды меню Tools (Сервис) — > Macro (Макрос) — > Record New Macro (Начать запись).
2. Назовите макрос Save (Сохранить).
3. Сохраните таблицу как файл с символом табуляции в качестве разделителя на сетевом файловом сервере.
4. Сохраните файл в формате MS Excel Wolrkbook (Книга Mcrosoft Excel) (.xls) в своем каталоге.
Важно, чтобы последняя операция сохранения файла использовала самый мощный формат MS Excel Wolrkbook (Книга Mcrosoft Excel), потому что таким образом будет установлен формат сохранения по умолчанию. Если затем кто-то сохранит файл с помощью команды File (Файл) — > Save (Сохранить), то будет использован именно этот формат.
Рис. 13.2. Электронная таблица со списком событий
5. Щелкните по кнопке Stop (Остановить запись) на панели инструментов, появляющейся на экране в режиме записи макроса.
Теперь создайте кнопку и закрепите за ней макрос:
1. Выведите панель инструментов Forms (Формы): выберите команду View (Вид) — > Toolbars (Панель инструментов) — > Forms (Формы).
2. Щелкните по элементу Button (Кнопка) (выглядит как обычный прямоугольник).
3. Нарисуйте кнопку в том месте, где она должна находиться в таблице.
4. В ответ на вопрос выберите макрос, который только что создали.
5. Если вам впоследствии понадобится отредактировать кнопку, щелкните по ней при нажатой клавише Ctrl.
Протестируйте макрос, щелкнув по кнопке. Отлично! Все работает! Проверьте дату и время сохранения файлов, чтобы убедиться, что таблица была сохранена дважды. (Возможно, Excel дважды спросит вас, нужно ли замещать существующий файл. Ответьте «Да».)
Если вы хотите немного подправить макрос, это просто. Первое, что я сделал, — отредактировал макрос как раз в том месте, где выполняется сохранение файла:
1. Выберите команду Tools (Сервис) — > Macro (Макрос) — > Macros (Макросы).
2. Выберите макрос в списке открывшегося окна и щелкните по кнопке Edit (Изменить). Откроется редактор Visual Basic.
3. Закончив редактирование, сохраните файл и закройте редактор Visual Basic.
♥ В макросах Microsoft для переноса длинных строк используется символ подчеркивания (_).
Окончательный макрос выглядит так:
>Sub Save()
>' Macro recorded 5/22/2005 су Thomas Limoncelli
>ActiveWorkbook.SaveAs Filename:= _
>"Y: \calendar\EventList.txt", FileFormat:= _
>xlText, CreateBackup:= False
>ActiveWorkbook.SaveAs Filenames _
>"Y: \calerdar\EventList.xls", FileFormat:= _