написание пользовательской функции

[drNabla]

это использование функции которую предложил doober, но она считает только один раз (один цикл, останавливается после подставленния первого элемента выбранного массива), и дальше не работает... из-за чего это может быть?

ячейка В5 результат, В6 то что стоит в В5.

[IMG][/IMG]





















курсы английского языка интенсив

[drNabla]

а если тоже самое сделать к столбцу а не к строке то всё считается как надо...

[doober]

Public Function SUM_KV_Stroka(rgn As Range, Y As Double, Z As Double) As Double
Dim n As Long, Sm As Double
Dim RR
RR = rgn.Value
For n = 1 To UBound(RR)
Sm = Sm + (RR(1, n) - Y) ^ 2
Next
SUM_KV_Stroka = Sm * Z

End Function

[drNabla]

вот я тоже пытался так сделать... не получилось...
в подтверждение присылаю то что у меня...

[doober]

Подправил ....

[IgorGO]

или так (сюда можно или строку или столбец передать)

Public Function SUM_KV(rgn As Range, Y As Double, Z As Double) As Double
Dim n As Long, Sm As Double
Dim RR
RR = rgn.Value
n = 1
Do
  Sm = Sm + (RR(IIf(n <= UBound(RR, 1), n, 1), IIf(n <= UBound(RR, 2), n, 1)) - Y) ^ 2
  n = n + 1
Loop Until n >= UBound(RR, 1) + UBound(RR, 2)
SUM_KV = Sm * Z
End Function