Использовать математическое уравнение для ввода математического расчета в VBA Exccel

Question

Я делаю численное интегрирование в Excel VBA, и я хочу получить уравнение от пользователя, а не вставлять его в ячейку.

Пример

Пользователь дает мне х^3 + х^2 + 2, что F (X)

В А1, у меня есть номер 2, и я оценку F (X) в B1.

Как сказать, что уравнение, введенное пользователем, равно A1 = 3 + A2^2 + 2. Мне просто нужно преобразование в одну ячейку.

Я использую Val (InputBox())

Спасибо за помощь

Answer 1

Функция Application Evaluate может решить формулу, полученные от пользователя, но вы должны найти то образом преобразовать х в ссылка на ячейку, которая может быть правильно понята. Для этого может потребоваться имя рабочего листа.

Ваш х^3 + х^2 + 2 пример заменяет два х значения с A1 и A2. Это может быть лучше, чем x^3 + y^2 + 2, так что между А1 и А2 нет никакой двусмысленности.

Sub f_of_x_and_y() 
    Dim fmla As String, str As String 

    fmla = InputBox("enter formula") 

    With Worksheets("Sheet2") 
     str = Replace(Replace(fmla, "x", .Range("A1").Address(external:=True)), _ 
            "y", .Range("A2").Address(external:=True)) 
     .Range("A3") = Application.Evaluate(str) 
    End With 

End Sub 

Answer 2

Если пользователь вводит х или Х, и вам нужно только заменить X с A1.cell.value затем использовать это:

Sub test() 
formula_user = InputBox("Please type formula") 
Range("B1").Formula = "=" & Replace(LCase(formula_user), "x", "A1") 
End Sub 

х заменить А1 в формуле от пользователя InputBox , Это может быть верхний или нижний регистр в пользовательском вводе

Answer 3

Sub variable_input() 
Dim userFormula$ 
Dim myVar& 

myVar = 2 
userFormula = InputBox("What is the formula?") 
Debug.Print userFormula 
userFormula = Replace(userFormula, "x", myVar) 
Debug.Print userFormula 

Dim theAnswer$ 
theAnswer = Val(userFormula) 
Debug.Print theAnswer 
End Sub 

Answer 4

Вы можете заменить все «x» на строку «A1». Не забудьте добавить «=» спереди ...

Sub TestUserEquation() 

    Dim strUserEquation As String 

    strUserEquation = LCase(InputBox("Please enter your equation:", "Equation InputBox")) 

    If strUserEquation <> "" Then 
     Cells(1, 2) = "=" & Replace(strUserEquation, "x", "A1") 
    Else 
     Cells(1, 2) = "No equation entered." 
    End If 


End Sub