Хээлп!!!! Как использовать свой массив в стат. функциях???

[romantimo]

Помогите плиз!!!!

есть функция типа:
Application.WorksheetFunction.Median(1, 2, 3....)

Как мне вместо стандартных аргументов подставить массив???
У меня не получается....


Тем более, что на независимые аргументы есть ограничение 30 шт.

Не знаю что и делать... может быть преобразовать Array в Range???

[Viper]

тут было ошибочное решение проблемы

[alibek]

Вообще-то он вызывает функции листа...
romantimo, попробоуй использовать Array(1,2,3).

[Viper]

Упс.... обшибся

[KL]

У меня след. код работает корректно:

Код: Выделить всё

Sub test()
    MsgBox Application.Median(Array(1, 2, 3, )
   
    MsgBox Application.WorksheetFunction.Median(Array(1, 2, 3, )
   
    ' горизонталь
    [A1:D1] = Array(1, 2, 3,
    MsgBox Application.Median([A1:D1])
   
    x = [A1:D1].Value
    MsgBox Application.Median(x)
   
    ' вертикаль
    [A1:A4] = Application.Transpose(Array(1, 2, 3, )
    MsgBox Application.Median([A1:A4])
   

    x = [A1:A4].Value
    MsgBox Application.Median(x)

End Sub

Может покажешь как ты пытаешься это делать?

[inq]

да и просто с массивами работает..

Код: Выделить всё

Dim arr(3) As Integer
   
    arr(0) = 2
    arr(1) = 2
    arr(2) = 3
   
    msgbox Application.WorksheetFunction.Median(arr)

непонятны трудности...

[KL]

[quote="inq"]да и просто с массивами работает..[quote]

Ну вот и я о том же (переменная x это массив полученный из ранга [A1:A4]):

Код: Выделить всё

    x = [A1:A4].Value
    MsgBox Application.Median(x)

End Sub

[KL]

Для полноты - еще 4 варианта работы с массивами в Excel:

Код: Выделить всё

Sub test()

    MsgBox Application.Median([{1,2,3,8}])
   
    MsgBox Application.Median(Evaluate("{1,2,3,8}"))
   
    MsgBox [Median({1,2,3},8)]
   
    MsgBox Evaluate("Median({1,2,3},8)")
   
End Sub

[romantimo]

Спасибо всем, кто участвовал

Я собственно хотел сделать следующее:

Dim A(100), s As Double
A(0) = 1
A(1) = 55
A(2) = 2
s = Application.WorksheetFunction.Median(A)
MsgBox (s)


Все работает! это странно!

Я просидел все воскресенье над этой проблемой.
Пока не понял в чем был трабл...
Но всем спасибо