Macro ecuație pătratică pe Excel: 3 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:47

puteți rezolva cu ușurință o ecuație pătratică mergând doar la instrumente-macro-run macro. Sunt un membru nou și chiar am nevoie de orice fel de feedback pe care îl puteți oferi.

Pasul 1: Configurarea lucrurilor

deschide excel orice an este în regulă (preferat 03 asta am folosit pentru a face această macro). Dacă utilizați excel 07, acesta va fi vizualizat și va exista o căsuță care scrie macro. Faceți clic pe pictogramă și accesați înregistrarea macro, va apărea o fereastră, va configura numele și descrierile macro-ului. După ce faceți acest lucru, faceți clic din nou pe pictograma macro și va apărea o altă fereastră, ar trebui să existe în fereastră numele macro-ului de acolo (numele implicit va fi Macro1)

Pasul 2: Realizarea macro-ului

Bine, acum mergeți să editați pe fereastra care a apărut, ar trebui să fie în partea dreaptă, treime în jos. Când apăsați butonul de editare, va apărea o fereastră complet nouă numită editor de bază vizual. Ar trebui să existe o bară de instrumente și orice altceva ca orice fereastră, dar în fereastră ar trebui să existe o zonă gri mare, cu o fereastră numită Module1 (Cod). În interiorul modulului1 faceți clic pe măsură ce urmați să tastați pe el și copiați și lipiți acest lucru pe el (faceți apel să ștergeți totul înainte de a face acest lucru în caseta Module1). Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Ca prompt MsgBox lung: = "ax^{2 + bx + c = 0 ", _} Titlu: = "Rezolvarea unui polinom quadratic al formularului:" a = Application. InputBox (prompt: = "Introduceți valoarea coeficientului 'a'", Tip: = 1) b = Application. InputBox (prompt: = "Enter valoarea coeficientului 'b' ", Tastați: = 1) c = Application. InputBox (prompt: =" Introduceți valoarea coeficientului 'c' ", Tastați: = 1) Dacă a = 0 Apoi MsgBox" Ecuația nu este pătratic "Altfel Dacă ((b * b) - (4 * a * c))> = 0 Atunci MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Altele MsgBox "Fără soluție reală - imaginar" Finalizați dacă End IfEnd Sub

Pasul 3: Finalizare

Când acea fereastră are tot ce ți-am spus să copiezi și lipesc, închide VIsual Basic Editor. În cele din urmă, accesați macrocomenzile macro, apoi mergeți pentru a rula pe partea dreaptă pe prima. Ar trebui să existe o fereastră care să apară, faceți clic pe OK, apoi va apărea o altă casetă care va fi valoarea lui A în ecuație, apoi o altă care va fi valoarea lui B în ecuație și apoi o altă care va fi valoarea lui C. dacă aveți o problemă, vă rog să-mi spuneți și vă rog să-mi lăsați un fel de feedback.