May 07 2019 09:38 PM
buenas noches
estoy intentado programar una macros con el siguiente código
Sub procesar()
Dim ecuacion As String
Dim sustecuacion As String
Dim resultado As Double
Dim formula As ScriptControl
Set formula = New ScriptControl
formula.Language = "VBScript"
Dim a, b, t As Double
a = calculadora.txt_a.Value
b = calculadora.txt_b.Value
ecuacion = calculadora.txt_ecuacion.Value
sustecuacion = WorksheetFunction.Substitute(ecuacion, "t", CStr(a))
resultado = formula.Eval(sustecuacion)
Debug.Print sustecuacion & "=" & resultado
End Sub
pero en formula.Language = "VBScript" me sale un error ya intente activando las referencias Microsoft VBScript 1.0 y VBScript 5.5 pero ninguna sirve y tb esta activado Microsoft script control 1.0, necesito este código para poder iterar una ecuación.
porfavor ayúdenme gracias