Sisukord:

Ruutvõrrandi makro Excelis: 3 sammu
Ruutvõrrandi makro Excelis: 3 sammu

Video: Ruutvõrrandi makro Excelis: 3 sammu

Video: Ruutvõrrandi makro Excelis: 3 sammu
Video: Программирование макросов на VBA в Excel 2024, November
Anonim
Ruutvõrrandi makro Excelis
Ruutvõrrandi makro Excelis

saate hõlpsasti lahendada ruutvõrrandi, minnes lihtsalt tööriistade-makrokäivituse makro juurde. Olen uus liige ja vajan tõesti igasugust tagasisidet, mida saate anda. Nautige nende võrrandite lahendamisel paberit kasutamata!

Samm: asjade seadistamine

Asjade seadmine
Asjade seadmine

open excel igal aastal on okei (eelistatud 03 see, mida ma selle makro tegemiseks kasutasin). Kui kasutate Excel 07, on see nähtav ja seal on väike kast, mis ütleb makro. Klõpsake ikooni ja minge makro salvestamiseks aken, kus kuvatakse makro nimi ja kirjeldused. Kui olete seda teinud, klõpsake uuesti makroikoonil ja ilmub uus aken, kus aknas peaks olema makro nimi (vaikenimi on Macro1)

Samm: makro tegemine

Makro tegemine
Makro tegemine

Olgu, nüüd lähete redigeerima ilmunud aknas, see peaks olema paremal pool kolmandal all. Kui vajutate redigeerimisnuppu, ilmub täiesti uus aken nimega visual basic editor. Seal peaks olema tööriistariba ja kõik nagu iga aken, kuid aknas peaks olema suur hall ala, mille aken kannab nime Module1 (Code). Klõpsake mooduli1 sees, kui kavatsesite seda trükkida, ja kopeerige ja kleepige see sellele (tehke kaebus, et kustutate kõik, enne kui teete seda kasti Module1.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Pika MsgBoxi viipana: = "kirves2 + bx + c = 0 ", _ Title: = "Vormi ruutpolünoomi lahendamine:" a = Application. InputBox (prompt: = "Sisestage" a "koefitsiendi väärtus, tüüp: = 1) b = Application. InputBox (prompt: =" Enter "b" koefitsiendi väärtus, tüüp: = 1) c = Application. InputBox (prompt: = "Sisestage" c "koefitsiendi väärtus", tüüp: = 1) Kui a = 0, siis MsgBox "Võrrand ei ole ruutmeetriline "Muidu Kui (((b * b) - (4 * a * c))> = 0 Siis MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Muu MsgBox "No Real Solution - Imaginary" End If Lõpeta IfEnd Sub

Samm: viimistlemine

Lõpetamine
Lõpetamine

Kui selles aknas on kõik, mida ma käskisin kopeerida ja kleepida, sulgege VIsual Basic Editor. Lõpuks avage makrovaate makrod ja seejärel jookske esimene paremal pool. Peaks ilmuma aken, klõpsake nuppu OK, siis ilmub teine kast, mis on võrrandi A väärtus, seejärel teine, mis on võrrandi B väärtus ja seejärel teine, mis on C. väärtus. kui teil on probleeme, palun öelge mulle ja palun jätke mulle tagasisidet.

Soovitan: