Офисное программирование

Private Sub CommandButton1_Click()

КоличествоСтрок =

Application.CountA(ActiveSheet.Columns(1))

'Количество записей в базе

Range(Cells(2, 1), Cells(КоличествоСтрок, 8)).Select

'выделение области сортировки

If ComboBox1.Value = «фамилии» Then

KeySort = «A2»

'ключ сортировки – поле с фамилией

Else

KeySort = «H2»

'ключ сортировки – поле со сроком поездки

End If

'Сортировка

If OptionButton1.Value Then

'по возрастанию

Selection.Sort Key1:=Range(KeySort), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Else

'по убыванию

Selection.Sort Key1:=Range(KeySort),

Order1:=xlDescending,Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End If

Range(«A2»).Select

'установка активной ячейки с первой фамилией

CommandButton2.Caption = «Закрыть»

'изменение названия второй кнопки

End Sub

Вторая кнопка закрывает форму и возвращает свое исходное имя.

Private Sub CommandButton2_Click()

CommandButton2.Caption = «Отмена»

UserForm2.Hide

End Sub

Для инициализации формы UserForm2 откройте Модуль1 и вставьте процедуру инициализации формы.

Public Sub UserForm2_Initialize()

' обратите внимание, что процедура глобальная!

UserForm2.ComboBox1.List = Array(«фамилии», «продолжительности тура»)

UserForm2.ComboBox1.ListIndex = 0

UserForm2.Show

End Sub

Рис. 114. Вывод данных на лист excel

Конструирование интерфейса. Презентация

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

1) установить новое название приложения «Туристы фирмы Балашов-Тур»;

2) закрыть строку формул;

3) убрать панели инструментов Стандартная и Форматирование;

4) дать новое имя листу с базой;

5) добавить новую панель инструментов с кнопкой «Сортировка».

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

Private Sub Workbook_Open()

Application.Caption = «Туристы фирмы Балашов-тур»

Application.DisplayFormulaBar = False

'Закрытие строки формул окна Excel

Application.CommandBars(«Standard»).Visible = False

Application.CommandBars(«Formatting»).Visible = False

Sheets(«База данных»).Select

With Application.CommandBars.Add(Name:="Рабочая панель инструментов",Position:=msoBarTop, MenuBar:=False, Temporary:=True)

Visible = True

With.Controls

'кнопка Сортировка

With.Add(Type:=msoControlButton, ID:=1)

Caption = «Сортировка»

TooltipText = «Сортировка»

Style = msoButtonCaption

OnAction = «Module1.UserForm2_Initialize»

'кнопка запускает UserForm2_Initialize

End With

End With

End With

UserForm1.Show

End Sub

Для возвращения внешнего вида приложения после закрытия базы следует обработать событие «Непосредственно перед закрытием».

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Caption = Empty

'Установка заголовка окна приложения по умолчанию

Application.CommandBars(«Standard»).Visible = True

Application.CommandBars(«Formatting»).Visible = True

End Sub