Замена результата вычисления пользовательской функции на значение

[Demetros]

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

[Watcher_1]

activesheet.usedrange.cells.value=activesheet.usedrange.cells.value

[Demetros]

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

activesheet.usedrange.cells.value=activesheet.usedrange.cells.value

Этот код удаляет все формулы с листа. А мне необходимо удалить только те которые определены пользователем.

[IgorGO]

а Вы ЧТО ПРОСИЛИ???????????????????????????? ??????????

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

[Hugo121]

Выделить неразрывный диапазон со своими формулами, выполнить

selection.value=selection.value

[Demetros]

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

Выделить неразрывный диапазон со своими формулами, выполнить

selection.value=selection.value

Я просил макрос замены формул ОПРЕДЕЛЕННЫХ ПОЛЬЗОВАТЕЛЕМ!!!!!!!! (собственного приготовления, так сказать), а не встроенных в эксель, и не с выделением, а сразу со всего листа.

[Demetros]

IgorGO, я очень ценю Вашу неоднократную помощь мне и всем нуждающимся в ней на этой ветке форума. Учитывая Вашу активность здесь и Ваши пристрастные вопросы, я в своих просьбах о помощи стараюсь быть максимально краток и точен. Но если уж у меня не совсем получилось, прошу прощения.

[Serge_Bliznykov]

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

Я просил макрос замены формул ОПРЕДЕЛЕННЫХ ПОЛЬЗОВАТЕЛЕМ!!!!!!!! (собственного приготовления, так сказать), а не встроенных в эксель, и не с выделением, а сразу со всего листа.

Так Вам и дали код, который заменяет все формулы на листе.
Они там все внесены пользователями. Ни одной сам Excel Вам на лист не добавляет. Только пользователь вставляет формулы.

Вы что-то хотите, а что - выразить не можете, да?
Попробуйте привести пример, где на листе одна формула "ОПРЕДЕЛЁННАЯ ПОЛЬЗОВАТЕЛЕМ" (и должна быть заменена), а вторая ФОРМУЛА - не такая и не дожна быть замена.

[AleksandrH]

ТС хочет написать на VBA

Function СуммаДеметрос(диапазон)

на листе в А1 вписать "=СУММ(Диапазон)"
в А2 вписать "=СуммаДеметрос(Диапазон)"
запустить макрос и в результате получить в А1 "= сумм(ДИапазон)" а в А2 - результат. число кот возвратит СуммаДеметрос

[Hugo121]

думаю я понял что хочет ТС - заменить все свои UDF на значения.
Можно пройтись циклом по всем ячейкам с формулами в usedrange, проанализировать если там нужная формула - то и заменить.
Перед началом процесса отключить пересчёт.

Что-то вроде

Dim c As Range
For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If Left(c.Formula, 4) = "=Num" Then c.Value = c.Value
Next