Visual Basic for Applications. Практика. Нагина Е.К - 72 стр.

Private Sub UserForm_Initialize()
        With Вклад
            .Северное.Value = True
            .ТипВклада.ListRows = 3
            .ТипВклада.List = Array("Срочный", _
                 "Депозит", "Текущий")
            .Принять.SetFocus
        End With
        Application.Caption = "Регистрация. База _
                 данных Банк"
        Application.DisplayFormulaBar = False
        With Принять
            .Default = True
            .ControlTipText = "Ввод данных в _
                 базу данных"
        End With
        With Отмена
            .Cancel = True
            .ControlTipText = "Кнопка отмены"
        End With
        ЗаголовокРабочегоЛиста
End Sub

    Для формирования заголовков полей базы данных создайте процедуру
Sub пользователя, которая вызывается из процедуры обработки события
формы Initialize. Код данной процедуры имеет следующий вид:

Private Sub ЗаголовокРабочегоЛиста()
    Application.Worksheets("База").Activate
    With ActiveSheet
        If .Range("A1").Value = "Фамилия" Then
          .Range("A2").Select
        Else
          ActiveSheet.Cells.Clear
          .Range("A1:E1").Value = Array("Фами- _
            лия" , "Тип", "Сумма", "Отделе- _
            ние", "Примечание")
          .Range("2:2").Select
          ActiveWindow.FreezePanes = True
          .Range("A2").Select
          .Range("A1").AddComment
          .Range("A1").Comment.Visible = False
          .Range("A1").Comment.Text Text:="Фами- _
            лия клиента"
                          72