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

    Range("B1").Comment.Visible = False
    Range("B1").Comment.Text Text:="Имя клиента"
    Range("С1").AddComment
    Range("С1").Comment.Visible = False
    Range("С1").Comment.Text Text:="Пол клиента"
    Range("D1").AddComment
    Range("D1").Comment.Visible = False
    Range("D1").Comment.Text Text:="Адрес клиента"
End Sub

   Код обработки события формы Initialize:

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

   Для активных элементов формы записывается соответствующий код.
   Код процедуры обработки события Click кнопки OK:

Private Sub КнопкаОК_Click()
    НомерСтроки = _
    Application.CountA(ActiveSheet.Columns(1)) + 1
    With Страхование
        If .ПолМуж.Value = True Then
             Пол = "Муж"
        Else
             Пол = "Жен"
        End If
    End With
                          67