Excelдеги Quadratic Equation макро: 3 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

Сиз оңой эле квадрат теңдемени чече аласыз, жөн эле инструменттер-макро-жүгүрүү макросуна баруу менен. Мен жаңы мүчөмүн жана чындыгында сиз бере турган пикирлердин баарына муктаж болосуз.

1 -кадам: нерселерди орнотуу

excel ачуу каалаган жылы эч нерсе эмес (03 бул макрону жасоодо колдонулат). Эгерде сиз excel 07 колдонуп жатсаңыз, анда ал каралат жана макро деп жазылган кичинекей кутуча болот. Сөлөкөттү чыкылдатыңыз жана макро жаздырууга өтүңүз, анда макроонун атын жана сүрөттөмөсүн орнотуучу терезе пайда болот. Муну аткаргандан кийин макро сүрөтчөсүн дагы бир жолу чыкылдатыңыз жана башка терезе пайда болот, ал жерде макронун аты болушу керек (демейки аталышы Макро1 болот)

2 -кадам: Макро жасоо

Макул, эми сиз оңго үчтөн ылдый оң жакта болушу керек болгон терезени оңдоого барасыз. Түзөтүү баскычын басканыңызда визуалдык негизги редактор деп аталган жаңы терезе пайда болот. Куралдар панели жана бардык терезелер сыяктуу баары болушу керек, бирок терезеде Module1 (Code) деп аталган терезеси бар чоң боз аймак болушу керек. Module1дин ичине басып, аны көчүрүп, чаптап коюуну чыкылдатыңыз (Module1 коробкасында муну жасоодон мурун баарын жок кылууну талап кылыңыз.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Узун MsgBox айткандай: = "ax^{2 + bx + c = 0 ", _} Аталышы: = "Форманын квадрат полиномун чыгаруу:" a = Application. InputBox (чакыруу: = "'a' коэффициентинин маанисин киргизиңиз, Түрү: = 1) b = Application. InputBox (чакыруу: =" Кирүү) 'b' коэффициентинин мааниси, Түрү: = 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 Негизги Редакторду көчүрүп, чаптаңыз. Акыры макро-көрүү макростарына өтүңүз, андан кийин биринчисин оң жагында иштетиңиз. Терезеде терезени ачуу керек, анда OK баскычын басыңыз, андан кийин теңдикте А мааниси бар башка кутуча пайда болот, экинчиси теңдемеде В мааниси болот, андан кийин дагы С мааниси болот. эгер сизде көйгөй болсо, мага айтыңыз жана мага кандайдыр бир пикир калтырыңыз.