Используя введенную пользователем формулу в функции Excel VBA?

Question

Очень новый для Excel VBA кодирования.В настоящее время у меня возникла проблема, так как я пытаюсь использовать функцию, введенную пользователем (например, «x ^ 2 + 2y ^ 2 + 4»). В моей программе VBA есть функция, которая должна получить эту формулуиз электронной таблицы, чтобы он мог оценить его по разным значениям. Проблема, с которой я сталкиваюсь, заключается в том, что когда я использую поле ввода для формулы, тип данных является вариантным, поэтому функция не может быть оценена, так как тип данных неправильный. Что я могу сделатьвывести введенную пользователем формулу и использовать ее в качестве моей функции в VBA?

Answer 1

Вам нужна функция Evaluate ():

Sub CalcFunc()
    Dim func As String, xValue, yValue, newFunc As String

    Const DEFAULT_FUNC = "x^2+2*y^2+4"
    func = "=" & InputBox("Enter function:", , DEFAULT_FUNC)
    xValue = InputBox("XValue:")
    yValue = InputBox("YValue:")
    newFunc = Replace(Replace(func, "x", xValue), "y", yValue)

    MsgBox "Function: " & func & vbCrLf & "X: " & xValue & vbCrLf & "Y: " & yValue & vbCrLf & "Answer: " & Application.Evaluate(newFunc)
End Sub