Másodfokú egyenlet makró Excelben: 3 lépés

2024 Szerző: John Day | [email protected]. Utoljára módosítva: 2024-01-30 09:44

könnyedén megoldhatja a másodfokú egyenleteket, ha csak az eszközök-makró futtatása makróba megy. Új tag vagyok, és valóban szükségem van bármilyen visszajelzésre. Élvezze, ha nem használ semmilyen papírt ezeknek az egyenleteknek a megoldására!

1. lépés: A dolgok beállítása

Nyissa meg az Excel -t minden évben rendben van (előnyben részesítve a 03 -at, amit ezzel a makróval készítettem). Ha excel 07 -t használ, akkor látható lesz, és lesz egy kis doboz, amely makrót ír. Kattintson az ikonra, és menjen a makró rögzítéséhez, megjelenik egy ablak, amely beállítja a makró nevét és leírását. Ezt követően kattintson ismét a makró ikonra, és megjelenik egy másik ablak, amelynek az ablakban a makró nevének kell lennie (az alapértelmezett név a Makró1 lesz)

2. lépés: A makró elkészítése

Rendben, most menjen szerkeszteni a felbukkanó ablakban, a jobb oldalon kell lennie harmadszor lefelé. Amikor megnyomja a szerkesztés gombot, egy teljesen új ablak jelenik meg, az úgynevezett visual basic editor. Ott kell lennie egy eszköztárnak és mindennek, mint minden ablaknak, de az ablakban egy nagy szürke területnek kell lennie, a Module1 (Code) nevű ablakkal. Kattintson a Module1 -re, amikor gépelni akart, majd másolja be és illessze be erre (kérje meg, hogy töröljön mindent, mielőtt ezt megteszi a Module1 mezőben.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c A Long MsgBox kéri: = "ax^{2 + bx + c = 0 ", _} Title: = "Az űrlap másodfokú polinomjának megoldása:" a = Application. InputBox (prompt: = "Adja meg az" a "együttható értékét, Típus: = 1) b = Application. InputBox (prompt: =" Enter a "b" együttható értéke, Típus: = 1) c = Application. InputBox (prompt: = "Adja meg a" c "együttható értékét", Típus: = 1) Ha a = 0, akkor MsgBox "Az egyenlet nem másodfokú "Különben Ha (((b * b) - (4 * a * c))> = 0 Akkor az MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) / (2 * a)) Más MsgBox "Nincs igazi megoldás - képzeletbeli" Vége Vége az IfEnd Sub

3. lépés: Befejezés

Amikor az ablak mindent tartalmaz, azt mondtam, hogy másolja és illessze be a VIsual Basic Editor programot. Végül menjen a makrónézet makrókhoz, majd futtassa az elsőt a jobb oldalon. Egy ablaknak kell megjelennie, kattintson az OK gombra, majd megjelenik egy másik mező, amely A értéke lesz az egyenletben, majd egy másik, amely B értéke lesz az egyenletben, majd egy másik, amely C értéke lesz. ha problémája van, kérem, mondja el, és hagyjon visszajelzést.