Como declaro una ecuación Fx, si esta la jalo desde una celda de excel para el método del trapecio

Saludos, estoy realizando este pequeño código para el método del trapecio, mi duda es como declaro Fx que es una ecuación que la jalo desde una celda de excel. En caso no se pudiera que otra forma hay de poder jalar una ecuación desde excel en visual, es q seria muy engorroso estar escribiendo ecuaciones en el código.

Dejo mi pequeño código, gracias por la respuestas

Function trapecio(n, b, a, Fx) Dim n, b, a As Double
h = (b - a) / n

c = 0
x = a

fa = Fx
x(0) = a

For i = 1 To n - 1

x(i) = x(i - 1) + h

x = x(i)
f = Fx
c = c + f

Next i

x = b

fb = Fx

trapecio = (h / 2) * (fa + 2 * c + fb)
End Function

Atentamente. Mateo sallo

1 respuesta

Respuesta
1

Para ejecutar la función desde una celda solamente escribe el nombre de tu función como cualquier otra de excel, en tu caso, por ejemplo:

En cualquier celda escribe:

=trapecio(2,8,4,3)

Para llamar la función desde un módulo, tienes que poner algo así:

sub modulo()

resultado = trapecio(2,8,4,3)

msgbox resultado

end sub

Saludos. Dam
Si es lo que necesitas.

gracias dam, creo que mi duda es que cuando ingreso mi funcion =trapecio,(2,8,4, Fx)

Fx no es un valor es una ecuacion la cual jalare de una celda.

me explico Fx= 3(X*X)+2X+1 algo asi.

mi pregunta iba si yo declaro mis primerar variables como integer como declaro esta variable Fx que no es un numero si no una ecuacion.

es que lo que pasa es q para cada problema uso distinta ecuacion..

gracias, espero que me puedas ayudar ...

Mateo

Function trapecio(n, b, a, Fx)

Dim n, b, a As Double

Dim Fx........ ?como lo declaro es una ecuacion?

h = (b - a) / n
c = 0 x = a
fa = Fx x(0) = a
For i = 1 To n - 1
x(i) = x(i - 1) + h
x = x(i) f = Fx c = c + f
Next i
x = b
fb = Fx
trapecio = (h / 2) * (fa + 2 * c + fb) End Function

¿Pero Fx es la celda donde está la ecuación?

Si vas a a hacer referencia a una celda tienes que declararla as Range

Function trapecio(n As Integer, b As Integer, a As Integer, Fx As Range)

Pero si es un texto tiene que ser as String

Function trapecio(n As Integer, b As Integer, a As Integer, Fx As String)

Prueba y me comentas

Saludos. Dam

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas