Kvadratisk ligningsmakro i Excel: 3 trin

2024 Forfatter: John Day | [email protected]. Sidst ændret: 2024-01-30 08:31

du kan nemt løse en kvadratisk ligning ved bare at gå til værktøjer-makro-køre makro. Jeg er et nyt medlem og har virkelig brug for enhver form for feedback, du kan give. Nyd ikke at bruge papir til at løse disse ligninger!

Trin 1: Opsætning af ting

Åbn Excel hvert år er okay (foretrukket 03, det var det, jeg plejede at lave denne makro). Hvis du bruger excel 07, vil det blive vist, og der vil være en lille boks, der siger makro. Klik på ikonet, og gå til optagemakro, der vises et vindue, der opsætter navnet og beskrivelserne af makroen. Når du har gjort det, skal du klikke på makroikonet igen, og et andet vindue vises, der skal være navnet på makroen i vinduet (standardnavn vil være Makro1)

Trin 2: Lav makroen

Okay nu går du til redigering på vinduet, der er kommet op, det skal være på højre side tredje ned. Når du trykker på redigeringsknappen, vises et helt nyt vindue kaldet visual basic editor. Der skal være en værktøjslinje og alt som ethvert vindue, men i vinduet skal der være et stort gråt område med et vindue kaldet Module1 (Code). Inde i modul 1 klikker du, mens du skulle skrive på det og kopierede og indsætte det på det (få sag til at slette alt, før du gør dette på modul1 -boksen.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Som Long MsgBox prompt: = "ax^{2 + bx + c = 0 ", _} Titel: = "Løsning af et kvadratisk polynom af formularen:" a = Application. InputBox (prompt: = "Indtast værdien af 'a' -koefficienten", Type: = 1) b = Application. InputBox (prompt: = "Enter værdien af 'b' -koefficienten ", Type: = 1) c = Application. InputBox (prompt: =" Indtast værdien af' c' -koefficienten ", Type: = 1) Hvis a = 0 Så er MsgBox" Ligningen er ikke kvadratisk "Ellers Hvis ((b * b) - (4 * a * c))> = 0 Derefter MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) ((2 * a)) Ellers MsgBox "Ingen reel løsning - imaginær" Slut hvis Afslut IfEnd Sub

Trin 3: Afslutning

Når vinduet har alt, fortalte jeg dig at kopiere og indsætte luk VIsual Basic Editor. Til sidst skal du gå til makrovisninger og derefter køre til den første på højre side. Der skulle være et vindue, der dukker op, klik på OK, så vises en anden boks, der vil være værdien af A i ligningen, derefter et andet, der vil være værdien af B i ligningen og derefter en anden, der vil være værdien af C. Din færdig hvis du har et problem, så fortæl mig det, og lad mig venligst give mig en slags feedback.