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

          .Range("B1").AddComment
          .Range("B1").Comment.Visible = False
          .Range("B1").Comment.Text Text:="Тип _
            вклада"
          .Range("C1").AddComment
          .Range("C1").Comment.Visible = False
          .Range("C1").Comment.Text Text:="Сумма _
            вклада"
          .Range("D1").AddComment
          .Range("D1").Comment.Visible = False
          .Range("D1").Comment.Text _
            Text:="Отделение банка"
        End If
    End With
    Вклад.Show
End Sub

   Для активных элементов управления расположенных на форме запи-
шите соответствующий программный код.
   Код процедуры обработки события Click кнопки «Принять»:

Private Sub Принять_Click()
    Dim Фамилия As String
    Dim ТипВклада As String
    Dim СуммаВклада As Double
    Dim Отделение As String
    Dim Примечание As String
    Dim НомерСтроки As Integer
    НомерСтроки = Application.CountA(Active _
                Sheet.Columns(1)) + 1
    With Вклад
        If .Фамилия.Text = "" Then
            MsgBox "Вы забыли указать фамилию", _
                   vbExclamation
            Exit Sub
        End If
        If .ТипВклада.Value = "" Then
            MsgBox "Вы забыли указать тип вкла- _
                   да", vbExclamation
            Exit Sub
        End If
        Фамилия = .Фамилия.Text
        ТипВклада = .ТипВклада.Value
        If .Северное.Value = True Then _
                          73