Ecuación cuadrática Macro en Excel (2 / 3 paso)

Paso 2: Hacer la Macro

Bueno ahora vas a editar en la ventana que se subió debe estar en el lado de mano derecha tercera abajo. Al pulsar el botón Editar aparecerá una ventana nueva llamada editor de visual basic. Debe existir una barra de herramientas y todo como cualquier ventana, pero en la ventana debe haber un área gris grande con una ventana llamada Module1(Code). Dentro de la el Module1, haga clic en como se va a escribir en él y copiar y pegar esto en él (hacer demandar usted borrar todo antes de hacer esto en la caja de Module1.)
Sub QuadraticFormula()
Dim a tiempo
Dim b mientras
Dim c mientras
MsgBox prompt: = "ax^{2 + bx + c = 0", _}
Title: = "para resolver un polinomio cuadrático de la forma:"
un = Application.InputBox (prompt: = "Ingresar el valor del coeficiente 'a'", tipo: = 1)
b = Application.InputBox (prompt: = "Ingresar el valor del coeficiente"b"", tipo: = 1)
c = Application.InputBox (prompt: = "Ingresar el valor del coeficiente"c"", tipo: = 1)
Si a = 0 entonces
MsgBox "la ecuación no es cuadrática"
Otra cosa
Si ((b * b)-(4 * a * c)) > = 0 entonces
MsgBox ((-b + (Sqr ((b * b)-(4 * a * c))) / (2 * a))
MsgBox ((- b - (Sqr ((b * b)-(4 * a * c))) / (2 * a))
Otra cosa
MsgBox "No hay solución Real - imaginario"
End If
End If
End Sub