Kazalo:

Makro kvadratne enačbe v Excelu: 3 koraki
Makro kvadratne enačbe v Excelu: 3 koraki

Video: Makro kvadratne enačbe v Excelu: 3 koraki

Video: Makro kvadratne enačbe v Excelu: 3 koraki
Video: HiCAD 2020 - Excel Kopplung (Basis für Webshop) 2024, December
Anonim
Makro kvadratnih enačb v Excelu
Makro kvadratnih enačb v Excelu

lahko preprosto rešite kvadratno enačbo, tako da preprosto odprete orodje-makro-run makro. Jaz sem nov član in res potrebujem kakršno koli povratno informacijo, ki jo lahko posredujete. Uživajte, če teh enačb ne uporabljate nobenega papirja!

Korak: Nastavite stvari

Postavljanje stvari
Postavljanje stvari

odpreti excel vsako leto je v redu (raje 03 to sem uporabil za izdelavo tega makra). Če uporabljate excel 07, bo na ogled in prikazalo se bo majhno polje z napisom makro. Kliknite ikono in pojdite na snemanje makra, odpre se okno, v katerem bodo nastavljeni ime in opisi makra. Ko to storite, znova kliknite ikono makra in prikazalo se bo drugo okno, v oknu bi moralo biti ime makra (privzeto ime bo Macro1)

2. korak: Izdelava makra

Izdelava makra
Izdelava makra

V redu, zdaj pojdite urejati okno, ki se je pojavilo, bi moralo biti na desni strani tretje navzdol. Ko pritisnete gumb za urejanje, se prikaže popolnoma novo okno z imenom vizualni osnovni urejevalnik. Morala bi biti orodna vrstica in vse tako kot vsako okno, vendar mora biti v oknu veliko sivo območje z oknom, imenovanim Modul1 (koda). Znotraj modula 1 kliknite, kot ste nameravali vnesti vanj, in ga kopirajte in prilepite (tožite, da vse izbrišete, preden to storite v polju Modul 1.) Pod kvadratna oblika Kot dolg poziv MsgBox: = "ax2 + bx + c = 0 ", _ Naslov: = "Reševanje kvadratnega polinoma obrazca:" a = Application. InputBox (poziv: = "Vnesite vrednost koeficienta 'a'", Vrsta: = 1) b = Application. InputBox (poziv: = "Enter vrednost 'b' koeficienta ", Vrsta: = 1) c = Application. InputBox (poziv: =" Vnesite vrednost koeficienta "c" ", Vrsta: = 1) Če je a = 0 Potem MsgBox" Enačba ni kvadratno "Drugače če ((b * b) - (4 * a * c))> = 0 Potem je MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Sicer MsgBox "Ni prave rešitve - namišljeno" Konec Če Konec IfEnd Sub

3. korak: Dokončanje

Dokončanje
Dokončanje

Ko ima to okno vse, kar sem vam povedal za kopiranje in lepljenje, zaprite osnovni urejevalnik VIsual. Na koncu pojdite na makre za ogled makrov, nato pa zaženite prvega na desni strani. Pojaviti se mora okno, kliknite V redu, nato se bo pojavilo drugo polje, ki bo vrednost A v enačbi, nato drugo, ki bo vrednost B v enačbi, in drugo, ki bo vrednost C. Vaše opravljeno če imate težave, mi to povejte in mi pustite kakšno mnenje.

Priporočena: