Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.74
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.74

.Range("А2").Value = "Число выплат"'

.Range("A3").Value = "Размер ссуды"

.Range("А4").Value = "Размер одной выплаты"

Программирование в среде Visual Basic for Applications

.Range("A5").Value = "Процентная ставка"

.Range("Аб").Value = "Текущий объем ссуды"

.Range("А7").Value = "Маргинальная процентная ставка"

.Range("А8Н).Value = _

"Маргинальный чистый текущий объем ссуды" .Range(ИВ8Н).Activate End With

' Расчет чистого текущего объема ссуды pPure = Application.PV(і, n, -А) ' Нахождение маргинальной процентной ставки

* с помощью команды "Подбор параметра".

1 Ввод данных в ячейки активного рабочего листа ' и задание процентного и денежного форматов в ячейках With ActiveSheet .Range("В2") .Value = n .Range( "B3H) . Number Format = ,,#/##0$" .Range(HB3H).Value = p .Range( "B4H) . Number Format = ,,#/##0$H .Range(HB4H).Value = A .Range("B5") . Number Format = "0.00%" .Range("B5").Value = і .Range("B7").NuinberFonnat = "0.00%" ' Ввод начального приближения ' для маргинальной процентной ставки .Range("В7").Value = і

* Ввод формулы расчета

.Range("В8").FormulaLocal =ПЗ(В7;В2;-В4)" .Range("Вб").Value = .Range("В8").Value ' Выполнение команды "Подбор параметра" .Range("В8").GoalSeek _ Goal:=р, ChangingCell:=.Range("В7") ' Присвоение найденного значения Л маргинальной процентной ставки Л переменной iMarg iMarg = .Range("В7").Value End With

' Переформатирование найденных значений Л и вывод их в диалоговом окне TextBox5.Text = _ CStr(Format(pPure, "Fixed"))

TextBox6.Text = CStr(Format(iMarg * 100, "Fixed")) End Sub

Private Sub CommandButton2_Click()

1 Процедура закрытия диалогового окна

UserForml.Hide End Sub Private Sub UserForm.Initialize()

17. Расчет маргинальной процентной ставки_129


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta