Unidad 4. VBA. Más estructuras (XIV)

Ejemplo 26

Dada la ecuación cuadrática , las raíces de esta ecuación son:

Estas raíces existen siempre que el valor del radical es no negativo.

Escriba una función que permita calcular las raíces de una ecuación cuyos coeficientes son conocidos y se ingresan en tres celdas de una hoja.

Solución

Daremos por nombre a la función: FRaiz1 aquella función que nos devuelve la primera raíz y FRAiz2 a la que devuelve la segunda raíz. En cuanto a los parámetros serán A, B y C. El código correspondiente es el que sigue.

Function FRaiz1(a, b, c)

If (b * b - 4 * a * c < 0) Then

MsgBox "Las raíces son imagináreas"

Return

Else

FRaiz1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a)

End If

End Function

Function FRaiz2(a, b, c)

If (b * b - 4 * a * c < 0) Then

MsgBox "Las raíces son imagináreas"

Return

Else

FRaiz2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a)

End If

End Function

Cómo usar esta función de usuario

Una vez que ha creado una determinada función, para verificar su adición al conjunto de funciones, haga uso del asistente y seleccione la categoría de "Funciones definidas por el usuario". Allí encontrará una lista de ellas.

Para usarla, puede hacer uso del asistente de funciones o digitar en la celda donde desee el resultado como sigue:

= FRaiz1(A1,B1,C1) ' Suponiendo que A, B y C están en A1, B1 y C1

= FRaiz2(A1,B1,C1) ' Suponiendo que A, B y C están en A1, B1 y C1

Con ello obtendrá la primera y segunda raíz de la ecuación respectiva.

Noviembre-2010

Pág. 4.14