Долгосрочная финансовая политика. Кривелевич М.Е. - 35 стр.

      Рисунок 8. Погашение банковского кредита (решение)

       Указанные в п. 2 операции можно было выполнить и без использования главного
меню, произведя следующие действия:
       1) сделать активной ячейку А12 и установить указатель мыши на ее нижний правый
угол. При этом указатель примет вид маркера заполнения - +;
       2) нажать клавишу [CTRL] и не отпуская ее протащить мышью маркер заполнения
необходимое количество раз вниз (по колонке А). При этом в левом углу строки ввода будет
выводиться значение счетчика ряда.
       Доработаем получившийся шаблон с использованием программных модулей,
реализованных на языке VBA (Visual Basic for Application), таким образом, чтобы добиться
маштабируемости шаблона. Это важный шаг в сторону облегчения работы пользователя. Что
бы такого доработать? Сразу бросается в глаза, то, что количество периодов в решении (то
есть строчек отведенных под решение) не зависит от условий задачи. Давайте это исправим
добавив в шаблон две кнопки «Решить» и «Очистить» и код VBA, приведенный ниже.
       Пример кода для автоматизации шаблона погашения кредита:
       Создать две кнопки со следующими свойствами:
Имя (Name) Надпись (Caption) Автозагрузка (Autoload)
CmdSolve       Решить              True
CmdClear       Очистить            True

      Задать событию нажатие_на_кнопку «Решить» следующий исходный текст:
      Private Sub CmdSolve_Click()
      Const Start = 12 'Фиксация первой строки, с которой начинать заполнение
      Dim Finish ' Создаем новую переменную, пока Finish=0
      If [Ставка] * [Срок] * [Сумма] * [Выплат] > 0 Then
      Finish = [F9].Value + Start - 1
      Cells(Start, "A").Select
      Selection.AutoFill     Destination:=Range(Cells(Start, "A"),    Cells(Finish,   "A")),
Type:=xlFillSeries