Здравствуйте!
Я не очень хорошо разбираюсь в вба, и поэтому прошу о помощи.
Мне нужно посчитать сумму ряда, точнее даже трех, число элементов ряда n задается пользователем, написала такой код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Const l = 1
Const m = 1
Const c0 = 1
Const c2 = 1
Const c4 = 1
Const c1 = 1
Function Sum0(FirstNum As Integer, LastNum As Integer) As Double
Dim k As Long, s As Double
For k = FirstNum To LastNum
s = (l / m) ^ k
Next k
Sum0 = s
End Function
Function SumUp(FirstNum As Integer, LastNum As Integer) As Double
Dim k As Long, s As Double
For k = FirstNum To LastNum
s = s + (c0 * k * m / (l + k * m) - (k * c2 + c4) / (l + k * m)) * (((l / m) ^ k / Application.Fact(k)) / (((l / m) ^ LastNum) * m / Application.Fact(LastNum - 1 ) + Sum0))
Next k
SumUp = s
End Function
Function SumDown(FirstNum As Integer, LastNum As Integer) As Double
Dim k As Long, s As Double
For k = FirstNum To LastNum
s = (((l / m) ^ k) * ( 1 / Fpplication.Fact(k))) / ((l + k * m) * (Sum0 + (l / m) ^ LastNum) * (m / Application.Fact(LastNum - 1 )))
Next k
SumDown = s
End Function
Затем хочу использовать эти функции в exel, используя =Sum0(0;2), например,
но для Sum0 ошибка #ЗНАЧ, SumUp/SumDown, которые в моем коде используют значение Sum0, по-моему на него не ссылаются, может я что-то неправильно делаю?
А также вопрос: как в коде ссылаться на ячейку из excel, в котором посчитано нужное мне значение, можно ли это сдеть?
Буду очень признательна за помощь =)
