Самоучитель 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

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

Рис. У2.2. Сообщение о некорректном вводе данных

Рис. У2.3. Отчет, выводимый на рабочем листе программой расчета маргинальной процентной ставки

Private Sub CommandButtonl_Click() '

' Процедура расчета маргинальной процентной ставки




Начало  Назад  Вперед



Книжный магазин