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

Dim КогдаПлатим As String
Dim Дата As Date

4. В процедуру обработки события Initialize формы введите код:

Private Sub UserForm_Initialize()
   Application.DisplayFormulaBar = False
   With UserForm1
      'Устанавливаем переключатель "муж"
      .OptMale = True
      'Присваиваем значения спискам
      .ComCity.List = Array("Воронеж", "Эртиль", _
          "Богучар", "Новохоперск", "Лиски", _
          "Бобров", "Анна", "Россошь", "Калач")
      .ComPawn.List = Array("Ценные бумаги", _
           "Недвижимость", "Автомобиль")
      .ComRate.List = Array("3", "4", "5", "6", _
          "7", "8", "9", "10", "11", "12", "13", _
          "14", "15")
      'Устанавливаем выключатель
      .TogType.Value = False
      .OKButton.SetFocus
      .OKButton.ControlTipText = "Ввод в базу _
          данных"
      .CancelButton.ControlTipText = "Отменить _
          ввод"
      .CancelButton.Cancel = True
      .QuitButton.ControlTipText = "Закончить _
          ввод"
   End With
   'Вызываем процедуру Заголовки
   Заголовки
End Sub

5. В процедуру обработки события Click кнопки ОК введите код:

Private Sub OKButton_Click()
   Dim НомерСтроки As Integer
   'Вычисляем номер первой незаполненной строки
         таблицы
   НомерСтроки = Application.CountA(ActiveSheet. _
         Columns(1)) + 1
   'Проверка ошибок ввода
   With UserForm1
                                  59