Excel бағдарламасындағы квадрат теңдеу макросы: 3 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:28

Сіз квадрат теңдеуді қарапайым құралдар макро-жүгіру макросына өту арқылы оңай шеше аласыз. Мен жаңа мүшемін және сізге қандай да бір кері байланыс қажет.

1 -қадам: заттарды реттеу

кез келген жылы excel ашу жақсы (бұл макросты жасау үшін мен таңдаған 03). Егер сіз excel 07 қолдансаңыз, ол қаралады және макро деп жазылған кішкене қорап болады. Белгішені нұқыңыз және макросты жазуға өтіңіз, терезе пайда болады, онда макроның аты мен сипаттамасы орнатылады. Осы әрекетті орындағаннан кейін макро белгішесін тағы бір рет нұқыңыз, сонда басқа терезе пайда болады, ол жерде макростың атауы болуы керек (әдепкі атау Macro1 болады)

2 -қадам: макросты жасау

Жарайды, енді сіз терезені өңдеуге өтесіз, ол оң жақта үштен төмен болуы керек. Өңдеу түймесін басқанда визуалды негізгі редактор деп аталатын жаңа терезе пайда болады. Құралдар тақтасы және кез келген терезе сияқты бәрі болуы керек, бірақ терезеде Module1 (Code) деп аталатын терезесі бар үлкен сұр аймақ болуы керек. Module1 ішінде сіз оны теріп, оны көшіріп, қойғыңыз келген кезде басыңыз (Module1 қорабында мұны жасамас бұрын бәрін өшіруді талап етіңіз.) Sub QuadraticFormula () Dim a As Dim Dim b b Long Dim c Ұзақ MsgBox шақыруы бойынша: = «ax^{2 + bx + c = 0 «, _} Тақырыбы: = «Форманың квадрат көпмүшесін шешу:» a = Application. InputBox (шақыру: = «'a' коэффициентінің мәнін енгізіңіз, Түрі: = 1) b = Application. InputBox (шақыру: =» Енгізу) 'b' коэффициентінің мәні, Type: = 1) c = Application. InputBox (шақыру: = «'c' коэффициентінің мәнін енгізіңіз», Type: = 1) a = 0 болса MsgBox «теңдеуі квадрат емес «Басқа жағдайда ((b * b) - (4 * a * c))> = 0 Сонда MsgBox ((-b + (Sqr ((b * b) - (4 * a * c))))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) / (2 * a)) Басқа MsgBox «Нақты шешім жоқ - қиял» аяқталса IfEnd Sub бөлімін аяқтаңыз

3 -қадам: Аяқтау

Бұл терезеде мен айтқанның бәрі болған кезде, VIsual Basic редакторын көшіріп, қоюды айттым. Ақырында макро-көріністі макростарға өтіңіз, содан кейін біріншісін оң жақта іске қосыңыз. ОК батырмасын басатын терезе пайда болуы керек, содан кейін теңдеудегі А мәні болатын басқа терезе пайда болады, ал екіншісі теңдеудегі В мәні болады, ал екіншісі С мәні болады. Егер сізде проблема болса, маған айтыңыз және маған қандай да бір пікір қалдырыңыз.