Запуск записанных макросов на выполнение из приложения Excel
Запуск макросов на выполнение может осуществляться как из приложения Microsoft Visual Basic, так и из приложения Microsoft Excel. Из Excel выполнение макроса задается двумя способами:
используя комбинации назначенных клавиш при записи макроса [Ctrl+z] - печать лицевой стороны или [Ctrl+x], для печати обратной стороны командировочного удостоверения;
используя диалоговое окно Макрос.
Рис. 4.17. Диалоговое окно Макрос
Диалоговое окно Макрос (рис. 4.17.) вызывается командой Сервис/Макрос/Макросы или комбинацией клавиш [Alt+F8]. Для выполнения макроса выделите в списке имя макроса и нажмите кнопку Выполнить.
С помощью этого же диалогового окна можно войти в выделенный в списке макрос, для чего нажмите на кнопку Войти. Это позволит открыть приложение Microsoft Visual Basic и в выбранном макросе будет выделена первая строка с ключевым кодом начала подпрограммы и его именем. Этот режим называется режимом отладки.
Создание элемента управления Кнопка
Описанная выше последовательность действий пользователя для запуска макросов на выполнение не является самой оптимальной, требует выполнения нескольких действий или запоминания комбинации клавиш запуска макроса, и может вызвать ошибку в действиях пользователя. Для устранения этих недостатков внедрите на рабочем листе КомандировочноеУдостоверение элемент управления Кнопка, нажатие на которую будет активизировать выполнение макроса, назначенного этой кнопке.
Создание кнопки осуществляется аналогично созданию элементов Счетчик и Список, описанных выше. Для этого, вызвав панель Формы (рис. 4.6.), создайте элемент управления Кнопка, по завершению создания которой, появится диалоговое окно Назначить макрос объекту (рис. 4.18.).
Рис. 4.18. Диалоговое окно Назначить макрос объекту
Для назначения кнопке макроса выделите в диалоговом окне Назначить макрос объекту нужный макрос и нажмите кнопку ОК. Теперь нажатие на созданную кнопку (рис. 4.19.) вызовет выполнение назначенного ей макроса.
Рис. 4.19. Созданная конка управления макросом
Для того чтобы в дальнейшем не задумываться над тем, какие действия последуют за нажатием на кнопку, поместите указатель мыши на кнопку и щелкните правой кнопкой мыши, что вызовет появление контекстного меню, в котором выделите команду Изменить текст. На рис. 4.20. показаны созданные кнопки с измененным текстом для вывода на печать лицевой и обратной стороны командировочного удостоверения.
Рис. 4.20. Кнопки управления макросами для вывода документа на печать
На рис. 4.21. показан рабочий лист КомандировочноеУдостоверение со всеми встроенными элементами управления.
Рис. 4.21. Рабочий лист КомандировочноеУдостоверение с встроенными элементами управления
Вставка содержимого выбранной строки в конец списка
Вернемся на рабочий лист ЖурналРегистрацииКУ.
При разработке приложения считалось, что основной метод формирования новой строки с данными в журнале регистрации - копирование строки с имеющейся записью, последующий переход в конец списка, выделение первой пустой строки и вставка скопированного содержимого. Задумайтесь, сколько однотипных действий должен совершить пользователь для выполнения этой, казалось бы очень простой, операции.
Оставим за пользователем только выбор копируемой строки, а все остальное поручите выполнять Excel в автоматическом режиме при нажатии на созданную кнопку Копирование и вставка выделенной строки (рис. 4.1.), которой назначьте следующий записываемый макрос с именем ВставкаСтроки.
Для записи макроса выполните следующую последовательность действий:
перед записью макроса выделите выбранную строку, например, строку 9;
выполните процедуру начала записи макроса, после чего задайте команду копирования, например, нажатием на кнопку Копирование на стандартной панели инструментов. Содержимое строки 9 будет помещено в буфер обмена.;
в связи с тем, что процедура автоматического определения и выделения первой пустой строки списка еще не изучена, выделите самую последнюю строку списка. Согласно, заданным в начале главы, условиям - это строка 200. Но чтобы добраться до нее, нужно выполнить ряд действий, например, перемещений на несколько экранов монитора вниз. Не затрудняйте себя, а выделите, например, строку 14 и произведите вставку из буфера обмена, например, нажатием на кнопку Вставка на стандартной панели инструментов;
выделите строки от строки вставки (14) до первой строки после заголовка списка (4) и нажмите на кнопку Сортировка по возрастанию на стандартной панели управления. По умолчанию Excel произведет сортировку по данным столбца А. Список расположится в порядке возрастания порядковых номеров и содержимое скопированной строки 9 будет находиться в конце списка;
остановите запись макроса.
Назначьте макрос кнопке и выделив одну из заполненных строк списка журнала регистрации, нажатием на созданную кнопку, проверьте правильность выполнения заданной последовательности ваших действий.