Orodha ya maudhui:

Quadratic Equation Macro kwenye Excel: 3 Hatua
Quadratic Equation Macro kwenye Excel: 3 Hatua

Video: Quadratic Equation Macro kwenye Excel: 3 Hatua

Video: Quadratic Equation Macro kwenye Excel: 3 Hatua
Video: MS Excel - Nested IF 2024, Juni
Anonim
Quadratic Equation Macro kwenye Excel
Quadratic Equation Macro kwenye Excel

unaweza kusuluhisha kwa urahisi equation ya quadratic kwa kwenda tu kwa macro-run macro. Mimi ni mwanachama mpya na ninahitaji maoni ya aina yoyote unayoweza kufurahiya kutotumia karatasi yoyote kutatua milinganyo hii!

Hatua ya 1: Kuweka Mambo Juu

Kuweka Mambo Juu
Kuweka Mambo Juu

kufungua bora mwaka wowote ni sawa (nilipendelea hiyo 03 ndio nilikuwa nikifanya hii kubwa). Ikiwa unatumia bora ya 07 itakuwa chini ya maoni na kutakuwa na sanduku kidogo ambalo linasema jumla. Bonyeza ikoni na uende kurekodi jumla dirisha litaonekana litaweka jina na maelezo ya jumla. Baada ya kufanya hivyo bonyeza kwenye ikoni ya jumla tena na dirisha lingine litaonekana lazima kuwe na kwenye dirisha jina la jumla hapo (jina chaguo-msingi litakuwa Macro1)

Hatua ya 2: Kufanya Macro

Kufanya Macro
Kufanya Macro

Sawa sasa unaenda kuhariri kwenye dirisha ambalo limekuja inapaswa kuwa upande wa kulia tatu chini. Unapobonyeza kitufe cha kuhariri dirisha jipya litaonekana liitwalo mhariri wa msingi wa kuona. Inapaswa kuwa na mwambaa zana na kila kitu kama dirisha lolote, lakini kwenye dirisha inapaswa kuwa na eneo kubwa la kijivu na dirisha iitwayo Module1 (Kanuni). Ndani ya Moduli1 bonyeza kama ungeenda kuiandika na kunakili na kubandika hii juu yake (fanya kushtaki ufute kila kitu kabla ya kufanya hivi kwenye sanduku la Module1. Sub Sub QuadraticFormula () Punguza urefu mdogo kama b Kama MsgBox ndefu inavyohimiza: = "ax2 + bx + c = 0 ", _ Kichwa: = "Kutatua Polynomial ya Quadratic ya Fomu:" a = Application. InputBox (haraka: = "Ingiza thamani ya mgawo wa 'a', Type: = 1) b = Application. InputBox (haraka: =" Enter thamani ya mgawo wa 'b', Aina: = 1) c = Maombi. InputBox (haraka: = "Ingiza thamani ya mgawo wa 'c'", Aina: = 1) Ikiwa a = 0 Kisha MsgBox "mlingano sio quadratic "Mwingine ikiwa ((b * b) - (4 * a * c))> = 0 Kisha MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Mwingine MsgBox "Hakuna Suluhisho Halisi - Kufikiria" Mwisho Ikiwa Mwisho wa mwisho

Hatua ya 3: Kumaliza

Kumaliza
Kumaliza

Wakati dirisha hilo lina kila kitu nilichokuambia unakili na kubandika karibu Mhariri wa Msingi wa VIsual. Mwishowe nenda kwa macro-view macro kisha nenda kukimbia upande wa kulia wa kwanza. Inapaswa kuwa na dirisha ambalo linajitokeza bonyeza OK kisha sanduku lingine litaonekana ambalo litakuwa thamani ya A katika mlingano kisha lingine ambalo litakuwa thamani ya B katika mlingano na lingine ambalo litakuwa thamani ya C. Umefanya ikiwa una shida tafadhali niambie na tafadhali niachie maoni ya aina fulani.

Ilipendekeza: