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

[Обыватель]

Добрый день!

Подскажите, пожалуйста, решение.

написал простенький код:

Sub vichetNDS()

Selection = ActiveCell / 1.18

End Sub


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

Например: = 1000/1,18


Пробовал вот так:

Sub vichetNDS()

Selection = "="&ActiveCell&/1.18

End Sub

не работает ...

Заранее спасибо!

[Казанский]

Впишите формулу, она будет вычислять результат.
Например, посчитать сумму без НДС от ячейки слева:

ActiveCell.FormulaR1C1 = "=RC[-1]/1.18"

Лучше всего ввод формул записывать макрорекордером.

[Обыватель]

Такой способ мне знаком =) А как можно сделать в одной ячейке?
Попробовал через объявление переменной, но что-то не работает.

[IgorGO]

посмотрите перед записью: MsgBox Selection.Address = ActiveCell.Address
ваши Selection и ActiveCell - это случайно не одно и тоже?
разберитесь где данные и куда их надо записать.

[Обыватель]

Да, это одно и то же.
У меня в ячейке есть значение X, я хочу, чтобы при выполнении кода в той же ячейк появилась формула =X/1.18

[IgorGO]

мягко говоря, скромным Ваше желание не назовешь...
как Вы себе все это представляете?
допустим даже Вы записали:
ActiveCell.FormulaR1C1 = "=RC/1.18"
зашли в параметры эксель, включили итеративные вычисления, поставили 1 итерацию.
Отныне у Вас там будет 0.

[Обыватель]

Мои нескромные пожелания обьясняются скудностью познаний =)
Но идея есть.

Sub vichetNDS()
Selection.Copy
Dim X As Variant
X = содержимое буфера обмена
ActiveCell.FormulaR1C1 = "X/1.18"
End Sub
Как-то так, наверное. Не знаю, как прописать в формуле, что "X" это переменная

[IgorGO]

вот с буфера обмена можно данные забрать - это правильная мысль

  Dim MyData As New DataObject
  MyData.GetFromClipboard
  x = MyData.GetText(1)
  Selection.Formula = "=" & x & "/1.18"
  MyData = Nothing

[Обыватель]

Ого! Самостоятельная реализация своей идеи мне пока не позубам. Спасибо за код!

[Обыватель]

Ругается на Selection.Formula = "=" & x & "/1.18"
Ошибка № 13