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

      Программный код приложения.
      На рабочем листе Excel с именем «Лист 1» разместите элемент
«Кнопка» панели инструментов Visual Basic с надписью на ней “Страхо-
вание”. С помощью этой кнопки будет запускаться разрабатываемое поль-
зовательское диалоговое окно. Для процедуры обработки события Click
этой кнопки запишем следующий код:

     Private Sub CommandButton1_Click()
     Страхование.Show
     End Sub

      Рабочему листу с именем «Лист 2» присваиваем имя «База данных».
На этом листе будет формироваться база данных по учету страхователей и
вида страхования.
       Ниже приведен листинг программного кода приложения, располо-
женного в модуле формы “Страхование” и автоматизирующего процедуру
создания базы данных по учету страхователей и вида страхования.
    В общей области объявляем вспомогательные переменные:

     Dim Пол As String * 3
     Dim НомерСтроки As Integer

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

Public Sub ЗаголовокРабочегоЛиста()
    If Range("A1").Value = "Фамилия" Then
        Range("A2").Select
        Exit Sub
    End If
    ActiveSheet.Cells.Clear
    Range("A1:I1").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:="Фамилия _
           клиента"
    Range("B1").AddComment

                                 66