Makro kvadratne jednadžbe u Excelu: 3 koraka

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

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

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, bit će vidljiv i bit će 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 u kojemu bi trebao biti naziv makronaredbe (zadani naziv bit će Macro1)

Korak 2: Izrada makronaredbi

U redu, sada idete uređivati prozor 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 alatna traka i sve poput svakog prozora, ali u prozoru bi trebalo biti veliko sivo područje s prozorom koji se zove Modul1 (kôd). Unutar Modula1 kliknite dok ste ga namjeravali upisati i kopirati i zalijepiti ovo na njega (neka vas tuži da izbrišete sve prije nego što to učinite u okviru Modul 1). Kao Long MsgBox upit: = "ax^{2 + bx + c = 0 ", _} Naslov: = "Rješavanje kvadratnog polinoma oblika:" a = Application. InputBox (prompt: = "Unesite vrijednost koeficijenta 'a'", Type: = 1) b = Application. InputBox (prompt: = "Enter vrijednost 'b' koeficijenta ", Vrsta: = 1) c = Application. InputBox (prompt: =" Unesite vrijednost koeficijenta "c" ", Type: = 1) If a = 0 then MsgBox" Jednadžba nije kvadratni "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)) Inače 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 makronaredbe za pregled makronaredbi, a zatim pokrenite prvu 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 problema, recite mi i ostavite mi povratnu informaciju.