Создание элемента управления Кнопка

• 1. Внедрите на рабочем листе Командировочное Удостоверение элемент управления Кнопка, нажатие на которую будет активизировать выполнение макроса, назначенного этой кнопке.
• 2. Создание кнопки осуществляется аналогично созданию элементов Счетчик и Список, описанных выше. Панель Формы —создайте элемент управления Кнопка, по завершению создания которой появится диалоговое окно Назначить макрос объекту.
• 3. Для назначения кнопке макроса выделите в диалоговом окне Назначить макрос объекту нужный макрос и нажмите кнопку ОК. Теперь нажатие на созданную кнопку вызовет выполнение назначенного ей макроса.
• 4. Поместите указатель мыши на кнопку и щелкните правой кнопкой мыши, что вызовет появление контекстного меню, в котором выделите команду Изменить текст

В результате должен получиться такой рабочий лист — см. рис. 20.

Рис. 20. Рабочий лист Командировочное Удостоверение с встроенными элементами управления

Вставка содержимого выбранной строки в конец списка.

• 1. Вернемся на рабочий лист Журнал Регистрации КУ.
• 2. Оставим за пользователем только выбор копируемой строки, а все остальное поручите выполнять Excel в автоматическом режиме при нажатии на созданную кнопку Копирование и вставка выделенной строки, которой назначьте следующий записываемый макрос с именем Вставка Строки. См. рис. 21.

Рис. 21. Копирование и вставка выделенной строки

• 3. Перед записью макроса выделите выбранную строку, например, строку 9.
• 4. Выполните процедуру Сервис—Макрос—Начать запись. После чего задайте команду копирования, например, нажатием на кнопку Копирование на стандартной панели инструментов. Содержимое строки 9 будет помещено в буфер обмена.
• 5. Выделите самую последнюю строку списка. Согласно, заданным условиям — это строка 14. И произведите вставку из буфера обмена, например, нажатием на кнопку Вставка на стандартной панели инструментов.
• 6. Выделите строки от строки вставки (14) до первой строки после заголовка списка (4) и нажмите на кнопку Сортировка по возрастанию на стандартной панели управления. Список расположится в порядке возрастания порядковых номеров и содержимое скопированной строки 9 будет находиться в конце списка.
• 7. Остановите запись макроса (Сервис—Макрос—Остановка записи).
• 8. Создайте элемент управления Кнопка и назначьте макрос кнопке (Панель Формы—элемент управления Кнопка, по завершению создания которой появится диалоговое окно Назначить макрос объекту — выделите в диалоговом окне Назначить макрос объекту нужный макрос—нажмите кнопку ОК).
• 9. Открыв Редактор Visual Basic просмотрите записанные действия и при необходимости отредактируйте код VBA (Сервис—Макрос—Редактор Visual Basic) — см. рис. 22.

Рис. 22. Отредактированный код VBA подпрограммы вставки в конец списка содержимого выделенной строки