Функция на подбор параметра

@iana · Регистрация: 20.03.2015

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

Есть три ячейки: параметр, функционал, зависящий от параметра, и значение. Необходимо написать пользовательскую функцию, аргументами которой являются эти 3 ячейки. Функция должна возвращать значение параметра, при котором функционал достигает значения. При этом сам параметр не изменяется. Я написала так:

Visual Basic

Function goal(par As Range, func As Range, val As Double) As Variant
Dim param As Range
Set param = par
a = func.GoalSeek(val, par.Cells(1, 1))
goal = par.Cells(1, 1).value
Set par = param
End Function

Но не работает. Не понимаю, как работать с Range и как вызывать функцию.
Плиз, хелп!

@сороконожка · 22.06.2015, 15:56

Если честно, я не особо понял, что у вас не работает.

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

и как вызывать функцию

в тебе макроса пишете

Visual Basic

1	goal(переменная Range, переменная Range, переменная Double)

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

При этом сам параметр не изменяется

Visual Basic

1	Function goal(ByVal par As Range, func As Range, val As Double) As Variant

И третье - я бы посоветовал почитать справку.

@iana · 22.06.2015, 16:12 **[ТС]**

Сообщение от сороконожка

Если честно, я не особо понял, что у вас не работает.

Я пишу =goal(A2;B1;B2) и возвращается #ЗНАЧ!.

Сообщение от сороконожка

в тебе макроса пишете

Макросы не смогут работать, т.к. нужные ячейки на разных страницах, разных столбцах и строках. Чтобы это все сделать менее ручным и нужна функция.
Идея в том, что мне нужно в определенной ячейке написать =goal (ячейка1; ячейка2; ячейка3) и в ней появится значение параметра, который при подстановке в функционал, приведет его к нужному значению. При этом сам параметр и значение функционала остаются неизменными. Например, есть цена и выручка. Эти значения настоящие и показывают картину сейчас. Мы хотим найти значение цены, при которой выручка будет, например 1000. И это значение должно быть в другой ячейке, на другом листе, т.к. показывает параметр не сейчас, а какой он мог бы быть. У меня кажется объяснялка сломалась))

Добавлено через 3 минуты
Переписала так:

Visual Basic

Function goal(ByVal par As Range, func As Range, ByVal val As Double) As Variant
Dim param As Range
Set param = par
a = func.GoalSeek(val, par)
goal = par.value
Set par = param
End Function

Теперь возвращает начальное значение параметра, но не подобранное

Добавлено через 40 секунд
Т.е. возвращает 1 вместо 2,893434 которое должен

@сороконожка · 22.06.2015, 16:18

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

Теперь возвращает начальное значение параметра, но не подобранное

потому что

Visual Basic

1	ByVal par As Range

Вы же написали

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

При этом сам параметр и значение функционала остаются неизменными

Эммм ещё один момент - ваша функция не вернёт ничего, потому как все вычисления присваиваются переменной а

Visual Basic

1	a = func.GoalSeek(val, par)

А она мало того, что не объявлена, так ещё и просто ничего не делает ):

@iana · 22.06.2015, 16:27 **[ТС]**

Сообщение от сороконожка

ещё один момент - ваша функция не вернёт ничего, потому как все вычисления присваиваются переменной а

Вот это-то и непонятно. а - это просто переменная типа булеан получается. Т.к. GoalSeek() возвращает либо True либо False.
Если программу запускать пошагово, то подбор параметра вообще весело происходит, он все время скачет и непонятно, как с этим справится, т к тогда начальные значения никак не сохраняются - это про byVal

@сороконожка · 22.06.2015, 17:18

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

Т.к. GoalSeek() возвращает либо True либо False.

Я всё ещё не могу разобраться как сделать то, что вы хотите внутри функции.

Добавлено через 22 минуты
Я вас всё-таки вынужден огорчить, мне не удалось внутри процедуры заставить функцию работать, как и написано в справке - она возвращает только TRUE или FALSE.

@ikki · 22.06.2015, 18:39

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

Я пишу =goal(A2;B1;B2) и возвращается #ЗНАЧ!

у функций, написанных на VBA и вызываемых с листа, есть ограничение - они не могут менять ячейки.
никаким образом.
а вызываемый внутри Вашей функции подбор параметра - меняет.

@iana 0 / 0 / 0 Регистрация: 20.03.2015 Сообщений: 29
	22.06.2015, 16:27 [ТС]	5
	Сообщение от сороконожка ещё один момент - ваша функция не вернёт ничего, потому как все вычисления присваиваются переменной а Вот это-то и непонятно. а - это просто переменная типа булеан получается. Т.к. GoalSeek() возвращает либо True либо False. Если программу запускать пошагово, то подбор параметра вообще весело происходит, он все время скачет и непонятно, как с этим справится, т к тогда начальные значения никак не сохраняются - это про byVal 0

@сороконожка 15 / 15 / 5 Регистрация: 01.12.2014 Сообщений: 117
	22.06.2015, 17:18	6
	Сообщение от iana Т.к. GoalSeek() возвращает либо True либо False. Я всё ещё не могу разобраться как сделать то, что вы хотите внутри функции. Добавлено через 22 минуты Я вас всё-таки вынужден огорчить, мне не удалось внутри процедуры заставить функцию работать, как и написано в справке - она возвращает только TRUE или FALSE. 1

@ikki призрак 3263 / 891 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	22.06.2015, 18:39	7
	Сообщение от iana Я пишу =goal(A2;B1;B2) и возвращается #ЗНАЧ! у функций, написанных на VBA и вызываемых с листа, есть ограничение - они не могут менять ячейки. никаким образом. а вызываемый внутри Вашей функции подбор параметра - меняет. 1