Taula de continguts:

Macro d'equacions quadràtiques a Excel: 3 passos
Macro d'equacions quadràtiques a Excel: 3 passos
Anonim
Macro d’equacions quadràtiques a Excel
Macro d’equacions quadràtiques a Excel

Podeu resoldre fàcilment una equació de segon grau amb només anar a macro-tools-run. Sóc un membre nou i realment necessito qualsevol tipus de feedback que pugueu donar. Gaudeix de no utilitzar cap paper per resoldre aquestes equacions.

Pas 1: configurar les coses

Arranjament de les coses
Arranjament de les coses

obrir Excel qualsevol any està bé (prefereixo 03 això és el que feia servir per fer aquesta macro). Si utilitzeu Excel 07, estarà a la vista i hi haurà un petit quadre que diu macro. Feu clic a la icona i aneu a enregistrar la macro; apareixerà una finestra que configurarà el nom i les descripcions de la macro. Després de fer-ho, torneu a fer clic a la icona de macro i apareixerà una altra finestra, a la finestra hi hauria d'haver el nom de la macro (el nom per defecte serà Macro1)

Pas 2: fer la macro

Fent la macro
Fent la macro

Molt bé, ara vés a editar a la finestra que ha aparegut, hauria d'estar a la dreta tercer avall. Quan premeu el botó d'edició apareixerà una finestra completament nova anomenada editor visual bàsic. Hi hauria d’haver una barra d’eines i tot com qualsevol finestra, però a la finestra hi hauria d’haver una àrea gran de color gris amb una finestra anomenada Mòdul1 (Codi). Feu clic a l'interior del mòdul1 mentre escrivíeu-lo i copieu-lo i enganxeu-lo (demaneu que ho suprimiu tot abans de fer-ho al quadre del mòdul 1). Com a missatge Long MsgBox: = "ax2 + bx + c = 0 ", _ Títol: = "Resolució d'un polinomi quadràtic del formulari:" a = Application. InputBox (prompt: = "Introduïu el valor del coeficient" a "), escriviu: = 1) b = Application. InputBox (prompt: =" Enter el valor del coeficient "b", escriviu: = 1) c = Application. InputBox (sol·licitud: = "Introduïu el valor del coeficient" c "), escriviu: = 1) Si a = 0 llavors MsgBox" L'equació no és quadràtic / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) La resta MsgBox "Sense solució real - imaginària" Finalitza si Finalitza IfEnd Sub

Pas 3: Acabar

Acabant
Acabant

Quan aquesta finestra tingui tot el que us he dit, que copieu i enganxeu, tanqueu l'editor bàsic de VIsual. Finalment, aneu a les macros de visualització macro i, a continuació, aneu a executar la primera a la dreta. Hi hauria d'haver una finestra que aparegui, feu clic a D'acord i apareixerà un altre quadre que tindrà el valor de A a l'equació, després un altre que tindrà el valor de B a l'equació i, a continuació, un altre que tindrà el valor de C. si teniu algun problema, digueu-me i deixeu-me algun comentari.

Recomanat: