Kwadratische vergelijkingsmacro in Excel: 3 stappen

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:20

je kunt eenvoudig een kwadratische vergelijking oplossen door naar tools-macro-run macro te gaan. Ik ben een nieuw lid en heb echt elke vorm van feedback nodig die je kunt geven. Geniet ervan dat je geen papier gebruikt om deze vergelijkingen op te lossen!

Stap 1: Dingen instellen

open excel elk jaar is oke (voorkeur 03 dat is wat ik gebruikte om deze macro te maken). Als u Excel 07 gebruikt, wordt deze weergegeven en is er een klein vakje met de tekst macro. Klik op het pictogram en ga naar macro opnemen. Er verschijnt een venster waarin de naam en beschrijvingen van de macro worden ingesteld. Nadat u dat hebt gedaan, klikt u nogmaals op het macropictogram en er verschijnt een ander venster. In het venster moet de naam van de macro staan (standaardnaam is Macro1)

Stap 2: De macro maken

Oké, nu ga je bewerken in het venster dat is verschenen, het zou aan de rechterkant moeten staan, derde naar beneden. Wanneer u op de knop Bewerken drukt, verschijnt er een geheel nieuw venster met de naam Visual Basic Editor. Er zou een werkbalk moeten zijn en alles zoals elk venster, maar in het venster zou er een groot grijs gebied moeten zijn met een venster genaamd Module1(Code). Klik in Module1 zoals u erop gaat typen en kopieer en plak dit erop (zorg ervoor dat u alles verwijdert voordat u dit in het vak Module1 doet.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c As Long MsgBox prompt:="ax^{2 + bx + c = 0", _} Title:="Een kwadratische veelterm van het formulier oplossen:" a = Application. InputBox(prompt:="Voer de waarde van de 'a'-coëfficiënt in", Type:=1) b = Application. InputBox(prompt:="Enter de waarde van de 'b'-coëfficiënt", Type:=1) c = Application. InputBox(prompt:="Voer de waarde van de 'c'-coëfficiënt in", Type:=1) Als a = 0 Dan MsgBox "De vergelijking is niet kwadratisch" Anders Als ((b * b) - (4 * a * c)) >= 0 Dan MsgBox ((-b + (Sqr((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr((b * b) - (4 * a * c)))) / (2 * a)) Anders MsgBox "No Real Solution - Imaginary" End If End IfEnd Sub

Stap 3: Afwerking

Als dat venster alles heeft wat ik je heb gezegd om te kopiëren en plakken, sluit je de Visual Basic Editor. Ga ten slotte naar macro-view macro's en ga dan aan de rechterkant de eerste uitvoeren. Er zou een venster moeten verschijnen, klik op OK, dan verschijnt er een ander vak dat de waarde van A in de vergelijking zal zijn, dan een ander dat de waarde van B in de vergelijking zal zijn en dan een ander dat de waarde van C zal zijn. Je bent klaar als je een probleem hebt, vertel het me dan en laat me alsjeblieft een soort feedback achter.