Vierkantsvergelijking Macro op Excel (2 / 3 stap)

Stap 2: De Macro maken

Oke nu ga je naar bewerken op het venster dat heeft kwam opwaarts op moet op de rechterhand kant derde down. Wanneer u op de knop bewerken is een geheel nieuw venster verschijnt genaamd visual basic-editor. Er moet een werkbalk en alles als een venster, maar in het venster moet er een grote grijze gebied met een venster met de naam Module1(Code). Binnen de de Module1 Klik op zoals u ging op het typen en kopieer en plak dit op het (maken aanklagen u alles verwijderen voordat u dit doen op het vak Module1.)
Sub QuadraticFormula()
Dim a zo lang
Dim b zo lang
Dim c zo lang
MsgBox prompt: = "ax^{2 + bx + c = 0", _}
Titel: = "oplossen van een kwadratische veelterm van het formulier:"
een = Application.InputBox (prompt: = "Geef de waarde van de 'a' coëfficiënt", Type: = 1)
b = Application.InputBox (prompt: = "Geef de waarde van de coëfficiënt van de 'b'", Type: = 1)
c = Application.InputBox (prompt: = "Geef de waarde van de coëfficiënt van de 'c'", Type: = 1)
Als een = 0 Then
MsgBox "de vergelijking is niet kwadratische"
Anders
Als ((b * b)-(4 * een * c)) > = 0 Then
MsgBox ((-b + (Sqr ((b * b)-(4 * een * c))) / (2 * een))
MsgBox ((- b - (Sqr ((b * b)-(4 * een * c))) / (2 * een))
Anders
MsgBox "Geen echte oplossing - imaginaire"
End If
End If
End Sub