вставка формулы посредством выполнения кода

[Казанский]

Вы просто недопонимаете логику работы формул.
Обычно формула пересчитывается всякий раз, когда изменяется ее аргумент. Если аргументом является та же ячейка, где содержится формула, получается бесконечный цикл, или циклическая ссылка: формула помещает результат вычисления в ячейку - ячейка изменяется - формула снова вычисляет результат и помещает в ячейку - ячейка изменяется и т.д.
Попробуйте ввести в А1 формулу =A1/2 - что получается?

IgorGO упомянул итеративные вычисления. Это специфический метод вычислений с использованием циклических ссылок, иногда очень эффективный. Но в данном случае это явно не нужно.

[Обыватель]

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

[IgorGO]

в буфере обмена на момент выполнения строки
Selection.Formula = "=" & x & "/1.18"
должно быть какое-то числовое значение.
проверок на ошибки нет, вот и вылетает по несоответсвию типов.

вообще-то, пока никто, кроме Вас, не знает что происходит на листе и что должно происходить (отсутсвует понимание логики процесса), соответсвенно, такие советы Вы и получаете.

[Казанский]

Если Вы хотите уменьшить значения в выделенном диапазоне "на месте", это можно сделать так:

selection.value=evaluate(selection.address & "/1.18")

[IgorGO]

Selection.Formula = "=" & selection.value & "/1.18"
без всяких буферов обмена.

[Обыватель]

Я делаю это несколько проще Selection = Selection / 1.18

Пример прикрепил

[Обыватель]

selection.value

Вот в чем моя ошибка =) тип данных не указал. Спасибо!

[IgorGO]

так:
Selection.Formula = "=" & selection.value & "/1.18"
в ячейке Вы увидите результат, а в строке формул еще и исходное значение

а так:
Selection = selection.value/1.18
только значение в ячейке (зато нет доп.вычислений, все уже посчитано)

[Обыватель]

Вся соль как раз в том, чтобы можно было посмотреть изначальное значение =)

Раньше использовал комбинацию макросов:

Sub Zapomnit()
With ActiveCell: .ClearComments: .AddComment .Text: End With
End Sub

и

Sub vichetNDS()
Selection = Selection/1.18
End Sub

[romahjvf]

Эдраствуйте всем, помогите пожалуйста, что я делаю неправильно
вот код
mas.Range("Cells(v, h):Cells(v, h)").Value = "=" & X1 & "*" & X2 & ""