функция

[eol]

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

Function count (ByVal input1 As Integer) As Variant 'или фунцию задавать as range?
'мне нужно чтобы в 1ом элеметом массива было число input
'2ом nput*2
End Function

также возникает вопрос, можно ли ее использовать в формуле листа (если протянуть на 2 ячейки и ввести как ф-лу массива, наверное, будет работать, а возможно ли получить в ячейку весь массив и каким-то образом взять его 1 или 2ой элемент?)

Также не понятно как тянуть из нее определенный элемент в vba, присвоить определенной переменной -массиву значение функции и ссылаться уже на эту переменную что-то вроде
set x to Function count (123)
msgbox(x(1,1))
msgbox(x(1,2))

Спасибо!

[IgorGO]

функция не может изменить значение в 2-х ячейках.
для этого есть процедуры.

[Hugo121]

Игорь, можно ведь написать UDF, возвращающую массив - и если вводить сразу в несколько ячеек как формулу массива - то и будет сразу несколько значений.

Вот нашёл пример (может и с этого форума, не записал):

Выделите диапазон 3*3 ячейки (например B5:D7)
Введите в строке формул =ReturnArray()
Нажмите Ctrl-Shift-Enter

Public Function ReturnArray() As Variant
Dim temp(1 To 3, 1 To 3) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 3
    For j = 1 To 3
        temp(i, j) = i * i + j
    Next
Next
ReturnArray = temp
End Function

По второму вопросу:

Sub tt()
Dim x
x = ReturnArray(2, 1)
End Sub

'или

Sub ttt()
Dim x, y
x = ReturnArray
y = x(2, 1)
End Sub

'или

Sub tttt()
Dim x, y, z, zz
x = ReturnArray
y = UBound(x, 1)
z = UBound(x, 2)
zz = x(y, z)
End Sub

[IgorGO]

вернуть массив - это понятно.
вот эта конструкция '2ом nput*2 в теле функции (присвоить ячейке значение) не сработает

[eol]

Hugo121, спасибо большое!