2.2 Организация работы с базой данных

Первый лист «Минтранс». На этом листе находится информация о Министерстве транспорта: ФИО министра и его подчиненных, наименование отделов, должностей, контактные телефоны.

Рис. 3. Интерфейс листа «Минтранс»

Далее, идет лист «Организация». На этом листе имеются данные об организации транспортного хозяйства города Чебоксары, его основных современных показателей:

Рис. 4. Интерфейс листа «Организация»

Следующий лист «Чебоксарский_транспорт». На нем указаны две таблицы со списком автобусных и троллейбусных маршрутов, включая: номер маршрута, наименование маршрута, количество автобусов и троллейбусов по расписанию, в часы-пик и после девяти вечера:

Рис. 5, 6. Интерфейсы листа «Чебоксарский_транспорт»

Далее идет лист «Проездные» с таблицей, включающей: код проездного, вид проездного, стоимость и примечания. Таблица представлена на рисунке 7:

Рис. 7. Интерфейс листа «Проездные»

На листе «Другое» находится таблица с данными о продаже проездных на октябрь 2009. Имеется функция «Сортировка», которая проводит сортировку по столбцам таблицы. Здесь следующие столбцы: дата продажи, код проездного, наименование, количество, цена, сумма. Колонки «Дата продажи», «Код проездного» и «Количество» оформляется случайным образом с помощью формул:

= 40087+ ЦЕЛОЕ(30 * СЛЧИС())

и

= 1+ ЦЕЛОЕ(6 *СЛЧИС())

В колонках «Наименование», «Цена» используется функция ВПР. Так в Е12 записывается формула:

=ВПР(D12;Справочник_товары;2)

Рис. 8. Интерфейс листа «Другое»

2.3 Организация работы с данными

Для операций по вводу, удалению и корректировке данных в Excel имеется встроенное средство – форма ввода данных.

Она вызывается из главного меню командой:

Данные > Форма.

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

Для «цивильного» вызова этой формы создана на листе кнопка с именем «Данные» и для нее создадили макрос следующего содержания:

Private Sub Работа_с_данными()

Range("C11").Select CommandBars.FindControl(ID:=860).Execute

ActiveWorkbook.Names("Данные_продаж").Delete

ActiveCell.CurrentRegion.Name = "Данные_продаж"

End Sub

При вводе или удалении данных размеры БД могут изменяться. По этой причине в макрос добавлены еще две команды:

- первая – удаляет имеющееся имя БД;

- вторая – определяет новый размер БД и присваивает ему только что удаленное имя

Сортировка является типовой операцией с базами данных. Рассмотрим, как была реализована сортировка на листе «Другое»:

Создание со списка полей

– на текущем листе за пределами главной таблицы напечатан список полей:

Рис. 9. Интерфейс списка поля

- вызывается панель форм, на ней выбирается элемент «Поле со списком»;

- в поле «Формировать список по диапазону» - местоположение списка полей;

- в поле «Связь с ячейкой» - ячейка, в которой был записан номер выбранного поля.

Sub Сортировка()

Dim k As Integer 'Объявляем переменную целого типа

Range("C11").Select 'Выделяем ячейку C11

k = Range("Q11") 'Определяем номер выбранного пункта

Range("Данные_продаж").Sort Key1:=Cells(12, k + 2), Header:=xlGuess

End Sub

Затем создадим соответствующие кнопки и им назначенные макросы.