Μακροεντολή τετραγωνικής εξίσωσης στο Excel: 3 βήματα

2024 Συγγραφέας: John Day | [email protected]. Τελευταία τροποποίηση: 2024-01-30 08:39

μπορείτε εύκολα να λύσετε μια τετραγωνική εξίσωση πηγαίνοντας απλά σε μακροεντολή εργαλείων-μακρο-λειτουργίας. Είμαι νέο μέλος και χρειάζομαι πραγματικά κάθε είδους ανατροφοδότηση που μπορείτε να δώσετε. Απολαύστε τη μη χρήση χαρτιού για την επίλυση αυτών των εξισώσεων!

Βήμα 1: Ρύθμιση των πραγμάτων

το άνοιγμα του Excel κάθε χρόνο είναι εντάξει (προτιμώμενο 03 ήταν αυτό που χρησιμοποιούσα για να κάνω αυτήν τη μακροεντολή). Εάν χρησιμοποιείτε το excel 07 θα είναι υπό προβολή και θα υπάρχει ένα μικρό πλαίσιο που λέει μακροεντολή. Κάντε κλικ στο εικονίδιο και μεταβείτε στην εγγραφή μακροεντολής, θα εμφανιστεί ένα παράθυρο που θα ρυθμίσει το όνομα και τις περιγραφές της μακροεντολής. Αφού το κάνετε αυτό, κάντε ξανά κλικ στο εικονίδιο μακροεντολής και θα εμφανιστεί ένα άλλο παράθυρο, στο παράθυρο θα πρέπει να υπάρχει το όνομα της μακροεντολής εκεί (το προεπιλεγμένο όνομα θα είναι Macro1)

Βήμα 2: Κάνοντας τη μακροεντολή

Εντάξει, τώρα πηγαίνετε για επεξεργασία στο παράθυρο που εμφανίστηκε, θα πρέπει να βρίσκεται στη δεξιά πλευρά τρίτο προς τα κάτω. Όταν πατάτε το κουμπί επεξεργασίας θα εμφανιστεί ένα εντελώς νέο παράθυρο που ονομάζεται visual basic editor. Θα πρέπει να υπάρχει μια γραμμή εργαλείων και όλα όπως κάθε παράθυρο, αλλά στο παράθυρο θα πρέπει να υπάρχει μια μεγάλη γκρίζα περιοχή με ένα παράθυρο που ονομάζεται Module1 (Code). Μέσα στο Module1 κάντε κλικ καθώς επρόκειτο να το πληκτρολογήσετε και αντιγράψτε και επικολλήστε αυτό (κάντε μήνυση για να διαγράψετε τα πάντα πριν το κάνετε στο πλαίσιο Module1.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Ως προτροπή Long MsgBox: = "ax^{2 + bx + c = 0 ", _} Τίτλος: = "Επίλυση τετραγωνικού πολυωνύμου της φόρμας:" a = Application. InputBox (prompt: = "Εισαγάγετε την τιμή του συντελεστή 'a', Type: = 1) b = Application. InputBox (prompt: =" Enter η τιμή του συντελεστή 'b' ", Τύπος: = 1) c = Application. InputBox (προτροπή: =" Εισαγάγετε την τιμή του συντελεστή "c" ", Τύπος: = 1) Εάν a = 0 Τότε MsgBox" Η εξίσωση δεν είναι τετραγωνικό "Αλλιώς Αν ((b * b) - (4 * a * c))> = 0 Τότε MsgBox ((-b + (Sqr ((b * b) - (4 * a * c))))) / (2 * α)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) ((2 * a)) Else MsgBox "No Real Solution - Imantinary" End If Τέλος IfEnd Sub

Βήμα 3: Ολοκλήρωση

Όταν αυτό το παράθυρο έχει όλα όσα σας είπα να αντιγράψετε και να επικολλήσετε κλείστε το πρόγραμμα επεξεργασίας VIsual Basic. Τέλος, μεταβείτε στις μακροεντολές μακρο-προβολής και, στη συνέχεια, εκτελέστε την πρώτη στη δεξιά πλευρά. Θα πρέπει να εμφανιστεί ένα παράθυρο που κάνει κλικ στο κουμπί OK, στη συνέχεια θα εμφανιστεί ένα άλλο πλαίσιο που θα είναι η τιμή του Α στην εξίσωση, ένα άλλο που θα είναι η τιμή του Β στην εξίσωση και στη συνέχεια ένα άλλο που θα είναι η τιμή του C. Τέλος εάν έχετε πρόβλημα, πείτε μου και παρακαλώ αφήστε μου κάποιου είδους σχόλια.