Innehållsförteckning:

Makro för kvadratisk ekvation i Excel: 3 steg
Makro för kvadratisk ekvation i Excel: 3 steg

Video: Makro för kvadratisk ekvation i Excel: 3 steg

Video: Makro för kvadratisk ekvation i Excel: 3 steg
Video: Andragradsfunktioner på faktorform 2024, November
Anonim
Makro för kvadratisk ekvation på Excel
Makro för kvadratisk ekvation på Excel

du kan enkelt lösa en kvadratisk ekvation genom att bara gå till verktyg-makro-kör makro. Jag är en ny medlem och behöver verkligen någon form av feedback du kan ge. Njut av att inte använda något papper som löser dessa ekvationer!

Steg 1: Sätta upp saker

Att ställa upp saker
Att ställa upp saker

öppna Excel varje år är okej (föredraget 03 det är vad jag brukade göra detta makro). Om du använder excel 07 kommer det att synas och det kommer att finnas en liten låda som säger makro. Klicka på ikonen och gå till inspelningsmakro, ett fönster kommer att visas, vilket kommer att ställa in namnet och beskrivningarna av makrot. När du har gjort det klickar du på makroikonen igen och ett annat fönster kommer att visas i namnet på makrot i fönstret (standardnamnet är Makro1)

Steg 2: Gör makrot

Gör makron
Gör makron

Okej nu går du för att redigera på fönstret som har kommit upp det borde vara på höger sida tredje ner. När du trycker på redigeringsknappen visas ett helt nytt fönster som kallas visual basic editor. Det ska finnas en verktygsfält och allt som alla fönster, men i fönstret ska det finnas ett stort grått område med ett fönster som heter Module1 (Code). Inuti modulen1 klickar du som du skulle skriva på den och kopierar och klistrar in den på den (gör stämning att du tar bort allt innan du gör detta på modul1 -rutan.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Som Long MsgBox prompt: = "ax2 + bx + c = 0 ", _ Title: = "Lösning av en kvadratisk polynom av formuläret:" a = Application. InputBox (prompt: = "Ange värdet för" a "-koefficienten", Typ: = 1) b = Application. InputBox (prompt: = "Enter värdet på "b" -koefficienten ", Type: = 1) c = Application. InputBox (prompt: =" Ange värdet för "c" -koefficienten ", Type: = 1) Om a = 0 Sedan MsgBox" Ekvationen är inte kvadratisk "Annat Om ((b * b) - (4 * a * c))> = 0 Då MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Else MsgBox "Ingen verklig lösning - imaginär" Sluta om Avsluta IfEnd Sub

Steg 3: Avsluta

Slutför
Slutför

När det här fönstret har allt sa jag till dig att kopiera och klistra in stänga VIsual Basic Editor. Slutligen går du till makrovy-makron och kör sedan till höger den första. Det ska finnas ett fönster som dyker upp, klicka på OK, så kommer en annan ruta att visas som är värdet på A i ekvationen, sedan ett annat som kommer att vara värdet på B i ekvationen och sedan en annan som kommer att vara värdet av C. om du har ett problem, berätta för mig och lämna mig någon form av feedback.

Rekommenderad: