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

    TextBox1.Text = SpinButton1.Value
End Sub

   Код процедуры обработки события Change элемента TextBox1 (на
форме это текстовое поле рядом с надписью “Периодов”):

Private Sub TextBox1_Change()
    If TextBox1.Text = “” Then Exit Sub
    SpinButton1.Value = CInt(TextBox1.Text)
End Sub

    Порядок выполнения приложения «Расчет по ипотечному креди-
ту» следующий.

  1. Запускаем приложение нажатием на кнопку “Расчет по ипотечному
     кредиту”, расположенную на рабочем листе Excel (рис. 3.6).




       Рис. 3.6. Рабочий лист Excel с кнопкой запуска приложения

  2. На рабочем листе откроется форма (рис. 3.7). Заполните поля формы
     данными для проведения вычислений. Образец заполнения элементов
     управления формы данными приведен на рис. 3.8. После проверки
     правильности ввода данных нажмите на кнопку «Вычислить». Резуль-
     таты вычислений будут выведены на форму в элементы управления
     «Label» или «Надпись» и на рабочий лист Excel в виде таблицы с со-
     ответствующими текстовыми пояснениями.

                                  54