Kwadratiese vergelyking -makro op Excel: 3 stappe

2025 Outeur: John Day | [email protected]. Laas verander: 2025-01-23 12:53

jy kan 'n kwadratiese vergelyking maklik oplos deur net na tools-macro-run macro te gaan. Ek is 'n nuwe lid en het regtig enige soort terugvoer nodig wat jy kan gee. Geniet om nie papier te gebruik om hierdie vergelykings op te los nie!

Stap 1: Stel dinge op

Open Excel is 'n jaar goed (verkieslik 03, wat ek gebruik het om hierdie makro te maak). As u Excel 07 gebruik, sal dit gesien word, en daar sal 'n klein boksie wees wat makro bevat. Klik op die ikoon en gaan na die opname van 'n makro, 'n venster verskyn waarin die naam en beskrywings van die makro opgestel word. Nadat u dit gedoen het, klik weer op die makro -ikoon en 'n ander venster verskyn, die naam van die makro moet in die venster verskyn (standaardnaam is Macro1)

Stap 2: Maak die makro

Nou, u gaan wysig in die venster wat verskyn het, dit moet aan die regterkant wees, derde af. As u op die redigeerknoppie druk, verskyn 'n hele nuwe venster, Visual Basic Editor. Daar moet 'n werkbalk en alles soos enige venster wees, maar in die venster moet 'n groot grys gebied wees met 'n venster genaamd Module1 (Code). Klik in die Module1 terwyl u daarop sou tik en dit daarop plak en plak (maak dat u alles uitvee voordat u dit in die Module1 -boks doen.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Soos Long MsgBox prompt: = "ax^{2 + bx + c = 0 ", _} Title: = "Los 'n kwadratiese polinoom van die vorm op:" a = Application. InputBox (prompt: = "Voer die waarde van die 'a' -koëffisiënt in, tik: = 1) b = Application. InputBox (prompt: =" Enter die waarde van die 'b' -koëffisiënt ", Type: = 1) c = Application. InputBox (prompt: =" Voer die waarde van die' c '-koëffisiënt in, Type: = 1) As a = 0 Dan MsgBox "Die vergelyking is nie kwadraties nie "Anders as ((b * b) - (4 * a * c))> = 0 Dan is MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) ((2 * a)) Anders MsgBox "Geen werklike oplossing - denkbeeldig" einde as Beëindig IfEnd Sub

Stap 3: Voltooi

As die venster alles bevat, het ek u gesê om die VIsual Basic Editor te kopieer en te plak. Uiteindelik gaan u na makro-view-makros, dan loop u aan die regterkant die eerste. Daar moet 'n venster verskyn wat verskyn, klik op OK, dan verskyn 'n ander vak met die waarde van A in die vergelyking, dan 'n ander wat die waarde van B in die vergelyking sal wees en dan 'n ander wat die waarde van C. sal wees. As u 'n probleem het, vertel my asseblief en laat my 'n soort terugvoer.