Macro di equazione quadratica su Excel: 3 passaggi

2024 Autore: John Day | [email protected]. Ultima modifica: 2024-01-30 10:06

puoi facilmente risolvere un'equazione quadratica semplicemente andando su strumenti-macro-esegui macro. Sono un nuovo membro e ho davvero bisogno di qualsiasi tipo di feedback tu possa dare. Divertiti a non usare carta per risolvere queste equazioni!

Passaggio 1: impostare le cose

aprire excel ogni anno va bene (preferito 03 questo è quello che ho usato per creare questa macro). Se stai usando excel 07, sarà visibile e ci sarà una piccola casella che dice macro. Fare clic sull'icona e andare a registrare macro apparirà una finestra che imposterà il nome e le descrizioni della macro. Dopo averlo fatto, fai nuovamente clic sull'icona della macro e apparirà un'altra finestra nella finestra dovrebbe esserci il nome della macro (il nome predefinito sarà Macro1)

Passaggio 2: creazione della macro

Ok ora vai a modificare nella finestra che è apparsa dovrebbe essere sul lato destro terzo in basso. Quando premi il pulsante di modifica, apparirà una finestra completamente nuova chiamata editor visual basic. Dovrebbe esserci una barra degli strumenti e tutto come qualsiasi finestra, ma nella finestra dovrebbe esserci una grande area grigia con una finestra chiamata Modulo1 (Codice). All'interno di Module1 fai clic su come stavi per digitarlo e copia e incollalo su di esso (fai causa di eliminare tutto prima di farlo sulla casella Module1.)Sub QuadraticFormula() Dim a As Long Dim b As Long Dim c Come prompt MsgBox lungo: = "ax"^{2 + bx + c = 0", _} Title:="Risoluzione di un polinomio quadratico della forma:" a = Application. InputBox(prompt:="Inserisci il valore del coefficiente 'a'", Type:=1) b = Application. InputBox(prompt:="Enter il valore del coefficiente 'b'", Tipo:=1) c = Application. InputBox(prompt:="Inserisci il valore del coefficiente 'c'", Tipo:=1) Se a = 0 Allora MsgBox "L'equazione non è quadratico" 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 "Nessuna soluzione reale - Immaginaria" End If End IfEnd Sub

Passaggio 3: terminare

Quando quella finestra ha tutto ciò che ti ho detto di copiare e incollare, chiudi VIsual Basic Editor. Infine vai alle macro di visualizzazione macro quindi vai a eseguire sul lato destro il primo. Dovrebbe apparire una finestra, fare clic su OK, quindi apparirà un'altra casella che sarà il valore di A nell'equazione, quindi un'altra che sarà il valore di B nell'equazione e poi un'altra che sarà il valore di C. Fatto se hai un problema per favore dimmelo e per favore lasciami una sorta di feedback.