Toisen asteen yhtälömakro Excelissä: 3 vaihetta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:04

Voit helposti ratkaista toisen asteen yhtälön siirtymällä vain työkalut-makro-suoritettavaan makroon. Olen uusi jäsen ja tarvitsen todella kaikenlaista palautetta, jonka voit antaa.

Vaihe 1: Asioiden asettaminen

open excel tahansa vuosi on kunnossa (mieluiten 03, jota käytin tämän makron tekemiseen). Jos käytät exceliä 07, se on näkyvissä ja siellä on pieni laatikko, jossa lukee makro. Napsauta kuvaketta ja siirry nauhoittamaan makroa. Näkyviin tulee ikkuna, jossa asetetaan makron nimi ja kuvaukset. Kun olet tehnyt tämän, napsauta makrokuvaketta uudelleen ja näkyviin tulee toinen ikkuna, jossa ikkunassa pitäisi olla makron nimi (oletusnimi on Makro1)

Vaihe 2: Makron tekeminen

Okei, nyt siirryt muokkaamaan esiin tulevaa ikkunaa, sen pitäisi olla oikealla puolella kolmanneksi alaspäin. Kun painat muokkauspainiketta, avautuu kokonaan uusi ikkuna nimeltä visual basic editor. Siellä pitäisi olla työkalurivi ja kaikki, kuten missä tahansa ikkunassa, mutta ikkunassa pitäisi olla suuri harmaa alue, jossa on ikkuna nimeltä Module1 (Code). Napsauta Module1: n sisällä kirjoittaessasi sitä ja kopioi ja liitä se siihen (poista kaikki, ennen kuin teet tämän Module1 -ruudussa.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Kuten Long MsgBox -kehote: = "kirves^{2 + bx + c = 0 ", _} Otsikko: = "Lomakkeen neliöpolyomiaalin ratkaiseminen:" a = Application. InputBox (prompt: = "Syötä kerroimen" a "arvo, Type: = 1) b = Application. InputBox (prompt: =" Enter b -kerroimen arvo, tyyppi: = 1) c = Application. InputBox (prompt: = "Syötä" c "-kertoimen arvo", tyyppi: = 1) Jos a = 0, niin MsgBox "Yhtälö ei ole toisen asteen "Muuten Jos ((b * b) - (4 * a * c))> = 0 Sitten MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Muu MsgBox "Ei todellista ratkaisua - kuvitteellinen" Lopeta Lopeta IfEnd Sub

Vaihe 3: Viimeistely

Kun ikkunassa on kaikki, mitä käskin kopioida ja liittää, sulje VIsual Basic Editor. Siirry lopuksi makronäkymän makroihin ja suorita sitten ensimmäinen oikealla puolella. Siellä pitäisi olla ikkuna, joka avautuu ja napsauta OK, jolloin ilmestyy toinen ruutu, joka on A: n arvo yhtälössä, toinen, joka on B: n arvo yhtälössä ja sitten toinen, joka on C: n arvo. jos sinulla on ongelma, kerro minulle ja jätä minulle jonkinlaista palautetta.