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

[Demetros]

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

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

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

Вместо "=A1+B1+112" можно написать что угодно, это я указал как простейший пример.
Я предполагаю что можно таким образом заменять не только формулы точно указанные, но и содержащие определенные функции. только как пока не знаю.

P.S. Я, не программист, я только учусь.

[IgorGO]

Вместо "=A1+B1+112" можно написать что угодно, это я указал как простейший пример

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

а что у Вас за книга и чем она заполнена ни кто здесь, кроме Вас, понятия не имеет!

[Demetros]

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

Вместо "=A1+B1+112" можно написать что угодно, это я указал как простейший пример

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

а что у Вас за книга и чем она заполнена ни кто здесь, кроме Вас, понятия не имеет!

Файл выложить не могу из соображений. Колонок много, как и пользователей файла. Лучше кучу времени потратить сразу чем потом за всеми поправлять.

[Demetros]

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

[IgorGO]

dim formulas as string
formulas = "=A1+B1+112=формула2=формула3...=последняяформула")
If instr(Formulas, cell.FormulaLocal) > 0 Then cell.Value = cell.Value

[Demetros]

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

dim formulas as string
formulas = "=A1+B1+112=формула2=формула3...=последняяформула")
If instr(Formulas, cell.FormulaLocal) > 0 Then cell.Value = cell.Value

спасибо, работает.

[Demetros]

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

весь код. правда не понял как он работает. почему он не удаляет формулы содержащие ссылку на ячейку А1 или В1? знак равенства служит разделителем? "А1+В1" без "+112" удаляет. Почему?

[Demetros]

Какое-то определенное количество символов должно совпасть?

[IgorGO]

instr(Formulas, cell.FormulaLocal) > 0
читай
если текст формулы из ячейки есть в тексте строки с формулами

как считаете последовательность
"А1+В1"
есть в строке
"=A1+B1+112=формула2"

отвечу за Вас, есть, начиная с 2-го символа

заменяйте все вручную это медленнее, но в Вашем случае - надежнее!

[Hugo121]

For Each cell In UsedRange

- зачем????
Написал ведь выше как нужно делать... Ну хотя если нет времени на перекур - делайте как знаете