Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.88
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.88

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()

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

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

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

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

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

Программирование в среде Visual Basic for Applications

1 Задание элементов раскрывающегося списка With CoitimandButtonl .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 = О End With

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

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

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

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

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

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

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

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

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

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta