Macro de ecuación cuadrática en Excel: 3 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:45

puedes resolver fácilmente una ecuación cuadrática con solo ir a herramientas-macro-ejecutar macro. Soy un miembro nuevo y realmente necesito cualquier tipo de retroalimentación que puedas dar. ¡Disfruta de no usar ningún papel para resolver estas ecuaciones!

Paso 1: Configurar las cosas

abrir Excel cualquier año está bien (preferido 03 eso es lo que solía hacer esta macro). Si está utilizando Excel 07, estará a la vista y habrá un pequeño cuadro que dice macro. Haga clic en el icono y vaya a grabar macro, aparecerá una ventana que configurará el nombre y las descripciones de la macro. Después de hacer eso, haga clic en el icono de macro nuevamente y aparecerá otra ventana, debería haber en la ventana el nombre de la macro allí (el nombre predeterminado será Macro1)

Paso 2: hacer la macro

Bien, ahora vaya a editar en la ventana que ha aparecido, debería estar en el tercer lado derecho hacia abajo. Cuando presiona el botón editar, aparecerá una ventana completamente nueva llamada editor visual básico. Debería haber una barra de herramientas y todo como cualquier ventana, pero en la ventana debería haber una gran área gris con una ventana llamada Módulo1 (Código). Dentro del Module1, haga clic en el botón que iba a escribir en él y copie y pegue esto (haga que elimine todo antes de hacer esto en el cuadro Module1). Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Como indicador Long MsgBox: = "ax^{2 + bx + c = 0 ", _} Título: = "Resolver un polinomio cuadrático de la forma:" a = Application. InputBox (indicador: = "Ingrese el valor del coeficiente 'a'", Tipo: = 1) b = Application. InputBox (indicador: = "Ingrese el valor del coeficiente 'b' ", Escriba: = 1) c = Application. InputBox (prompt: =" Ingrese el valor del coeficiente 'c' ", Escriba: = 1) Si a = 0 Entonces MsgBox" La ecuación no es cuadrático "Else If ((b * b) - (4 * a * c))> = 0 Then MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Else MsgBox "Sin solución real - Imaginario" Fin si End IfEnd Sub

Paso 3: Terminando

Cuando esa ventana tenga todo lo que le dije que copie y pegue, cierre el VIsual Basic Editor. Finalmente, vaya a las macros de vista macro y luego vaya a ejecutar en el lado derecho la primera. Debería haber una ventana que aparezca, haga clic en Aceptar, luego aparecerá otro cuadro que será el valor de A en la ecuación, luego otro que será el valor de B en la ecuación y luego otro que será el valor de C. Listo. Si tiene un problema, por favor dígame y déjeme algún tipo de comentario.