2015-05-13
558
Закрыть редактор Visual Basic
На листе Меню создать кнопку 
, назначить ей макрос ЗакрытьПриложение
Модуль Навигация примет вид:
Оформление листа Меню
Лист должен содержать информацию о названии приложения, его назначении, рисунок по теме приложения, информацию об разработчиках и т.п. Для вставки рисунка и фигурного текста использовать команды Вставка – Рисунок, Вставка – Рисунок – Объект WordArt.
Рисунок 4. Лист Меню
Рисунок 5. Листы с кнопками навигации
Автоматизация типовых операций на листе Данные протоколированием действий пользователя
Работа со списком данных включает такие средства обработки данных, как сортировка, фильтрация, формирование итогов и сводов. Существует два способа ввода данных в таблицу: ручной и с помощью экранной формы. Рассмотрим создание макроса для ввода данных с использованием формы.
Выполнить действия:
1. Сервис – Макрос – Начать запись…
2. В окне Запись макроса указать имя макроса Вызов_формы (убедиться, что в поле со списком «Сохранить в» выбрано значение - Эта книга);
|
|
|
3. Выполнить запись:
· Выделить ячейку B1 таблицы с данными;
· Выполнить команду меню Данные – Форма;
· В окне Данные щелкнуть по кнопке З акрыть
4. Завершить запись макроса, выполнив команду меню Сервис – Макрос – Остановить запись.
Чтобы посмотреть текст макроса, нужно выбрать команду Сервис - Макрос – Макросы… В диалоговом окне Макрос выбрать макрос Вызов_формы и щелкнуть по кнопке Войти. Откроется окно редактора Microsoft Visual Basic. Сравните текст макроса с тем, что записан у вас.
Если текст Вашего макроса соответствует рисунку, закройте окно VBA. Для запуска макроса создайте кнопку и назначить ей только что созданный макрос.
Рисунок 6. Лист Данные с кнопкой вызова экранной формы
Для упорядочивания данных в списке необходимо создать макрос сортировки списка. Сортировка может быть выполнена как по эмитентам, так и по виду ценных бумаг. Рассмотрим создание макроса для вложенной сортировки по названиям эмитентов (внутри каждого наименования выполняется сортировка по дате и виду ценной бумаги).
Выполнить действия:
1. Сервис – Макрос – Начать запись…
2. В окне Запись макроса указать имя макроса Сложная_Сортировка (убедиться, что в поле со списком «Сохранить в» выбрано значение - Эта книга);
3. Выполнить запись:
· Выделить ячейку B1;
· Выполнить команду меню Данные – Сортировка;
· В окне «Сортировка диапазона» задать условия сортировки как на рисунке, щелкнуть по кнопке ОК.
· выделить ячейку В1.
4. Завершить запись макроса, выполнив команду меню Сервис – Макрос – Остановить запись.
Текст макроса должен иметь вид:
|
|
|
Для вызова макроса создать кнопку 
и назначить ей макрос.
Автоматизация работы с автофильтром. Фильтрация списков необходима, когда нужно выбрать часть информации из списка в соответствии с некоторым простым условием. Чтобы использовать автофильтр, необходимо выделить заголовки столбцов, на которые накладываются условия отбора.
Создание макроса Автофильтр.
1. Сервис – Макрос – Начать запись…
2. В окне Запись макроса указать имя макроса Автофильтр;
3. Выполнить запись:
· Выделить заголовок таблицы с данными – B1:J1;
· Выполнить команду меню Данные – Фильтр - Автофильтр;
· выделить ячейку В1.
4. Завершить запись макроса, выполнив команду меню Сервис – Макрос – Остановить запись.
Код макроса Автофильтр должен иметь вид:
Sub Автофильтр()
'
'
Range("B1:J1").Select
Selection.AutoFilter
Range("B1").Select
End Sub
Запуск макроса будет происходить по активации элемента управления «Флажок» (см. страницу 9).
Для создания флажка следует выбрать соответствующую кнопку панели управления Формы и нарисовать контуры элемента на рабочем листе в столбце А. Изменить название «Флажок1» на «Автофильтр», пользуясь контекстным меню. Чтобы элемент управления работал, следует выполнить его форматирование. Для этого:
1. В контекстном меню выбрать команду Формат объекта.
2. В окне «Формат элемента управления» выбрать закладку «Элемент управления» и установить переключатель Значение в положение «снят», в поле «Связь с ячейкой» указать, например R2.
3. Перейти к закладке «Свойства» и установить переключатель Привязка объекта в положение «не перемещать и не изменять размеры».
В результате работы флажка в ячейке R2 будет отображаться значение «ИСТИНА», если флажок установлен, и «ЛОЖЬ» - если снят. Чтобы скрыть это, нужно шрифт текста ячейки R2 установить совпадающим с цветом фона столбца. Назначить флажку макрос «Автофильтр».
Для правильной работы макроса необходимо добавить к его тексту несколько операторов, для чего выполнить команду Сервис – Макрос – Макросы, выбрать макрос Автофильтр и нажать кнопку Изменить.
Добавляем операторы (они выделены рамкой):
