Замена результата вычисления пользовательской функции на значение - Microsoft Office Excel - Страница 2

AleksandrH · 13.11.2015, 14:41

т.е. надо иметь "библиотеку своих формул" для сравнения? А с помощью VBA можна установить что формула в ячейке использует UDF?

Hugo121 · 13.11.2015, 14:50

Зачем библиотеку? ТС ведь знает что именно использует.

AleksandrH · 13.11.2015, 15:18

Неверно выразился. надо ведь иметь "список функций которые UDF" чтобы сравнить его с функцие которая в ячейке и если есть совпадение то заменять на значение?

Hugo121 · 13.11.2015, 15:24

Ну если их там много нужно менять - то или список, или в коде ветвлением все перебирать.
Думаю что нет простого способа отличить стандартную функцию от UDF. Есть ведь ещё и типа UDF от производителя - всякие пакета анализа и т.д....

IgorGO · 13.11.2015, 15:50

ячейка содержащая пользовательскую функцию не имеет ни каких "особых" меток (ничего такого не нахожу)

нужен список собственных функций
и проверка на наличие хоть одной из них в теле формулы

Казанский · 13.11.2015, 16:25

Цитата:

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

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

Может для начала попробуем оптимизировать код функции? Выложите его.

Demetros · 17.11.2015, 16:39

Код:

Sub mjhgj()
'удаление указанной формулы с листа
    For Each cell In UsedRange
    If cell.FormulaLocal = "=A1+B1+112" Then cell.Value = cell.Value
    Next cell
End Sub

Долго мучался. вот что получилось. Только нужно прописывать формулы в макрос заранее.

Aleksandr H. · 17.11.2015, 16:45

Зачем "мучался"?
Hugo121 в сообщении дал код перебора ячеек с проверкой потом IgorGO подсказал

Цитата:

нужен список собственных функций
и проверка на наличие хоть одной из них в теле формулы

С чем загвоздка была?

IgorGO · 17.11.2015, 17:35

видите-ли, уважаемый Demetros
если в С1 было написано =A1+B1+112,
то в С2 должно быть =A2+B2+112
в С3 ...
а если в таблице 147243 строки - это довольно много разных формул
Вы не устанете набирать список формул, которые нужно заменить?

присмотритесь к сообщению #2 в Вашей теме, ответ на Ваш вопрос не там, случайно? Без Sub и End Sub - это 1 строка кода вместо 147243 строк.

Demetros · 17.11.2015, 18:28

Цитата:

Сообщение от Aleksandr H.

Зачем "мучался"?
Hugo121 в сообщении дал код перебора ячеек с проверкой потом IgorGO подсказал

С чем загвоздка была?

Шарил по другим форумам.

13.11.2015, 14:41	#11
AleksandrH Форумчанин Регистрация: 15.02.2010 Сообщений: 148	т.е. надо иметь "библиотеку своих формул" для сравнения? А с помощью VBA можна установить что формула в ячейке использует UDF? WIX-FILTERS. A Filter for every application.

13.11.2015, 14:50	#12
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Зачем библиотеку? ТС ведь знает что именно использует. webmoney: E265281470651 Z422237915069 R418926282008

13.11.2015, 15:18	#13
AleksandrH Форумчанин Регистрация: 15.02.2010 Сообщений: 148	Неверно выразился. надо ведь иметь "список функций которые UDF" чтобы сравнить его с функцие которая в ячейке и если есть совпадение то заменять на значение? WIX-FILTERS. A Filter for every application.

13.11.2015, 15:24	#14
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Ну если их там много нужно менять - то или список, или в коде ветвлением все перебирать. Думаю что нет простого способа отличить стандартную функцию от UDF. Есть ведь ещё и типа UDF от производителя - всякие пакета анализа и т.д.... webmoney: E265281470651 Z422237915069 R418926282008

13.11.2015, 15:50	#15
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	ячейка содержащая пользовательскую функцию не имеет ни каких "особых" меток (ничего такого не нахожу) нужен список собственных функций и проверка на наличие хоть одной из них в теле формулы Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

17.11.2015, 16:39	#17
Demetros Форумчанин Регистрация: 28.01.2014 Сообщений: 126	Код: `Sub mjhgj() 'удаление указанной формулы с листа For Each cell In UsedRange If cell.FormulaLocal = "=A1+B1+112" Then cell.Value = cell.Value Next cell End Sub` Долго мучался. вот что получилось. Только нужно прописывать формулы в макрос заранее.

17.11.2015, 17:35	#19
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	видите-ли, уважаемый Demetros если в С1 было написано =A1+B1+112, то в С2 должно быть =A2+B2+112 в С3 ... а если в таблице 147243 строки - это довольно много разных формул Вы не устанете набирать список формул, которые нужно заменить? присмотритесь к сообщению #2 в Вашей теме, ответ на Ваш вопрос не там, случайно? Без Sub и End Sub - это 1 строка кода вместо 147243 строк. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание пользовательской функции в Excel	Аcmrf	Microsoft Office Excel	5	29.04.2014 16:09
создание пользовательской функции	Devil669	Microsoft Office Excel	1	10.12.2012 23:47
написание пользовательской функции	drNabla	Microsoft Office Excel	15	05.11.2010 09:08
Составить программу вычисления выражения и выведения полученного результата на экран.тема ФУНКЦИИ.	coolbaba	Общие вопросы Delphi	1	03.06.2010 03:31
Написание пользовательской функции.	GoreProgrammist	Microsoft Office Excel	9	15.07.2009 15:28