Excel- ում քառակուսի հավասարման մակրո ՝ 3 քայլ

2025 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2025-01-23 14:48

Դուք կարող եք հեշտությամբ լուծել քառակուսային հավասարումը ՝ պարզապես գնալով դեպի գործիքներ-մակրո-վարող մակրո: Ես նոր անդամ եմ և իսկապես կարիք ունեմ ցանկացած տեսակի հետադարձ կապի: Կարող եք վայելել այս հավասարումները լուծող որևէ թուղթ չօգտագործելը:

Քայլ 1: Իրերի կարգավորում

Excel- ի բացումը ցանկացած տարի նորմալ է (նախընտրելի է 03 -ը այն էր, ինչ ես օգտագործում էի այս մակրոը պատրաստելու համար): Եթե դուք օգտագործում եք excel 07 -ը, այն տեսանելի կլինի, և կլինի մի փոքրիկ տուփ, որը մակրո է ասում: Կտտացրեք պատկերակին և գնացեք մակրո ձայնագրելու: Կհայտնվի պատուհան, որտեղ տեղադրված կլինի մակրոի անունը և նկարագրությունները: Դա անելուց հետո կրկին կտտացրեք մակրո պատկերակին և կհայտնվի մեկ այլ պատուհան, որտեղ պատուհանում պետք է լինի մակրո անունը (կանխադրված անունը կլինի մակրո 1)

Քայլ 2: Մակրո պատրաստելը

Լավ, հիմա դուք գնում եք խմբագրելու հայտնված պատուհանի վրա, այն պետք է լինի աջ կողմում երրորդից ներքև: Երբ դուք սեղմում եք խմբագրման կոճակը, կհայտնվի մի ամբողջ նոր պատուհան, որը կոչվում է տեսողական հիմնական խմբագիր: Պետք է լինի գործիքագոտի և ամեն ինչ, ինչպես ցանկացած պատուհան, բայց պատուհանում պետք է լինի մեծ մոխրագույն տարածք ՝ պատուհանով, որը կոչվում է Module1 (Code): Մոդուլ 1 -ի ներսում կտտացրեք այն, երբ մտադիր էիք մուտքագրել այն և պատճենել և տեղադրել այն դրա վրա (հայցեք, որ դուք ջնջեք ամեն ինչ, նախքան դա անել Մոդուլ 1 -ի վանդակում): Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Ինչպես երկար MsgBox հուշում է: = "ax^{2 + bx + c = 0 ", _} Վերնագիր: = "Ձևի քառակուսի բազմանդամի լուծում." A = Application. InputBox (հուշում: = "Մուտքագրեք" a "գործակցի արժեքը", Type: = 1) b = Application. InputBox (prompt: = "Enter «բ» գործակցի արժեքը », տեսակը ՝ = 1) c = Application. InputBox (հուշում ՝ =« Մուտքագրեք «c» գործակցի արժեքը », տեսակը ՝ = 1) Եթե a = 0 Ապա MsgBox« Հավասարում քառակուսի չէ «Այլապես եթե ((b * b) - (4 * a * c))> = 0 Այնուհետեւ MsgBox ((-b + (Sqr ((b * b) - (4 * a * c))))) / (2 * ա)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) ((2 * a)) Այլ MsgBox «Ոչ մի իրական լուծում չկա ՝ երևակայական» Վերջ, եթե Ավարտել IfEnd ենթ

Քայլ 3: Ավարտում

Երբ այդ պատուհանը ունի այն ամենը, ինչ ես ձեզ ասացի, պատճենեք և տեղադրեք փակեք VIsual Basic խմբագրիչը: Ի վերջո, անցեք մակրոադիտարկման մակրոներին, այնուհետև ՝ առաջինը գործարկեք աջ կողմում: Պետք է հայտնվի պատուհան, որը կտտացնի OK, այնուհետև կհայտնվի մեկ այլ տուփ, որը հավասարման մեջ կլինի A- ի արժեքը, այնուհետև մեկ այլ, որը հավասարման մեջ կլինի B- ի արժեքը, այնուհետև մեկ այլ, որը կլինի C.- ի արժեքը: եթե խնդիր ունեք, ասեք ինձ և խնդրում եմ ինձ թողնել մի տեսակ հետադարձ կապ: