Mundarija:

Excelda kvadrat tenglama makrosi: 3 qadam
Excelda kvadrat tenglama makrosi: 3 qadam

Video: Excelda kvadrat tenglama makrosi: 3 qadam

Video: Excelda kvadrat tenglama makrosi: 3 qadam
Video: Excelda funksiya grafigini chizish 2024, Noyabr
Anonim
Excel uchun kvadrat tenglama makrosi
Excel uchun kvadrat tenglama makrosi

Siz kvadratik tenglamani osonlikcha hal qila olasiz, faqat asboblar-makro-ishlaydigan makroga o'ting, men yangi a'zoman va sizga beradigan har qanday fikr-mulohazalarga muhtojman.

1 -qadam: narsalarni sozlash

Vaziyatni sozlash
Vaziyatni sozlash

excelni ochish har qanday yil hammasi yaxshi (men tanlagan 03 bu makroda ishlatilgan). Agar siz excel 07 dan foydalanayotgan bo'lsangiz, u ko'rinishda bo'ladi va makro yozilgan kichik quti bo'ladi. Belgini bosing va so'lni yozib olish uchun o'ting, makro nomi va tavsiflarini o'rnatadigan oyna paydo bo'ladi. Buni qilgandan so'ng, yana so'l belgisini bosing va boshqa oyna paydo bo'ladi, u erda makro nomi bo'lishi kerak (standart nom Macro1 bo'ladi)

2 -qadam: Makro yaratish

Makro yaratish
Makro yaratish

Xo'sh, endi siz ochilgan oynani o'ng tomonida uchdan pastga qarab tahrir qilasiz. Tahrirlash tugmachasini bosganingizda vizual asosiy muharrir deb nomlangan yangi oyna paydo bo'ladi. Asboblar paneli va har qanday oynaga o'xshash hamma narsa bo'lishi kerak, lekin oynada Module1 (Code) deb nomlangan oynasi bo'lgan katta kulrang maydon bo'lishi kerak. "Module1" tugmachasini bosing va uni nusxa ko'chiring va joylashtiring (Module1 qutisiga qo'yishdan oldin hamma narsani o'chirib tashlashni talab qiling.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim Uzoq MsgBox taklif qilganidek: = "ax2 + bx + c = 0 ", _ Sarlavha: = "Formaning kvadratik polinomini echish:" a = Application. InputBox (tezlik: = "'a' koeffitsienti qiymatini kiriting, Turi: = 1) b = Application. InputBox (taklif: =" Kirish) "b 'koeffitsienti" qiymati, Turi: = 1) c = Application. InputBox (taklif: = "' c 'koeffitsientining qiymatini kiriting", Turi: = 1) Agar a = 0 bo'lsa MsgBox "Tenglama kvadratik emas "Boshqa holda ((b * b) - (4 * a * c))> = 0 Keyin MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) ((2 * a)) Boshqa MsgBox "Haqiqiy yechim yo'q - xayoliy" tugasa, IfEnd Sub -ni tugatish

3 -qadam: tugatish

Yakunlash
Yakunlash

Bu oynada men aytgan hamma narsa bo'lganida, VIsual Basic Editor -ni yopish va joylashtirishni aytdim. Nihoyat, so'l ko'rinishdagi makrolarga o'ting, so'ngra o'ng tomonda birinchisiga o'ting. Ochiladigan oyna bo'lishi kerak, OK tugmasini bosing, shundan so'ng boshqa maydon paydo bo'ladi, bu tenglamada A qiymati bo'ladi, keyin boshqasi B tenglamasida bo'ladi, keyin boshqasi C qiymatida bo'ladi. Agar sizda muammo bo'lsa, menga ayting va menga qandaydir fikr bildiring.

Tavsiya: