РЮАКХЖЮ Public Sub UserForml_Initialize() '
' Процедура активизации диалогового окна Регистрация туристов
' и задание элементов раскрывающегося списка
'
'
' Проверка наличия заголовка базы данных.
' Построение заголовка базы данных в случае его отсутствия
If Sheets("БазаДанных").Range("Al").Value <> "Фамилия" Then ЗаголовокЛиста
End If
'
' Задание элементов раскрывающегося списка
'
With UserForml
.CommandButtonl.Default = True
.CommandButton2.Cancel = True
.ComboBoxl.List = Array("Лондон", "Париж", "Берлин")
.ComboBoxl.Listlndex = 0
.OptionButtonl.Value = True
.SpinButtonl.Value = 1
.CheckBoxl.Value = False
.CheckBox2.Value = False
.CheckBox3.Value = False
End With
'
' Активизация диалогового окна
'
UserForml.Show
'
End Sub
Public Sub ЗаголовокЛиста()
With Sheets("БазаДанных")
.Range("Al").Value = "Фамилия"
.Range("Bl").Value = "Имя"
.Range("Cl").Value = "Пол"
.Range("Dl").Value = "Направление тура"
.Range("El").Value = "Оплачено"
.Range("Fl").Value = "Фото сданы"
.Range("Gl").Value = "Паспорт сдан"
.Range("HI").Value = "Продолжительность"
.Range("A:A").ColumnWidth = 9.43
.Range ("B:C") .ColuimWidth = 8.43
.Range("D:D").ColumnWidth = 13.43
.Range'("E:E") .ColumnWidth = 10.14
.Range("F:F").ColumnWidth = 9
.Range("G:G").ColumnWidth = 8.43
.Range("H:H").ColumnWidth = 19.14
End With
'
Sheets("БазаДанных").Rows("1:1")
.Select With Selection
.Font.Bold = True
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True With .Interior
.Colorlndex = 36
.Pattern = xlSolid
End With
End With
Sheets("БазаДанных").Rows("2:2")
.Select ActiveWindow.FreezePanes = True
End Sub
'
Public Sub Запись ()
ActiveWorkbook.Save
End Sub '
Private Sub UserForm3_Initialize()
'
' Процедура активизации диалогового окна Поиск
'
UserFormS.Show End Sub
Private Sub Автофильтр()
' Процедура вызова команды Автофильтр
'
Sheets("БазаДанных").Range("A1:H1").Select Selection.AutoFilter
End Sub
Private Sub UserForm4_Initialize()
'
' Процедура активизации диалогового окна фильтрации
'
With UserForm4
.OptionButtonl.Value = True
.Show End With End Sub
'
Private Sub Сортировка()
'
' Процедура сортировки данных
' Первоначальный критерий сортировки - направление тура,
' второстепенный - произведение оплаты
Dim n Аs Integer '
' n - вспомогательная переменная '
Sheets("БазаДанных").Range("A2").Select
n = Selection. CurrentRegion. Rows. Count '
' Определение числа записей в базе данных
'
Worksheets("БазаДанных").Range(Cells(2, 1),
Cells(n + 1, 8))
.Sort keyl—Worksheets("БазаДанных")
.Range("D2"), orderl:=xlAscending,
key2:=Worksheets("БазаДанных").Range("E2")," _
order2:=xlDescending
'
' Сортировка по турам в возрастающем,
' а по оплате - в убывающем порядке
'
End Sub
Private Sub Сводная