Kvadrātvienādojuma makro programmā Excel: 3 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 11:00

jūs varat viegli atrisināt kvadrātvienādojumu, vienkārši dodoties uz rīku-makro palaist makro. Esmu jauns dalībnieks, un man tiešām ir nepieciešama jebkāda veida atgriezeniskā saite. Izbaudiet šo vienādojumu risināšanu, neizmantojot papīru!

1. darbība: lietu iestatīšana

open excel jebkurā gadā ir labi (vēlams 03, ko es izmantoju, lai izveidotu šo makro). Ja izmantojat Excel 07, tas tiks skatīts, un būs neliela kastīte ar uzrakstu makro. Noklikšķiniet uz ikonas un dodieties uz makro ierakstīšanu, parādīsies logs, kurā tiks iestatīts makro nosaukums un apraksti. Pēc tam vēlreiz noklikšķiniet uz makro ikonas un parādīsies cits logs, kurā jābūt makro nosaukumam (noklusējuma nosaukums būs Macro1)

2. darbība: makro izveidošana

Labi, tagad jūs dodaties rediģēt uznirstošo logu, un tam vajadzētu būt labajā pusē trešdaļā uz leju. Nospiežot rediģēšanas pogu, parādīsies jauns logs ar nosaukumu Visual Basic Editor. Jābūt rīkjoslai un visam, piemēram, jebkuram logam, bet logā jābūt lielai pelēkai zonai ar logu ar nosaukumu Module1 (Code). Moduļa1 iekšpusē noklikšķiniet, kad gatavojāties to rakstīt, un nokopējiet un ielīmējiet to tajā (pirms iesniedzat lodziņā Module1 visu, lai jūs izdzēstu visu.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Kā tiek prasīts Long MsgBox: = "cirvis^{2 + bx + c = 0 ", _} Title: = "Veidlapas kvadrātveida polinomu atrisināšana:" a = Application. InputBox (prompt: = "Ievadiet koeficienta" a "vērtību, Tips: = 1) b = Application. InputBox (prompt: =" Enter “b” koeficienta vērtība, tips: = 1) c = Application. InputBox (prompt: = "Ievadiet koeficienta" c "vērtību, tips: = 1) Ja a = 0, tad MsgBox" Vienādojums nav kvadrātisks "Citādi, ja (((b * b) - (4 * a * c))> = 0 Tad MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) / (2 * a)) Cits MsgBox "Nav reāla risinājuma - iedomāts" beigas Beigt IfEnd Sub

3. darbība: pabeigšana

Kad šajā logā ir viss, ko es jums teicu kopēt un ielīmēt, aizveriet VIsual Basic Editor. Visbeidzot dodieties uz makro skata makro un tad palaidiet pirmo labajā pusē. Jābūt uznirstošam logam, noklikšķiniet uz Labi, tad parādīsies vēl viens lodziņš, kas būs A vērtība vienādojumā, tad vēl viens, kas būs B vērtība vienādojumā, un pēc tam vēl viens, kas būs C vērtība. ja jums ir problēma, lūdzu, pastāstiet man un, lūdzu, atstājiet man atsauksmes.