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

[Demetros]

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

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

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

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

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

Значит это не мой вариант.

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

Хотел так, но что-то не пашет. Что не так делаю?

[Demetros]

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

For Each cell In UsedRange

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

еще понять бы в чем разница (
Свой код я понял как работает.

[IgorGO]

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

замена вручную - это именно ВАШ ВАРИАНТ

Что не так делаю?

1. не тем делом занялись
2. вместо того чтобы самостоятельно попытаться понять, что там не так, Вы сразу пишете сюда
3. правильно так:

If Left(cell.FormulaLocal, 10) = "=A1+B1+112" Or Left(cell.FormulaLocal, 10) = "=A1+B1+113" Then cell.Value = cell.Value

[Demetros]

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

замена вручную - это именно ВАШ ВАРИАНТ


1. не тем делом занялись
2. вместо того чтобы самостоятельно попытаться понять, что там не так, Вы сразу пишете сюда
3. правильно так:

If Left(cell.FormulaLocal, 10) = "=A1+B1+112" Or Left(cell.FormulaLocal, 10) = "=A1+B1+113" Then cell.Value = cell.Value

Спасибо. А у кого же мне еще спрашивать. Жена не знает, по телеку не говорят про это.
Тот кто хочет научиться задает вопросы, а тот кто не хочет, спит на парах

[Demetros]

На сегодня последний раз рискну задать вопрос
Чем отличаются эти строки?
For Each cell In UsedRange
For Each c In ActiveSheet.Cells.SpecialCells(xlCe llTypeFormulas)

[Hugo121]

1 - перебирает все 100500 ячеек
2 - перебирает только те, в которых формулы

[IgorGO]

А у кого же мне еще спрашивать

пользуйтесь справкой Excel
F1
в строку поиска
or

читаете:
Or Operator
Used to perform a logical disjunction on two expressions.
Syntax
result = expression1 Or expression2

а ниже примеры в одном из них написано:
MyCheck = B > A Or B > C
а не:
MyCheck = B > A Or > C

последний раз рискну задать вопрос

звучит оптимистично, верится с трудом

и в таком случае, последний на сегодня ответ:
начиная с 2007 на листе 1млн. строк и 16тыс. колонок
ячеек получается одно умножить на другое
так вот:
For Each cell In cells - это указание заглянуть в каждую ячейку листа
For Each cell In UsedRange - указание заглянуть в каждую ячейку, которая использована пользователем (внесены любые данные (в т.ч. формулы), применено специфическое форматирование - это все использованные пользователем ячейки)
For Each Cell In ActiveSheet.Cells.SpecialCells(xlCe llTypeFormulas) - ТОЛЬКО ячейки, содержащие формулы

удачи!

[Demetros]

Справкой пользоваться трудновато, в школе учил французский, а гугл иногда переводит так, что без литра не разберешь.
For Each Cell In ActiveSheet.Cells.SpecialCells(xlCe llTypeFormulas) - Понял, что в моем случае работать будет быстрее.
С моей настырностью и вашей помощью задача решена.

Sub JJJ()
Dim c As Range
    For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
        If Left(c.Formula, 10) = "=A1+B1+112" Or _
           Left(c.Formula, 10) = "=A2+B2+112" Then
           c.Value = c.Value
        End If
    Next
End Sub

Всем, уставшим от моих вопросов большое спасибо.