VBA: передать "математическое действие" переменной

[aNJay]

Помогите решить такую задачку.
Нужно передать "математическое действие" переменной.
что то типа:

... 
fnSum(2, "+", 3)
.... 
 
Function fnSum(a As Double, x As String, b As Double) 
fnSum = ' ??? (2+3) 
End Function

p.s. перебор не канает, там не одно действие.

[doober]

Во вложении форма калькулятора.
Импортируете ее в проект VBA.
Посмотрите код,напишете функцию под себя на основе процедуры
ProcessKey

[IgorGO]

задачку решает application.Evaluate
вычисляет выражение заданное строкой.
понимает математические операции, элементарные функции, скобки...
application.Evaluate("(5-3)^3+cos(0)+log(10)") - вернет 8+1+1 = 10.

[aNJay]

спасибо, попробую.
IgorGO
В MSWord Evaluate() не работает,
есть у Ворда аналог етой функції.

[IgorGO]

Selection.InsertFormula Formula:="=(143-5*8)", NumberFormat:=""

в результате в документ вставлено поле и посчитано его значение 103.

[Казанский]

Можно использовать внешний объект - работает в VBA любого приложения и в VBS:
http://www.cyberforum.ru/vbscript-ws...ml#post3734478

[Скрипт]

Более подробное описание того, что предложено в сообщении #6.

Раннее связывание

Подключаем библиотеку объектов:
Tools - References... - MS Script Control версия.

Sub Макрос3()
    
    'Создаём переменную "oScript",
    'создаём объект "MSScriptControl.ScriptControl" и даём
    'этому объекту имя "oScript".
    'Через это имя затем работаем с этим объектом.
    Dim oScript As New MSScriptControl.ScriptControl
    
    Dim sExpression As String
    Dim dResult As Double
    
    'Помещаем в переменную математическое выражение.
    'Дробные числа нужно с точкой указывать.
    sExpression = "2+2.1"
    
    'Не знаю, зачем, но нужно выполнить эту команду.
    oScript.Language = "VBScript"
    
    'Расчёт математического выражение и помещение результата
    'в переменную "dResult".
    dResult = oScript.Eval(sExpression)
    
End Sub

Позднее связывание

Sub Макрос2()

    Dim oScript As Object
    Dim sExpression As String
    Dim dResult As Double
    
    sExpression = "2+2.1"
    
    'Создаём объект "MSScriptControl.ScriptControl" и даём этому
    'объекту имя "oScript". Через это имя затем работаем с этим объектом.
    Set oScript = CreateObject("MSScriptControl.ScriptControl")
    
    oScript.Language = "VBScript"
    
    dResult = oScript.Eval(sExpression)
    
End Sub

Примечание

В кодах показаны только принципы - результаты никуда не выводятся.

[nerv]

Сообщение от Скрипт

Более подробное описание того, что предложено в сообщении #6.

Sub Макрос3()
    
    'Не знаю, зачем, но нужно выполнить эту команду.
    oScript.Language = "VBScript"
    
End Sub

http://www.excelworld.ru/forum/2-2227-1

Сообщение от Казанский

работает в VBA любого приложения

office x64?