Innholdsfortegnelse:

Makro for kvadratisk ligning på Excel: 3 trinn
Makro for kvadratisk ligning på Excel: 3 trinn

Video: Makro for kvadratisk ligning på Excel: 3 trinn

Video: Makro for kvadratisk ligning på Excel: 3 trinn
Video: OUKITEL C21 PRO - ДЕТАЛЬНЫЙ ОБЗОР КРАСИВОГО СМАРТФОНА 2024, Juni
Anonim
Kvadratisk ligningsmakro på Excel
Kvadratisk ligningsmakro på Excel

du kan enkelt løse en kvadratisk ligning ved bare å gå til verktøy-makro-kjøre makro. Jeg er et nytt medlem og trenger virkelig noen form for tilbakemelding du kan gi. Nyt ikke å bruke papir for å løse disse ligningene!

Trinn 1: Sette opp ting

Sette opp ting
Sette opp ting

Åpne Excel hvert år er greit (foretrukket 03 er det jeg brukte til å lage denne makroen). Hvis du bruker excel 07, vil det være synlig, og det vil være en liten boks som sier makro. Klikk på ikonet og gå til makroopptak, et vindu vil vises, og det vil sette opp navnet og beskrivelsene av makroen. Etter at du har gjort det, klikker du på makroikonet igjen, og et nytt vindu vil dukke opp. Det skal være navnet på makroen der (standardnavn vil være Makro1)

Trinn 2: Lag makroen

Lag makroen
Lag makroen

Ok, nå går du til redigering på vinduet som har kommet opp, det skal være på høyre side, tredje ned. Når du trykker på redigeringsknappen, vises et helt nytt vindu som kalles visual basic editor. Det skal være en verktøylinje og alt som ethvert vindu, men i vinduet skal det være et stort grått område med et vindu som heter Module1 (Code). Inne i modulen 1 klikker du mens du skulle skrive på den og kopierer og limer den inn på den (be om at du sletter alt før du gjør dette på modul1 -boksen.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Som Long MsgBox prompt: = "ax2 + bx + c = 0 ", _ Tittel: = "Løse et kvadratisk polynom av skjemaet:" a = Application. InputBox (prompt: = "Skriv inn verdien til 'a' -koeffisienten", Type: = 1) b = Application. InputBox (prompt: = "Enter verdien av 'b' -koeffisienten ", Type: = 1) c = Application. InputBox (prompt: =" Skriv inn verdien til' c' -koeffisienten ", Type: = 1) Hvis a = 0 Deretter MsgBox" Ligningen er ikke kvadratisk "Ellers Hvis ((b * b) - (4 * a * c))> = 0 Deretter MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Ellers MsgBox "Ingen reell løsning - imaginær" Slutt hvis Avslutt IfEnd Sub

Trinn 3: Fullfør

Ferdig
Ferdig

Når vinduet har alt, ba jeg deg om å kopiere og lime inn, lukke VIsual Basic Editor. Til slutt går du til makrovisningsmakroer, og deretter går du til å kjøre på høyre side den første. Det skal være et vindu som dukker opp, klikk OK, så vil en annen boks vises som vil være verdien av A i ligningen, deretter en annen som vil være verdien av B i ligningen og deretter en annen som vil være verdien av C. Du er ferdig Hvis du har et problem, vennligst fortell meg det og vær så snill å gi meg en slags tilbakemelding.

Anbefalt: