Разработка структуры рабочей книги

Рабочая книга приложения будет состоять из трех листов: главного листа, служебного и листа, содержащего информацию о работниках станции. На главном листе будет размещена основная для пользователя информация, элементы управления и команды, обеспечивающие основные функции приложения. Второй лист будет содержать справочную и служебную информацию, он будет скрыт от пользователя. На третьем листе поместим информацию о персонале, он также будет скрыт от пользователя, доступ к нему будет организован только через экранную форму.

Подготовим главный лист приложения, поместив таблицу, диаграмму, командные кнопки для продажи топлива. Таблица будет содержать текущие цены на топливо, диаграмма будет отобрать состояние резервуаров.

Добавим таблицу цен на топливо, как показано ниже. Диапазону цен из четырех ячеек присвоим имя rgFuelPrice, что упростит обращение к этим данным.

Тип топлива	Цена за литр
Аи-76	10,00р.
Аи-92	14,00р.
Аи-95	16,00р.
ДТ	12,00р.

На второй лист книги поместим таблицу «Резервуары», содержащую информацию о состоянии резервуаров, и построим на ее базе диаграмму, которую разместим на первом листе.

Тип топлива	Вместимость (л)	Заполнено (л)
Аи-76	20000	14982
Аи-92	20000	16139
Аи-95	20000	14900
ДТ	20000	6000

Также на второй лист поместим небольшой справочник, данные которого будут использованы при работе экранных форм.

Должности

Кассир

Оператор

Техник

Также разместим на главном рабочем листе 8 командных кнопок для продажи топлива на соответствующей колонке. Для этого необходимо отобразить панель «Элементы управления» и нажать на ней кнопку «Режим конструктора». Затем разместить необходимые элементы управления. Первый лист рабочей книги примет вид показанный ниже.

Рис. ХХ. Размещение объектов на главном листе приложения

На третьем листе книги поместим информацию о персонале автозаправочной станции в следующей таблице.

Фамилия	Имя	Отчество	Пол	Дата рождения	Должность	Разряд
Иванов	Сидор	Петрович	Мужской	03.12.1980	Кассир	1
Петров	Иван	Сидорович	Мужской	04.12.1980	Кассир	2

Мы разработали структуру рабочей книги, подготовив все необходимое для следующих этапов разработки нашего приложения.

Настройка пользовательского интерфейса

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

Скроем видимые панели инструментов, обратившись к свойству Enabled панелей инструментов. При установке данного свойства в значение False панель скрывается с экрана и удаляется из списка панелей, которые пользователь может отобразить при выполнении команды «Настройка…». В приведенном ниже коде скрываются все панели приложения. Данный способ эффективнее, чем обращение к свойству Visible панели инструментов, т.к. при завершении работы приложения при установке Enabled в True будут восстановлены именно те панели, которые были видны при запуске программы.

Dim cb As CommandBar

For Each cb In Application.CommandBars

cb.Enabled = False

Next cb

Далее удалим стандартные элементы интерфейса Excel. Основные объекты, к которым мы обращаемся, объект Application, представляющий приложение в целом, и объект ActiveWindow, который соответствует окну рабочей книги. Данный код лучше оформить в виде отдельной процедуры, получающей в качестве параметра логическое значение – отобразить или убрать соответствующие элементы управления.

With Application

.DisplayFormulaBar = False

.DisplayScrollBars = False

.DisplayStatusBar = False

.Caption = "АРМ"

With .ActiveWindow

.DisplayGridlines = False

.DisplayWorkbookTabs = False

.DisplayHeadings = False

.DisplayHorizontalScrollBar = False

.DisplayVerticalScrollBar = False

.Caption = "Управление АЗС"

End With

End With

Добавим панель инструментов и разместим необходимые команды. Ниже представлен внешний вид панели инструментов и программный код, создающий данную панель.

Рис. ХХ. Панель инструментов приложения

Set cmdbar = Application.CommandBars.Add("Management", msoBarTop)

Application.CommandBars.DisableCustomize = True

Dim but As CommandBarButton

With cmdbar

.Protection = msoBarNoCustomize

Set but = .Controls.Add(msoControlButton)

but.OnAction = "Getgaz"

but.Style = msoButtonCaption

but.Caption = "Получить бензин"

Set but = .Controls.Add(msoControlButton)

but.OnAction = "Sellgaz"

but.Style = msoButtonCaption

but.Caption = "Продать бензин"

Set but = .Controls.Add(msoControlButton)

but.OnAction = "Changeprice"

but.Style = msoButtonCaption

but.Caption = "Сменить цены"

…

End With

Первоначально к коллекции CommandBars мы добавляем новый элемент – новую панель инструментов. Коллекция Controls добавленной панели инструментов содержит все элементы управления, расположенные на данной панели. Таким образом, для добавления новых кнопок необходимо добавить к данной коллекции новый элемент. Кроме обыкновенных кнопок на панели инструментов могут находиться более сложные элементы управления (см таблицу).

Значение Type	Возвращаемый класс объекта
msoControlButton (командная кнопка)	CommandBarButton
msoControlEdit (поле редактирования)	CommandBarComboBox
msoControlDropdown (выпадающий список)	CommandBarComboBox
msoControlComboBox (комбинированный список)	CommandBarComboBox
msoControlPopup (контекстное меню)	CommandBarPopup

Действия, выполняемые командой, должны быть запрограммированы в виде процедуры. Для передачи информации в исполняемый макрос можно использовать параметр Parameter, задаваемый при создании элемента или, что удобнее, свойство Parameter. Свойство OnAction, которым обладают все элементы панели, позволяет связать элемент с исполняемым макросом. Формально свойство является строкой, задающей имя макроса, который и будет вызываться в ответ на выбор пользователя.

Описанные выше блоки кода необходимо поместить в обработчик события Workbook_Open, т.е. на открытие рабочей книги. Интерфейс Excel будет заменяться каждый раз при открытии рабочей книги. Очевидно, что при закрытии книги (событие Workbook_BeforeClose) необходимо выполнить обратные действия – восстановить исходный интерфейс. Приложение должно руководствоваться принципом: «Меня здесь не было», т.е. полностью восстановить все параметры, которые оно изменило. Иначе, у пользователя использующего наше приложение и незнающего VBA могут возникнуть значительные проблемы, например, при исчезновении главного меню программы.