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

    With ActiveSheet
        .Cells(НомерСтроки, 1).Value           =   ПолеФамилия
        .Cells(НомерСтроки, 2).Value           =   ПолеИмя
        .Cells(НомерСтроки, 3).Value           =   Пол
        .Cells(НомерСтроки, 4).Value           =   ПолеГород
        .Cells(НомерСтроки, 5).Value           =   ПолеУлица
        .Cells(НомерСтроки, 6).Value           =   ПолеДом
        .Cells(НомерСтроки, 7).Value           =   _
                    ПолеКвартира
        .Cells(НомерСтроки, 8).Value           = _
            Список.Value
        .Cells(НомерСтроки, 9).Value           = ПолеСрок
    End With
End Sub

    Код процедуры обработки события Click кнопки Oтмена:

Private Sub КнопкаОтмена_Click()
      Application.Caption = Empty
      End
End Sub

    Код процедуры обработки события Change элемента Счетчик:

Private Sub Счетчик_Change()
      With Страхование
          .ПолеСрок.Text = CStr(.Счетчик.Value)
      End With
End Sub

    Код процедуры обработки события Change элемента ПолеСрок:

Private Sub ПолеСрок_Change()
      With Страхование
          .Счетчик.Value = CInt(.ПолеСрок.Text)
      End With
End Sub

    Порядок и демонстрация выполнения приложения следующие:

1. Запустите приложение путем нажатия на кнопку “Страхование”, распо-
   ложенную на рабочем листе «Лист 1» табличного процессора Excel
   (рис. 4.5).

                                 68