Материал: Контрольная работа по теме Базы данных в Excel 72 IV. Макросы в ms excel 78 Макросы для автоматизации работ 78

;

3. Главное меню должно обеспечивать доступ к следующим функциям системы:

– сведения о товарах;

– сведения о продажах;

– сведения о поставщиках;

– сведения о поставках;

– отчеты;

– выход.

4. При выборе соответствующего пункта меню система должна переходить на нужную форму (применительно к Excel произойдет переход на соответствующий лист), где реализованы необходимые операции.

5. На каждом листе должна находиться кнопка возврата к главному меню.

Спроектированная архитектура в виде схемы представлена на рис.5.2.


Рис. 5.2. Общая архитектура ИС

5.2.3. Создание ИС

5.2.3.1. Создание общей архитектуры

Работа по созданию ИС начинается с создания ее компонентов.

Основные методы использования возможностей Excel при разработке приложений описаны в [7].

Поэтому создадим новый документ Excel и, в соответствии с проектом, создадим эти компоненты. Очевидно, что исходя из возможностей Excel, запланированные компоненты будут находиться на отдельных листах.

По умолчанию в Excel уже имеются три листа.

Поэтому командой Вставка > Лист создаем нужное количество листов.

Переименуем листы в соответствии с проектом:

Лист1 –> Заставка

Лист2 –> Меню

Лист3 –> Товары

Лист4 –> Продажи

Лист5 – > Поставщики

Лист6 – > Поставки

Лист7 – > Отчеты
5.2.3.2. Организация переходов между объектами

Начнем с оформления заставки:

– переходим на лист «Заставка»;

– вызываем объект WordArt и оформляем его нужным образом (рис. 5.3).


Рис. 5.3. Пример оформления заставки
Естественно, что оформление заставки дело также очень творческое и здесь можно использовать все средства компьютерной графики.

Например:

– убрать сетку листа, заголовки строк и столбцов (командой Сервис > Параметры > Снять галочки с параметра «Сетка» и «Заголовки строк и столбцов»);

– командой Формат > Лист > Подложка

выбрать фоновый рисунок.

В функциональном плане от заставки требуется только вывести на экран название системы и по щелчку мыши перейти на лист меню.

При работе в Excel переход между листами обычно производится путем выбора ярлычков нужного листа.

Но наличие ярлычков характерно только для Excel. В прикладных же программах переходы осуществляются с использованием Windows или Web–интерфейса. Все эти возможности несложно реализовать и в Excel.

В данном случае переход к меню естественнее всего организовать с помощью гиперссылки.

Поэтому:

– выделяем надпись на титульном листе и выполним команды:

Вставка > Гиперссылка > Место в документе > Меню > Ok;

– проверьте действие гиперссылки. При щелчке по надписи система должна перейти на пока еще пустой лист «Меню».
По аналогичной технологии можно было бы сделать и главное меню системы на листе «Меню».

Однако для этой цели имеются и более профессиональные средства – это, прежде всего, макросы.

В общем случае макросы представляют собой встроенные в документ Excel программы на Visual Basic. Они применяются в тех случаях, когда встроенных средств Excel не достаточно. По назначению их можно весьма условно разделить на следующие группы:

1. Макросы, обеспечивающие автоматизацию операций по обеспечению работы в Excel;

2. Макросы вычислительного характера;

3. Макросы, обеспечивающие необходимый интерфейс для вычислений.

В настоящем разделе покажем использование макросов для создания интерфейса.

На рис.5.4 приведен вариант интерфейса, который мы хотим создать в нашей системе.


Рис. 5.4. Внешний вид главного меню ИС

5.2.3.3. Этапы создания интерфейсаСоздание макросов для кнопокСогласно плану проекта созданные кнопки должны обеспечить выполнение следующих команд – табл.5.5.Таблица 5.5.Назначение кнопок

N	Кнопка	Назначение
1	«Товары»	Переход на лист «Товары»
2	«Продажи»	Переход на лист «Продажи»
3	«Поставщики»	Переход на лист «Поставщики»
4	«Поставки»	Переход на лист «Поставки»
5	«Отчеты»	Переход на лист «Отчеты»
6	«Выход»	Выход из Excel
7	«Меню» на расчетных листах	Переход на лист «Меню»

Все макросы, выполняющие указанные команды, создаются практически одинаково. 1. Перейти на Лист1.2. Выполнить команды – Сервис > Макрос > Начать запись.3. На запрос о параметрах макроса необходимо только указать осмысленное имя макроса. Например, Товары и затем «Ok». При вводе имени макроса нельзя использовать пробелы.4. Система перейдет в режим записи макроса. Но в Excel, в отличие от Word, нет внешних признаков того, что система находится в режиме записи. Поэтому здесь необходимо очень аккуратно выполнить только необходимые команды и тут же остановить запись.5. Применительно к рассматриваемой задаче – щелкнуть по ярлычку «Товары» и затем Сервис > Макрос > Остановить запись.Точно также можно создать макросы перехода – «Продажи», «Расчет з/п», «Отчеты» и т.д.Но удобнее (и быстрее) остальные макросы создать следующим образом:

7. 
   После создания первого макроса («База данных») перейти в редактор Visual Basic – Сервис > Макрос > Макросы > Выбрать только что созданный > Изменить.
   
8. 
   Система перейдет в редактор Visual Basic, в котором мы увидим, как выглядит наш макрос в виде команд Бейсика. Если все было сделано правильно, то там должно быть примерно следующее:
   

Sub Товары()Sheets("Товары").SelectEnd Sub

9. 
   Для создания остальных макросов имеющийся текст макроса как в Word выделяется, копируется в буфер и путем вставки создается шесть его копий.
   
10. 
    Каждую копию следует исправить, создавая новые макросы. Например, первую копию исправить, так, чтобы она приняла следующий вид:
    

Sub Продажи()Sheets("Продажи").SelectEnd SubВторую копию:Sub Поставщики()Sheets("Поставщики").SelectEndSubТретью копию:Sub Поставки()Sheets("Поставки").SelectEndSubЧетвертую копию:Sub Отчеты()Sheets("Отчеты").SelectEnd Sub Пятую копию: Sub Меню() Sheets("Меню").Select End SubШестой макрос, обеспечивающий выход из системы должен содержать следующую команду:Sub Выход() Workbooks.CloseEnd SubЗапишем еще один макрос, который обеспечивает открытие книги с листа «Заставка». Для этого в редакторе Visual Basic в окне Project – VBAProject двойным щелчком выделить объект «Эта Книга», в открывшемся окне модуле объекта записать следующий макрос (рис. 5.5):Sub Workbook_Open()Sheets("Заставка").SelectEnd SubРис. 5.5. Вид окна Project – VBAProject

11. 
    Все необходимые макросы созданы.
    

Создание кнопок

5. 
   Вызывается панель инструментов с заготовками интерфейса – Вид > Панели инструментов > Формы.
   
6. 
   На появившейся панели выбрать элемент «Кнопка» и нарисовать ее в нужном месте экрана. На запрос о назначении макроса из списка выбрать «Товары». Надпись на кнопке «Кнопка 1» исправить на «Товары»
   
7. 
   Аналогично создаются все остальные кнопки главного меню.
   
8. 
   На остальных листах (пока еще пустых) создать кнопки возврата к главному меню (используется макрос «Меню»).
   

Оформление главного менюОформлять или не оформлять главное меню дело вкуса. Но если в этом есть необходимость, то:

6. 
   Вызвать панель рисования (Вид > Панели инструментов > Рисование), выбрать на ней объект «Прямоугольник» и накрыть им кнопки главного меню.
   
7. 
   Выделить нарисованный прямоугольник и на панели рисования выбрать Рисование > Порядок > На задний план. При этом скрытые прямоугольником кнопки выйдут на передний план.
   
8. 
   Не снимая выделения с прямоугольника залить его выбранным цветом и стилем.
   
9. 
   Убрать сетку таблицы – Сервис > Параметры > Снять отметку с параметра «Сетка».
   
10. 
    Выбрать подложку для фона – Формат > Лист > Подложка > Выбрать рисунок > Вставить. Рисунок можно выбрать из коллекции ClipArt.
    

Проверьте правильность переходов по созданной системе кнопок. 5.2.3.4. Организация работы с базой данных5.2.3.4.1. Заполнение таблиц модельными даннымиВ соответствии с проектом у нас должны быть следующие таблицы:

1. 
   Справочник по товарам
   
2. 
   Справочник по поставщикам
   
3. 
   Данные о продажах
   
4. 
   Данные о поставках
   

Первая, вторая относительно небольшие и содержат условно-постоянную информацию. В самом деле – не так уж и часто на рынке появляются новые товары и не так уж и часто меняются налаженные схемы поставок. Поэтому заполнять эти таблицы придется вручную (напрягая фантазию).Например, данные о товарах:

	A	B	C	D	E	F	G
1
2		Код товара	Наименование	Сорт	Оптовая цена	Наценка	Код поставщика
3		1	Лапти липовые	2	100	10%	1
4		2	Лапти дубовые	1	200	20%	1
5		3	Галоши	2	150	10%	2
6		4	Валенки	2	300	10%	3
7		5	Кепка a ’la Lenin	2	400	10%	4
8		6	Кепка a 'la Luzkov	1	500	20%	4