Самоучитель VBA

У2 1 Диалоговое окно Маргинальная процентная ставка



Рисунок У2.1. Диалоговое окно Маргинальная процентная ставка


Обсудим, как приведенная ниже программа решает перечисленные выше задачи и что происходит в программе.



UserForm Initialize

  1. Активизирует диалоговое окно.
  2. Запрещает ввод данных пользователем в поля Текущий объем ссуды И Маргинальная процентная ставка.
  3. Назначает клавише <Esc> функцию кнопки отмена, а клавише <Enter> - вычислить.
  4. Связывает с кнопками Вычислить и отмена всплывающие подсказки.

Нажатие кнопки вычислить запускает на выполнение процедуру

CommandButton1_Click

  1. Проверяет, являются ли вводимые данные числами. Если хотя бы одно из них не является числом, то на экране отображается соответствующее информационное сообщение с ; установкой фокуса на поле, где произведен некорректный ввод данных.
  2. Проверяет, будет ли ссуда меньше, чем возвращаемая сумма денег. Если ссуда больше этой суммы, то отображается сообщение с указанием, на сколько ссуда меньше возвращаемой суммы денег (Рисунок У2.2).
  3. Используя финансовую функцию рабочего листа, пз (PV) вычисляет чистый текущий объем ссуды при введенной процентной ставке.
  4. Используя метод Goaiseek (подбор параметра), находит маргинальную процентную ставку, т. е. ставку, при которой чистый текущий объем ссуды равен величине самой ссуды.
  5. Подготавливает рабочий лист для вывода результатов вычислений. Выводит полученные данные на рабочий лист и в диалоговое окно (Рисунок У2.3).


Нажатие кнопку отмена запускает на выполнение процедуру

CommandButton2_Click

Закрывает диалоговое окно.



Содержание  Назад  Вперед