powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обобщенная функция
4 сообщений из 4, страница 1 из 1
Обобщенная функция
    #33022699
matrixman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток!

Подскажите как в Excel написать функцию которая вычисляла бы значение значение другой функции заданной строкой. Конкретно нужно следующее:
1. Функция от двух аргументов
2. Первый аргумент - ссылка на ячейку в которой написана формула как текст (например формула может быть такой: '=3*ARG + 2)
3. Второй аргумент - ссылка на ячейку в которой содержиться значение аргумента, подставляемого в нашу формулу (т.е. заместо ARG)
4. Вы выходе имеем подсчитанное значение, например COMPUTE_STR("=3*ARG + 2", 2) вернет 8
...
Рейтинг: 0 / 0
Обобщенная функция
    #33023265
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А А1 - '=3*B1+2
В В1 - 2
потом, например в Immediate пишем : Range("C1").Formula=Range("A1").Formula
смотрим в С1
если надо внесте изменения в а1 то вносим их и опять Range("C1").Formula=Range("A1").Formula
в принципе можно повесить свой обработчик на а1.
...
Рейтинг: 0 / 0
Обобщенная функция
    #33027030
MLeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что-то уж больно замысловато. А Application.Run не спасет гиганта мысли?
...
Рейтинг: 0 / 0
Обобщенная функция
    #33028149
matrixman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, мне уже ответили на другом форуме. Искомая функция имеет вид:
Function COMPUTE_STR(iFormula As Range, iArgument As Range)
COMPUTE_STR = Evaluate(Replace(iFormula.Formula, "ARG", iArgument.Value))
End Function
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обобщенная функция
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]