Написание функции, возвращающий массив (Excel)

[ZlydenGL]

Еще раз всем привет!

Как писать обычные функции в Ёкселе (то есть функции, возвращающие значение/строку/range), похоже знают многие. А вот как написать функцию, которая вернет МАССИВ?

Задача - нечто похожее на то, что делает встроенная функция TRANSPOSE(). Но вот как описать эту функцию?

В двух словах. В листе Excel'я есть столбец данных:
1
2
64
6
7
8
1
45
ets.

Мне надо из этого столбца случайным образом выбрать значения и вывести их в определенный range. При этом количество выборки будет определяться соответственно именно количеством строк этого range'а.

У кого-нить есть мысли по этому поводу?

[Gloom]

Вообще-то:
If the Range object contains more than one cell, returns an array of values
По сему:

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

Ubound(Range("A1:A10").Value)=10
Ubound(Range("A1:J1").Value)=1
Ubound(Range("A1:J1").Value,2)=10
Ubound(Application.Transpose(Range("A1:J1").Value))=10

[ZlydenGL]

Или я не понял, или ты не понял, или одно из двух

Мне надо описать функцию так, чтобы она возвращала массив в те ячейки, где она забита в виде {MyFunction(A1:B12,1)}. Вот как мне из тела функции узнать, в какие ячейки мне надо подставлять значения? А это подразумевается в твоем коде.

[GSerg]

А не надо знать.

Тип функции - Variant.
В теле объявить массив нужного размера и типа. Последней командой присвоить этот массив имени функции.

[ZlydenGL]

Пришел Шаман и все опошлил Шучу естественно. Пошел пробовать!