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


         

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



.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 Сортировка()

'

' Процедура сортировки данных

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