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


РЮАКХЖЮ"



рЮАКХЖЮ"

End With

'

' Вторая кнопка

'

With .Add(Type:=msoControlButton, Id:=3)

.TooltipText = "Сохранить"

.OnAction = "Модуль!.Запись"

End With

With .Add(Type:=msoControlButton, Id:=1175)

.TooltipText = "Сохранить как"

.OnAction = "Модуль1.СохранитьКак"

End With

End With

End With

With Application.CommandBars.Add(Name:="МоеМеню", MenuBar:=True, Temporary:=True)

.Visible = True

With .Controls

'

' Создание строки меню Файл

With .Add(Type:=msoControlPopup)

.Caption = "&Файл" With .Controls

With .Add(Type:=msoControlButton)

.Caption = "Сохранить"

.OnAction = "Модуль1.Запись"

End With

With .Add(Type:=msoControlButton)

.Caption = "Сохранить как"

.OnAction = "Модуль1.СохранитьКак"

End With

With .Add(Type:=msoControlButton)

.Caption = "Закрыть"

.OnAction = "Модуль1.Закрыть"

End With

End With

End With

End With

End With

End Sub

'

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)

'

' Процедура, отображающая панели инструментов Форматирование

' и Стандартная при закрытии приложения

' Кроме того, она устанавливает заголовок окна приложения, используемые

' по умолчанию

'

With Application

.CommandBars("Formatting").Visible = True

.CoiranandBars("Standard").Visible = True

.Caption = Empty

End With

End Sub

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

Модуль

Модуль1

  • Процедура UserForm1_Initialize инициализирует диалоговое окно Регистрация туристов фирмы "С нами не соскучишься". Также при помощи вызова процедуры заголовок-листа в ней создаются заголовки полей базы данньгх на рабочем листе, в случае их отсутствия.
  • Процедура UserForm3_Initialize активизирует диалоговое окно Поиск.
  • Процедура userForm4_Initialize активизирует диалоговое окно Фильтрация.
  • Процедура сортировка упорядочивает данные по двум критериям: первоначальный критерий направление тура, второстепенный — оплата
  • Процедура Своднаятаблица создает рабочий лист Сводная-таблица со сводной таблицей (Рисунок У10.7). Столбцы сводной таблицы основаны на поле оплачено; строки — на поле направление тура, а результаты сводной таблицы подводятся суммированием по полю Продолжительность базы данных. На основе сводной таблицы строится диаграмма. При этом используется свойство TableRangel объекта PivotTable,
    возвращающее диапазон с данными сводной таблицы, что позволяет избежать необходимости явного описания диапазона, по которому строится диаграмма.
  • Процедура сохранитьКак активизирует встроенное диалоговое окно Сохранение документа.
  • Процедура закрыть закрывает приложение.









Начало  Назад  Вперед