Самоучитель VBA


         

Ранее при описании модуль1 были



End Sub

Ранее при описании модуль1 были указаны переменные уровня проекта, теперь рассмотрим несколько его процедур.



































Модуль

Модуль1



  • Процедура UserForm1_Initialize инициализирует диалоговое окно Регистрация туристов фирмы "С нами не соскучишься". Также при помощи вызова процедуры заголовок-листа в ней создаются заголовки полей базы данньгх на рабочем листе, в случае их отсутствия.

  • Процедура UserForm3_Initialize активизирует диалоговое окно Поиск.

  • Процедура userForm4_Initialize активизирует диалоговое окно Фильтрация.

  • Процедура сортировка упорядочивает данные по двум критериям: первоначальный критерий направление тура, второстепенный — оплата

  • Процедура Своднаятаблица создает рабочий лист Сводная-таблица со сводной таблицей (рис. У10.7). Столбцы сводной таблицы основаны на поле оплачено; строки — на поле направление тура, а результаты сводной таблицы подводятся суммированием по полю Продолжительность базы данных. На основе сводной таблицы строится диаграмма. При этом используется свойство TableRangel объекта PivotTable,

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

  • Процедура сохранитьКак активизирует встроенное диалоговое окно Сохранение документа.

    Процедура закрыть закрывает приложение.





Рис. У10.7. Рабочий лист СводнаяТаблица

Public Sub UserForml_Initialize()

'

' Процедура активизации диалогового окна Регистрация туристов

' и задание элементов раскрывающегося списка

'

'

' Проверка наличия заголовка базы данных.

' Построение заголовка базы данных в случае его отсутствия

If Sheets("БазаДанных").Range("Al").Value <> "Фамилия" Then ЗаголовокЛиста

End If

'

' Задание элементов раскрывающегося списка

'

With UserForml

.CommandButtonl.Default = True

.CommandButton2.Cancel = True

.ComboBoxl.List = Array("Лондон", "Париж", "Берлин")

Содержание  Назад  Вперед