Kvadratinės lygties makrokomanda „Excel“: 3 žingsniai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:50

jūs galite lengvai išspręsti kvadratinę lygtį tiesiog eidami į įrankių makrokomandą. Aš esu naujas narys ir man tikrai reikia bet kokių atsiliepimų, kuriuos galite pateikti. Mėgaukitės nenaudodami jokio popieriaus, kuris išspręstų šias lygtis!

1 žingsnis: nustatykite dalykus

atidaryti „Excel“bet kuriais metais yra gerai (pageidautina 03, ką aš naudoju kurdamas šią makrokomandą). Jei naudojate „Excel 07“, jis bus matomas ir bus mažas langelis, kuriame rašoma makro. Spustelėkite piktogramą ir eikite į makrokomandos įrašymą, pasirodys langas, kuriame bus nustatytas makrokomandos pavadinimas ir aprašymai. Po to dar kartą spustelėkite makrokomandos piktogramą ir pasirodys kitas langas, kuriame turėtų būti makrokomandos pavadinimas (numatytasis pavadinimas bus „Macro1“)

2 žingsnis: Padarykite makrokomandą

Gerai, dabar eikite redaguoti pasirodžiusio lango, jis turėtų būti dešinėje pusėje trečia žemyn. Kai paspausite redagavimo mygtuką, pasirodys visiškai naujas langas, vadinamas „visual basic editor“. Turėtų būti įrankių juosta ir viskas, kaip ir bet kuriame lange, tačiau lange turėtų būti didelė pilka sritis su langu, pavadinimu „Module1“(kodas). „Module1“viduje spustelėkite, kai ketinate jį įvesti, ir nukopijuokite bei įklijuokite jį (prieš padarydami tai, kad padarytumėte langelį „Module1“, paprašykite ištrinti viską.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Kaip raginama „Long MsgBox“: = "kirvis^{2 + bx + c = 0 ", _} Title: = "Formos kvadratinio polinomo sprendimas:" a = Application. InputBox (prompt: = "Įveskite koeficiento" a "reikšmę, tipas: = 1) b = Application. InputBox (prompt: =" Enter „b“koeficiento reikšmė, tipas: = 1) c = Application. InputBox (prompt: = "Įveskite„ c "koeficiento vertę", tipas: = 1) Jei a = 0, tada MsgBox "Lygtis nėra kvadratinis "Kitais atvejais (((b * b) - (4 * a * c))> = 0 Tada MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) „MsgBox“((-b - (Sqr ((b * b) - (4 * a * c))))) / (2 * a)) Kita „MsgBox“„Nėra realaus sprendimo - įsivaizduojamas“pabaiga Baigti „IfEnd Sub“

3 žingsnis: Baigimas

Kai tame lange yra viskas, ką liepiau nukopijuoti ir įklijuoti, uždarykite „VIsual Basic“redaktorių. Galiausiai eikite į makrokomandų makrokomandas, tada eikite paleisti dešinėje pusėje. Turėtų pasirodyti langas, spustelėkite Gerai, tada pasirodys kitas langelis, kuriame bus A reikšmė lygtyje, tada kitas, kuris bus B reikšmė lygtyje, ir kitas, kuris bus C vertė. jei turite problemų, pasakykite man ir palikite man tam tikrą atsiliepimą.