Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
Можно.
Кстати, зачем хранить и формулу целиком строкой, и коэффициенты, если формула одна?
Если в настоящее время имеется множество формул-строк, то можно
1. "добывать" коэффициенты и считать формулу.
2. без "добывания" коэффициентов, как-то так:

Public Function Result(Str As String, X As Double) As Double     Dim strTemp As String          If Len(Str & "") = 0 Then Exit Function          strTemp = Replace(Str, "х", "x") 'х-русскую на x-аглицкую     strTemp = Replace(strTemp, "x3", CStr(X) & "^3")     strTemp = Replace(strTemp, "x2", CStr(X) & "^2")     strTemp = Replace(strTemp, "x", CStr(X))     strTemp = Replace(strTemp, ",", ".") 'Debug.Print strTemp     Result = Eval(strTemp) End Function