Создание массива

[drNabla]

Здравствуйте.
Хотел внутри макроса задать массив, но не тут то было... привиду пример неработающего кода, там впринципе должно быть понятно чего мне хочется.... как то вроде всё как в учебнике с объявлением массива, но там явно что-то не то...

Public Function proba(rgn1 As Range, M As Double) As Double
Dim n As Long, s As Double, j As Long, i As Long
Dim RR1
RR1 = rgn1.Value
Dim A()

For j = 0 To M - 1
For n = 1 To UBound(RR1) / M
A(j) = A(j) + (1 / M) * ((RR1(n + j * M, 1) - 2) ^ 2)
Next
Next

proba = UBound(A)
End Function


подскажите что не так...
Заранее всем спасибо.

[doober]

Сообщение от drNabla

Здравствуйте.
Хотел внутри макроса задать массив, но не тут то было... привиду пример неработающего кода, там впринципе должно быть понятно чего мне хочется.... как то вроде всё как в учебнике с объявлением массива, но там явно что-то не то...

Public Function proba(rgn1 As Range, M As Double) As Double
Dim n As Long, s As Double, j As Long, i As Long
Dim RR1
RR1 = rgn1.Value
ReDim A(M - 1)

For j = 0 To M - 1
For n = 1 To UBound(RR1) / M
A(j) = A(j) + (1 / M) * ((RR1(n + j * M, 1) - 2) ^ 2)
Next
Next

proba = UBound(A)
End Function


подскажите что не так...
Заранее всем спасибо.

Такого в учебнике быть не может

То что выделил синим-не понял смысла
Вот .что вы хотите получить

Public Function proba(rgn1 As Range, M As Double) As Double
proba = M - 1
End Function

[drNabla]

то что выделено синем является показателем того, что массив создан и функция работает. Эта функция не несёт смысловой нагрузки, а является обучающим примером... то что мне надо очень долго расписывать, много громоздких формул которые суть дела не изменят...
и да, спасибо, вроде всё заработало. теперь буду придавать смысл всей функции.

[doober]

А чего ей работать,если при n>2
n + j * M выходит за размерность массива
сравните при n =2,результат одинаков,как и писал выше

Public Function proba(rgn1 As Range, M As Double) As Double
Dim n As Long, s As Double, j As Long, i As Long
Dim RR1
RR1 = rgn1.Value
ReDim A(M - 1)

For j = 0 To M - 1
For n = 1 To UBound(RR1) / M

ttr = n + j * M

A(j) = A(j) + (1 / M) * ((RR1(n + j * M, 1) - 2) ^ 2)
Next
Next

proba = UBound(A)
End Function
Public Function proba1(rgn1 As Range, M As Double) As Double
proba1 = M - 1
End Function

[drNabla]

да это поспешил и перепутал пределы цикла, надо их поментяь у j и n и тогда всё корректно будет, лично моя ошибка.