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




Практика - часть 4


' Задание пользовательского заголовка окна приложения

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

'

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

Application.DisplayFormulaBar = False

'

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

'

With CommandButtonl

.Default = True

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

End With

With CommandButton2

.Cancel = True

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

End With

OptionButtonl.Value = True

With ToggleButtonl

.Value = False

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

End With

With ComboBoxl

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

.Listlndex = 0 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("A:A").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:="Имя клиента"

Range("Cl").AddComment



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