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

    Программный код приложения.
1. Рабочему листу Excel присвойте имя «Кредиты».
2. Создайте процедуру «Заголовки», которая проверяет, заполнена ли пер-
   вая строка – строка заголовков полей базы данных. Если не заполнена,
   то процедура формирует названия полей и задает их ширину. Если пер-
   вая строка заполнена, то продолжает ввод данных:

Private Sub Заголовки()
   Application.Worksheets("Кредиты").Activate
   With ActiveSheet
      If .Range("A1").Value = "Фамилия" Then
        Range("A2").Select
      Else
        ActiveSheet.Cells.Clear
        Range("A1:H1").Value = Array("Фамилия", _
         "Имя", "Адрес", "Срок кредита", "Стака", _
          "Сумма кредита", "Платежи", "Тип")
        .Range("C:C").ColumnWidth = 25
        .Range("D:D").ColumnWidth = 12
        .Range("E:E").ColumnWidth = 7
        .Range("F:F").ColumnWidth = 13
        .Range("G:G").ColumnWidth = 10
        .Range("G:G").ColumnWidth = 10
        .Range("2:2").Select
        .Range("A2").Select
      End If
   End With
   UserForm1.Show
End Sub

3. В Общей области декларируйте переменные:

Option Explicit
Dim Фамилия As String
Dim Имя As String
Dim Пол As String
Dim Адрес As String
Dim ВидЗалог As String
Dim СуммаЗалог As String
Dim Срок As Integer
Dim Ставка As Integer
Dim Кредит As Double
Dim Платежи As Double
Dim Тип As String
                                  58