Quadratisches Gleichungsmakro in Excel - Gunook

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:23

Sie können eine quadratische Gleichung ganz einfach lösen, indem Sie einfach auf Werkzeuge-Makro-Makro ausführen gehen. Ich bin ein neues Mitglied und brauche wirklich jede Art von Feedback, das Sie geben können. Genießen Sie es, diese Gleichungen nicht auf Papier zu lösen!

Schritt 1: Dinge einrichten

Öffnen Sie Excel jedes Jahr ist in Ordnung (bevorzugt 03, das habe ich verwendet, um dieses Makro zu erstellen). Wenn Sie Excel 07 verwenden, wird es angezeigt und es wird ein kleines Kästchen mit der Aufschrift Makro angezeigt. Klicken Sie auf das Symbol und gehen Sie zu Makro aufzeichnen. Es erscheint ein Fenster, in dem der Name und die Beschreibungen des Makros eingerichtet werden. Nachdem Sie dies getan haben, klicken Sie erneut auf das Makrosymbol und ein weiteres Fenster wird angezeigt, in dem der Name des Makros angezeigt werden sollte (Standardname ist Makro1)

Schritt 2: Das Makro erstellen

Okay, jetzt gehen Sie zum Bearbeiten in dem Fenster, das aufgetaucht ist. Es sollte sich auf der rechten Seite dritter unten befinden. Wenn Sie auf die Schaltfläche Bearbeiten klicken, erscheint ein ganz neues Fenster namens Visual Basic Editor. Es sollte eine Symbolleiste und alles wie jedes Fenster geben, aber im Fenster sollte ein großer grauer Bereich mit einem Fenster namens Module1(Code) sein. Klicken Sie in das Modul1, wie Sie es eingeben möchten, und kopieren Sie es und fügen Sie es ein (stellen Sie sicher, dass Sie alles löschen, bevor Sie dies im Feld Module1 tun.)Sub QuadraticFormula() Dim a As Long Dim b As Long Dim c As Long MsgBox-Eingabeaufforderung:="ax^{2 + bx + c = 0", _} Title:="Auflösen eines quadratischen Polynoms der Form:" a = Application. InputBox(prompt:="Geben Sie den Wert des 'a'-Koeffizienten ein", Type:=1) b = Application. InputBox(prompt:="Enter der Wert des 'b'-Koeffizienten", Typ:=1) c = Application. InputBox(prompt:="Geben Sie den Wert des 'c'-Koeffizienten ein", Typ:=1) Wenn a = 0 Then MsgBox "Die Gleichung ist nicht quadratisch" Sonst 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 "Keine reelle Lösung - Imaginär" End If End IfEnd Sub

Schritt 3: Fertigstellen

Wenn dieses Fenster alles enthält, was ich Ihnen zum Kopieren und Einfügen gesagt habe, schließen Sie den VIsual Basic Editor. Gehen Sie schließlich zu Makros in der Makroansicht und führen Sie auf der rechten Seite das erste aus. Es sollte ein Fenster erscheinen, das sich öffnet, klicken Sie auf OK, dann erscheint ein weiteres Feld mit dem Wert von A in der Gleichung, dann ein weiteres mit dem Wert von B in der Gleichung und dann ein weiteres mit dem Wert von C. Fertig Wenn Sie ein Problem haben, sagen Sie es mir bitte und hinterlassen Sie mir bitte ein Feedback.