Makro kvadratické rovnice v Excelu: 3 kroky

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:25

můžete snadno vyřešit kvadratickou rovnici tím, že přejdete na makro-nástroje pro spuštění makra. Jsem nový člen a opravdu potřebuji jakýkoli druh zpětné vazby, kterou můžete poskytnout. Užijte si nepoužívání papíru, který tyto rovnice řeší!

Krok 1: Nastavení věcí

otevřít excel každý rok je v pořádku (upřednostňováno 03 to je to, co jsem použil k vytvoření tohoto makra). Pokud používáte excel 07, bude zobrazen a zobrazí se malé pole s nápisem makro. Klikněte na ikonu a přejděte na záznam makra. Zobrazí se okno, které nastaví název a popis makra. Poté znovu klikněte na ikonu makra a zobrazí se další okno, v němž by měl být název makra (výchozí název bude Macro1)

Krok 2: Vytvoření makra

Dobře, teď jděte upravit okno, které přišlo, mělo by to být na pravé straně, třetí dolů. Když stisknete tlačítko Upravit, objeví se zcela nové okno s názvem Visual Basic Editor. Měl by existovat panel nástrojů a vše jako každé okno, ale v okně by měla být velká šedá oblast s oknem s názvem Module1 (Code). Uvnitř modulu Module1 klikněte, když jste na něj chtěli psát, zkopírujte jej a vložte na něj (přimějte žalovat, abyste vše vymazali, než to provedete v poli Module1.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Jako výzva Long MsgBox: = "ax^{2 + bx + c = 0 ", _} Název: = "Řešení kvadratického polynomu formuláře:" a = Application. InputBox (výzva: = "Zadejte hodnotu koeficientu 'a', Typ: = 1) b = Application. InputBox (výzva: =" Enter hodnota koeficientu 'b', Typ: = 1) c = Application. InputBox (výzva: = "Zadejte hodnotu koeficientu 'c', Typ: = 1) If a = 0 Then MsgBox" Rovnice není kvadratický "Jinak If ((b * b) - (4 * a * c))> = 0 Then MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Jinak MsgBox "Žádné skutečné řešení - imaginární" Konec Pokud End IfEnd Sub

Krok 3: Dokončení

Když má toto okno vše, co jsem vám řekl, abyste zkopírovali a vložili, zavřete VIsual Basic Editor. Nakonec přejděte do makra makra a poté spusťte na pravé straně první. Mělo by se objevit okno, které klikněte na OK, pak se objeví další pole, které bude hodnotou A v rovnici, pak další, které bude hodnotou B v rovnici a pak další, které bude hodnotou C. Hotovo pokud máte problém, řekněte mi to a zanechte mi nějakou zpětnou vazbu.