Quadratic Equation Macro sa Excel: 3 Mga Hakbang
Quadratic Equation Macro sa Excel: 3 Mga Hakbang

Talaan ng mga Nilalaman:

Anonim

madali mong malulutas ang isang quadratic equation sa pamamagitan lamang ng pagpunta sa mga tool-macro-run macro. Ako ay isang bagong miyembro at talagang kailangan ng anumang uri ng puna na maibibigay mo. Masiyahan sa hindi paggamit ng anumang papel na paglulutas sa mga equation na ito!

Hakbang 1: Pagse-set up ng Mga Bagay

buksan ang excel anumang taon ay okay (ginugusto ang 03 na kung ano ang ginamit ko upang gawin itong macro). Kung gumagamit ka ng excel 07 makikita ito sa ilalim ng pagtingin at magkakaroon ng isang maliit na kahon na nagsasabing macro. I-click ang icon at pumunta upang i-record ang macro isang window ay lilitaw i-set up nito ang pangalan at mga paglalarawan ng macro. Pagkatapos mong gawin iyon mag-click muli sa icon ng macro at lilitaw ang isa pang window doon dapat sa window ang pangalan ng macro doon (ang default na pangalan ay Macro1)

Hakbang 2: Paggawa ng Macro

Okay ngayon pupunta ka upang mag-edit sa window na lumabas ay dapat na sa kanang bahagi sa kanang bahagi pababa. Kapag pinindot mo ang pindutang i-edit ang isang bagong window ay lilitaw na tinatawag na visual basic editor. Dapat mayroong isang toolbar at lahat tulad ng anumang window, ngunit sa window dapat mayroong isang malaking kulay-abo na lugar na may isang window na tinatawag na Module1 (Code). Sa loob ng pag-click sa Modyul1 habang nagta-type ka rito at kopyahin at idikit ito (gawing tinanggal mo ang lahat bago mo ito gawin sa kahon ng Module1.) Sub QuadraticFormula () Madilim na Isang Mahabang Dim b Bilang Long Dim c Bilang Long MsgBox prompt: = "palakol2 + bx + c = 0 ", _ Pamagat: = "Paglutas ng isang Quadratic Polynomial ng Form:" a = Application. InputBox (prompt: = "Ipasok ang halaga ng 'a' coefficient", Type: = 1) b = Application. InputBox (prompt: = "Enter ang halaga ng 'b' coefficient ", Type: = 1) c = Application. InputBox (prompt: =" Ipasok ang halaga ng 'c' coefficient ", Type: = 1) Kung ang isang = 0 Kung gayon MsgBox" Ang equation ay hindi quadratic "Iba Pa Kung ((b * b) - (4 * a * c))> = 0 Kung gayon MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Iba Pa MsgBox "Walang Tunay na Solusyon - Imaginary" End If Tapusin Kung End End

Hakbang 3: Pagtatapos

Kapag nasa window na iyon ang lahat ng sinabi ko sa iyo na kopyahin at i-paste isara ang VIsual Basic Editor. Panghuli pumunta sa macros na view ng macro pagkatapos ay pumunta upang patakbuhin sa kanang bahagi ang nauna. Dapat mayroong isang window na pops click click OK pagkatapos ay lilitaw ang isa pang kahon na ang halaga ng A sa equation pagkatapos ng isa pa na magiging halaga ng B sa equation at pagkatapos ay isa pa na magiging halaga ng C. Tapos na kung mayroon kang problema mangyaring sabihin sa akin at mangyaring mag-iwan sa akin ng ilang uri ng feedback.