Makro równania kwadratowego w programie Excel: 3 kroki

2025 Autor: John Day | day@howwhatproduce.com. Ostatnio zmodyfikowany: 2025-01-23 15:03

możesz łatwo rozwiązać równanie kwadratowe, po prostu przechodząc do makra z narzędziami. Jestem nowym członkiem i naprawdę potrzebuję jakiejkolwiek opinii, którą możesz dać. Ciesz się, że nie używasz żadnego papieru do rozwiązywania tych równań!

Krok 1: Konfiguracja rzeczy

open up excel w dowolnym roku jest w porządku (preferowane 03 to to, czego użyłem do zrobienia tego makra). Jeśli używasz programu Excel 07, będzie on widoczny i pojawi się małe okienko z napisem makro. Kliknij ikonę i przejdź do nagrywania makra, pojawi się okno, w którym ustawisz nazwę i opis makra. Po wykonaniu tej czynności ponownie kliknij ikonę makra, a pojawi się kolejne okno, w którym powinna znajdować się nazwa makra (domyślna nazwa to Makro1)

Krok 2: Tworzenie makra

OK, teraz przejdź do edycji w oknie, które się pojawiło, powinno być po prawej stronie, trzecio w dół. Po naciśnięciu przycisku edycji pojawi się zupełnie nowe okno zwane Visual Basic Editor. Powinien być pasek narzędzi i wszystko jak każde okno, ale w oknie powinien znajdować się duży szary obszar z oknem o nazwie Module1(Code). Wewnątrz Module1 kliknij tak, jak zamierzałeś na nim pisać, a następnie skopiuj i wklej to na nim (proszę o usunięcie wszystkiego, zanim zrobisz to w polu Module1.)Sub QuadraticFormula() Dim a As Long Dim b As Long Dim c Jako długi komunikat MsgBox:="ax^{2 + bx + c = 0", _} Title:="Rozwiązywanie wielomianu kwadratowego formularza:" a = Application. InputBox(prompt:="Wprowadź wartość współczynnika 'a'", Type:=1) b = Application. InputBox(prompt:="Enter wartość współczynnika 'b'", Typ:=1) c = Application. InputBox(prompt:="Wprowadź wartość współczynnika 'c'", Wpisz:=1) Jeśli a = 0 Następnie MsgBox "Równanie nie jest kwadratowa" Inaczej Jeśli ((b * b) - (4 * a * c)) >= 0 Wtedy MsgBox ((-b + (Sqr((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr((b * b) - (4 * a * c)))) / (2 * a)) Else MsgBox "Brak rzeczywistego rozwiązania - urojone" End If Zakończ, jeśliZakończ sub

Krok 3: Kończenie

Kiedy to okno zawiera wszystko, co kazałem skopiować i wkleić, zamknij edytor VIsual Basic. Na koniec przejdź do makr widoku makra, a następnie przejdź do uruchomienia po prawej stronie pierwszego. Powinno pojawić się okno, które się pojawi, kliknij OK, a następnie pojawi się kolejne pole, które będzie wartością A w równaniu, następnie inne, które będzie wartością B w równaniu, a następnie inne, które będzie wartością C. Zrobione jeśli masz problem, powiedz mi i zostaw mi jakąś opinię.