Makro kvadratne jednadžbe u Excelu: 3 koraka

2024 Autor: John Day | [email protected]. Zadnja izmjena: 2024-01-30 08:09

možete jednostavno riješiti kvadratnu jednadžbu samo tako što ćete otići na tools-macro-run macro. Ja sam novi član i zaista mi je potrebna bilo kakva povratna informacija koju možete dati. Uživajte u tome da ne koristite papir za rješavanje ovih jednadžbi!

Korak 1: Postavljanje stvari

otvoriti excel bilo koje godine je u redu (preferirano 03 to je ono što sam koristio za izradu ovog makronaredbe). Ako koristite excel 07, to će se vidjeti i pojavit će se mali okvir s natpisom makro. Pritisnite ikonu i idite na snimanje makroa. Pojavit će se prozor u kojem će se postaviti naziv i opis makronaredbe. Nakon što to učinite, ponovno kliknite ikonu makroa i pojavit će se drugi prozor koji bi trebao sadržavati naziv prozora (zadano ime će biti Macro1)

Korak 2: Izrada makroa

U redu, sada idete na uređivanje prozora koji se pojavio, trebao bi biti s desne strane treći prema dolje. Kada pritisnete gumb za uređivanje, pojavit će se cijeli novi prozor koji se naziva vizualni osnovni uređivač. Trebala bi postojati traka s alatima i sve poput svakog prozora, ali u prozoru bi trebala postojati velika siva zona s prozorom koji se zove Modul1 (Kod). Unutar Modula1 kliknite dok ste ga namjeravali otkucati i kopirajte i zalijepite ovo na njega (neka vas briše da sve izbrišete prije nego što to učinite u okviru Modul1.) Podkvadratna formula () Dim a Dugačka Dim B Dugačka Dim c Kao Long MsgBox upit: = "ax^{2 + bx + c = 0 ", _} Naslov: = "Rješavanje kvadratnog polinoma oblika:" a = Application. InputBox (prompt: = "Unesite vrijednost 'a' koeficijenta", Type: = 1) b = Application. InputBox (prompt: = "Enter vrijednost 'b' koeficijenta ", Tip: = 1) c = Application. InputBox (upit: =" Unesite vrijednost koeficijenta 'c' ", Tip: = 1) Ako je a = 0 Tada je MsgBox" Jednačina nije kvadratno "Ostalo Ako ((b * b) - (4 * a * c))> = 0 Tada je MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Ostalo MsgBox "Nema stvarnog rješenja - zamišljeno" Kraj Ako Završi IfEnd Sub

Korak 3: Dovršavanje

Kad taj prozor ima sve što sam vam rekao da kopirate i zalijepite, zatvorite VIsual Basic Editor. Na kraju idite na makroe za pregled makroa, a zatim pokrenite prvi s desne strane. Trebao bi se pojaviti prozor koji se pojavi, kliknite U redu, tada će se pojaviti još jedan okvir koji će biti vrijednost A u jednadžbi, zatim drugi koji će biti vrijednost B u jednadžbi, a zatim drugi koji će biti vrijednost C. Učinjeno ako imate problem, recite mi i ostavite mi neku vrstu povratne informacije.