Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Формулы в макрос

Автор ges, 23.05.2011, 16:02

« назад - далее »

ges

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

Alex_ST

#1
MsgBox ActiveCell.Formula вернёт формулу по-английски
MsgBox ActiveCell.Formulalocal вернёт формулу по-русски

Или чтобы удобнее было вставлять в код ВБА, можно так:

Sub GetFormula_For_VBA() ' скопировать в буфер обмена формулу из ActiveCell, готовую для вставки в код VBA
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText ActiveCell.Formula : .PutInClipboard
End With
End Sub

С уважением, Алексей

Alex_ST

#2
Ещё проще можно, оказывается...
Sub FormulaVBA()  ' получить из активной ячейки формулу листа для вставки в код
   Dim FormulaVB
   FormulaVB = InputBox("Formula", "", ActiveCell.Formula)
   FormulaVB = InputBox("FormulaLocal", "", ActiveCell.FormulaLocal)
End Sub

С уважением, Алексей

ges