Makro ekuacionit kuadratik në Excel: 3 hapa

2024 Autor: John Day | [email protected]. E modifikuara e fundit: 2024-01-30 12:32

ju mund të zgjidhni me lehtësi një ekuacion kuadratik thjesht duke shkuar te mjetet makro-makro. Unë jam një anëtar i ri dhe me të vërtetë kam nevojë për çdo lloj reagimi që mund të jepni. Kënaquni duke mos përdorur asnjë letër që zgjidh këto ekuacione!

Hapi 1: Vendosja e Gjërave

hapja e Excel çdo vit është në rregull (preferohet 03 kjo është ajo që kam përdorur për të bërë këtë makro). Nëse jeni duke përdorur excel 07 do të shikohet dhe do të ketë një kuti të vogël që thotë makro. Klikoni në ikonën dhe shkoni për të regjistruar makro, do të shfaqet një dritare ku do të vendoset emri dhe përshkrimet e makros. Pasi ta bëni këtë, klikoni përsëri në ikonën makro dhe do të shfaqet një dritare tjetër, në dritare duhet të ketë emrin e makros (emri i paracaktuar do të jetë Macro1)

Hapi 2: Krijimi i makro

Mirë tani ju shkoni për të redaktuar në dritaren që ka dalë ajo duhet të jetë në anën e djathtë të tretë poshtë. Kur shtypni butonin e redaktimit do të shfaqet një dritare krejt e re e quajtur redaktor vizual bazë. Duhet të ketë një shirit veglash dhe gjithçka si çdo dritare, por në dritare duhet të ketë një zonë të madhe gri me një dritare të quajtur Module1 (Kodi). Brenda modulit 1 klikoni si do të shkruani në të dhe kopjoni dhe ngjisni këtë në të (bëni padi që të fshini gjithçka para se ta bëni këtë në kutinë Moduli1.) Nën QuadraticFormula () Dim a Sa Dim Dim b Sa Dim Dim c Si kërkesë e gjatë MsgBox: = "sëpatë^{2 + bx + c = 0 ", _} Titulli: = "Zgjidhja e një Polinomi Kuadratik të Formës:" a = Application. InputBox (prompt: = "Shkruani vlerën e koeficientit 'a', Type: = 1) b = Application. InputBox (prompt: =" Enter vlera e koeficientit 'b' ", Lloji: = 1) c = Aplikimi. InputBox (kërkesa: =" Shkruani vlerën e koeficientit "c" ", Lloji: = 1) Nëse a = 0 Atëherë MsgBox" Ekuacioni nuk është kuadratik "Tjetër Nëse ((b * b) - (4 * a * c))> = 0 Atëherë MsgBox ((-b + (Sqr ((b * b) - (4 * a * c))))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Tjetër MsgBox "Pa zgjidhje reale - imagjinare" Fundi Nëse Përfundoni IfEnd Sub

Hapi 3: Përfundimi

Kur ajo dritare ka gjithçka që ju thashë të kopjoni dhe ngjisni mbyllni Redaktorin VIsual Basic. Së fundi, shkoni te makro-pamjet makro, pastaj shkoni për të ekzekutuar të parën në anën e djathtë. Duhet të ketë një dritare që shfaqet kliko OK pastaj do të shfaqet një kuti tjetër që do të jetë vlera e A në ekuacion, pastaj një tjetër që do të jetë vlera e B në ekuacion dhe pastaj një tjetër që do të jetë vlera e C. E përfunduar nëse keni ndonjë problem ju lutem më tregoni dhe ju lutem më lini një lloj reagimi.