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

Public Function Summa()

End Function

      Рассмотрим создание функции пользователя на примере функции
«Doxod», вычисляющей разность между текущим объемом вклада и разме-
ром ссуды при постоянной годовой процентной ставке и неравномерных
платежах, руководствуясь следующей последовательностью действий:
1. Находясь в Excel и не открывая окно редактора Visual Basic, выполнить
   команду Сервис / Макрос / Макросы;
2. В открывшемся окне Макрос ввести имя макроса, например Doxod, и
   нажать на кнопку <Создать>;
3. В результате откроется приложение VBA, в котором будет создан но-
   вый модуль, например Модуль1;
4. На экране будут выведены строки:

Sub Doxod()

End Sub

5. Заменить эти строки на листе модуля строками заголовка и конца функ-
   ции следующего вида:

Public Function Doxod()

End Function

6. Набрать следующий программный код между этими строками

Option Explicit
Option Base 1
Function Doxod(procent As Double, platezh As _
Variant, god As Variant) As Double
Dim i As Integer, N As Integer, Sum As Double
N = platezh.Rows.Count
Sum = 0
For i = 1 To N
Sum = Sum + platezh(i) / (1+ procent)^ ((god(i)- _
god(1)) / 365)
Next i
Doxod = Sum
End Function


                                   5