Excel дээрх квадрат тэгшитгэл макро: 3 алхам

2025 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2025-01-23 15:00

Та квадрат тэгшитгэлийг зүгээр л tool-makro-run макро руу орсноор хялбархан шийдэж чадна. Би бол шинэ гишүүн бөгөөд танд өгөх аливаа санал хүсэлт үнэхээр хэрэгтэй байна. Эдгээр тэгшитгэлийг шийдэхийн тулд ямар ч цаас ашиглахгүй байхыг таашаагаарай!

Алхам 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 (prompt: = "' 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 дэд хэсгийг дуусгах

Алхам 3: Дуусгах

Тэр цонхонд хуулж буулгахыг хүссэн бүх зүйл байгаа бол VIsual Basic Editor -ийг хаагаарай. Эцэст нь макро харах макро руу очоод эхнийхийг нь баруун гар талд ажиллуулна уу. Ог дарах цонх гарч ирэх ёстой, дараа нь тэгшитгэл дэх А -ийн утга, дараа нь өөр нэг тэгшитгэл дэх В -ийн утга, нөгөө нь С -ийн утга байх болно. Хэрэв танд асуудал байгаа бол надад хэлээрэй, надад ямар нэгэн санал хүсэлтээ үлдээнэ үү.