If .СЬескВохЗ.Value = True Then Паспорт = "Да" Else Паспорт = "Нет" End If

ВыбранныйТур =

.ComboBoxl.List(.ComboBoxl.Listlndex, 0) End With .

Ввод данных в строку с номером НомерСтроки рабочего листа With Active Sheet

.Cells(НомерСтроки, 1).Value = Фамилия

.Cells(НомерСтроки, 2).Value = Имя

.Cells(НомерСтроки, 3).Value = Пол

.Cells(НомерСтроки, 4).Value = ВыбранныйТур

.Cells(НомерСтроки, 5).Value = Оплачено

.Cells(НомерСтроки, б).Value = Фото

.Cells(НомерСтроки, 7).Value = Паспорт

.Cells(НомерСтроки, 8).Value = Срок

End With

End Sub

Private Sub CorninandButton2 Click ()

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

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

UserForml.Hide

Application.Caption = Empty

ActiveSheet.DrawingObj ects.Delete

End Sub

Private Sub SpinButtonl Change()

Процедура ввода значения счетчика в поле ввода With UserForml

.TextBox3.Text = CStr(.SpinButtonl.Value) End With End Sub

Private Sub TextBox3 Change()

Процедура установки значения счетчика из поля ввода With UserForml

.SpinButtonl.Value = CIntf.TextBox3.Text) End With End Sub

Private Sub ToggleButtonl Click()

Процедура отображения или удаления поля с текстом If ToggleButtonl.Value = True Then ActiveSheet.DrawingObjects.Delete ActiveSheet.Shapes.AddTextbox

(msoTextOrientationHorizontal,11.25 ,

44.25, 106.5, 9б#).Select Selection.Characters.Text = "" With Selection.Font .Name = "Arial Cyr" .FontStyle = "обычный" .Size = 10

.Strikethrough = False

.Superscript = False .Subscript = False .OutlineFont = False .Shadow = False

•Underline = xlUnderlineStyleNone .Colorlndex = xlAutomatic End With

Selection.ShapeRange.Fill.ForeCoIor.SchemeColor = 13 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.Characters.Text = "Программа составлена" & Chr(lO) & "Владимиром для регистрации" & Chr(lO) & "клиентов" & Chr(lO) & "туристической" & Chr(lO) & "фирмы"

With Selection.Characters(Start:=1, Length:=Q6).Font Name = "Arial Cyr" .FontStyle = "обычный" .Size = -10

( .Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone .Colorlndex = xlAutomatic End With End If

If ToggleButtonl.Value = False Then ActiveSheet.DrawingObjects.Delete End If End Sub

Private Sub UserForml Initialize()

Процедура вызова диалогового окна

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

ЗаголовокРабочегоЛиста

Задание пользовательского заголовка окна приложения Application.Caption = "Регистрация. База данных туристов"

Закрытие строки формул окна Excel Application.DisplayFormulaBar = False

Задание элементов раскрывающегося списка With CoitimandButtonl .Default = True

.ControlTipText = "Ввод данных в базу данных" End With

With CoiranandButton2 .Cancel = True

.ControlTipText = "Кнопка отмены" End With

OptionButtonl.Value = True With ToggleButtonl .Value = False

.ControlTipText" = "Информация о программе" End With With ComboBoxl

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

Активизация диалогового окна UserForml.Show End Sub

Sub ЗаголовокРабочегоЛиста()

Процедура создания заголовков полей базы данных

Если заголовки существуют,

то досрочный выход из процедуры

If Range("Al").Value = "Фамилия" Then Range("A2").Select Exit Sub End If

Если заголовки не существуют, то создаются заголовки полей ActiveSheet.Cells.Clear

Range("Al:HI").Value = Array("Фамилия", "Имя", "Пол", "Выбранный Тур", "Оплачено", "Фото", "Паспорт", "Срок" Range("А:А").ColumnWidth = 12 Range("D:D").ColumnWidth = 14.4

Закрепляется первая строка с тем, чтобы она всегда отображалась на экране

Range!"2:2").Select ActiveWindow.FreezePanes = True Range("A2").Select

К каждому заголовку поля базы данных

присоединяется примечание »

Range("Al").AddComment

Range("Al").Comment.Visible = False

Range("Al").Comment.Text Text:="Фамилия клиента"

Range("Bl").AddComment

Range("Bl").Comment.Visible = False

Range("Bl").Comment.Text Text:="Имя клиента"