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

[sergey zhukov]

Допустим, у меня в ексель есть лист с расчетами. Я хочу сделать из него пользовательскую функцию. Как это сделать, если я не хочу дублировать все эти расчеты на языке VBA (где с созданием пользовательских функций вроде все понятно), а хочу, чтобы они остались в виде набора формул в ячейках на листе? Пусть пользовательская функция обращается к этому листу, подставляет в нужные ячейки заданные аргументы и считывает результат с конечной ячейки.

[пианист]

Наверное, прямо так и сделать

Function foo(x)
    Worksheets("Лист1").Cells(1, 1) = x
    foo = Worksheets("Лист1").Cells(1, 2)
End Function

В $A1$ аргумент, в $B1$ результат.

-- Вт июл 23, 2024 22:15:17 --

Смотря для чего, конечно.
Возможно, Вам на самом деле нужна таблица данных.

[пианист]

Нет, так не работает. Функция

Function foo(x)
    Worksheets("Лист1").Cells(1, 1) = x
    foo = Worksheets("Лист1").Cells(1, 2)
End Function

вызывается только в редакторе, а при вызове с листа получаем ошибку. Собс-но, не срабатывает строчка

Worksheets("Лист1").Cells(1, 1) = x

код просто виснет.

[sergey zhukov]

пианист
Да, у меня тоже не работает.

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

[пианист]

Надо на stackoverflow покопаться, наверняка этот вопрос там задавался.

[wrest]

пианист в сообщении #1647200 писал(а):

Worksheets("Лист1").Cells(1, 1) = x

код просто виснет.

А так

Worksheets("Лист1").Cells(1, 1).Value = x

Но надо быть аккуратным с настройкой автопересчёта формул. Эксель может виснет от того что по кругу считает постоянно...

[пианист]

wrest
Нет. Такое Excel сам додумывает.

[wrest]

В общем, пишут что пользвателькие функции, вызываемые из ячейки, не могут изменить другие ячейки. By design. Но если они вызываются со строны (из макросов) то всё норм.
Есть обходные пути, но они вам не понравятся