Передача диапазона ячеек в функцию

@nrv · Регистрация: 14.01.2012

Author24 — интернет-сервис помощи студентам

Потребовалось написать пользовательскую функцию в Excel, функция должна принимать диапазон ячеек:
=PLACE(A2:I2,A2)
Функция PLACE принимает массив:

PureBasic

Function Place(arr() As Integer, number As Integer)
for i=1 to UBound(arr)
for j=1 to (UBound(arr)-1)
if arr(j)<arr(j+1) then
c=arr(j)
arr(j)=arr(j+1)
arr(j+1)=c
endif
next j
next i
if number=arr(1) then
Place=1
endif
p=1
for i=2 to UBound(arr)
if arr(i)=arr(i-1) then
if number=arr(i) then
Place=p
Endif
Else
p=p+1
if number=arr(i) then
Place=p
Endif
endif
next i
End Function

LibreOffice при вычислении ячейки дает ошибку 501
Как правильно описать функцию, чтобы она могла принять в качестве параметра диапазон ячеек?
Может не массив нужно, а список или массив другой какой-нибудь...

@Vlad999 · 02.03.2016, 14:56

Visual Basic

1	Function Place(диапазон As Range, number As Integer)

ваш код придется править

@nrv · 02.03.2016, 15:02 **[ТС]**

Почему-то не работает

@Vlad999 · 02.03.2016, 15:07

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

Почему-то не работает

откуда такие выводы? диапазон в функцию передается, а вот обрабатывается ли это другой вопрос.
например

Visual Basic

1 2	Function Place(диапазон As Range, number As Integer) arr=диапазон.value

в окне Locals смотрим чему равно arr.

опишите словами что ваша функция должна делать.

~~Shersh~~ · 02.03.2016, 15:11

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

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

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

LibreOffice при вычислении ячейки дает ошибку 501

Может в этом проблема? Определитесь, с чем работаете.

@nrv · 02.03.2016, 15:53 **[ТС]**

Сделаем функцию-заглушку, внутри которой точно нет проблемы:

PureBasic

1
2
3

Function Foo(range As Range, number As Integer)
Foo=number
End Function

Она тоже не работает, ошибка 501. Слово "диапазон" это случайно не есть ключевое слово? Проверить я не смог, если вместо range написать диапазон, ругается, но это все-таки на кириллицу наверное.

Добавлено через 14 минут
Ошибка 501, оказывается - это просто LibreOffice не видел функцию Foo (в случае с функцией Place по-прежнему 501, хотя теперь он ее должен видеть), теперь ошибка в Basic IDE "переменная типа object не установлена"

Добавлено через 10 минут
Упс, "object не задан" - это я при вызове функции 1 параметр вместо 2 указал, так что изначально все правильно написал - функция Foo дает ошибку 501

Добавлено через 8 минут
Спасибо, Range все-таки работает, просто параметры нужно писать через точку в запятой

@nrv 51 / 38 / 5 Регистрация: 14.01.2012 Сообщений: 127
	02.03.2016, 15:02 [ТС]	3
	Почему-то не работает 0

~~Shersh~~ Заблокирован
	02.03.2016, 15:11	5
	Сообщение от nrv пользовательскую функцию в Excel Сообщение от nrv LibreOffice при вычислении ячейки дает ошибку 501 Может в этом проблема? Определитесь, с чем работаете. 0

	02.03.2016, 15:53

Передача диапазона ячеек в функцию

Решение