Макрос квадратного уравнения в Excel: 3 шага

2024 Автор: John Day | [email protected]. Последнее изменение: 2024-01-30 11:54

вы можете легко решить квадратное уравнение, просто перейдя к макросу tools-macro-run. Я новый участник, и мне действительно нужна любая обратная связь, которую вы можете дать. Наслаждайтесь тем, что не используете какую-либо бумагу для решения этих уравнений!

Шаг 1. Подготовка к работе

open up excel в любой год - это нормально (предпочтительно 03, это то, что я использовал для создания этого макроса). Если вы используете Excel 07, он будет на виду, и там будет небольшое поле с надписью «макрос». Щелкните значок и перейдите к записи макроса. Появится окно, в котором будет указано имя и описание макроса. После того, как вы это сделаете, снова щелкните значок макроса, и появится другое окно, в котором должно быть имя макроса (имя по умолчанию будет Macro1)

Шаг 2: создание макроса

Хорошо, теперь вы переходите к редактированию в появившемся окне, оно должно быть справа на третьем месте вниз. Когда вы нажимаете кнопку редактирования, появляется новое окно, называемое визуальным базовым редактором. Должна быть панель инструментов и все, как в любом окне, но в окне должна быть большая серая область с окном с названием Module1 (Code). Внутри модуля Module1 щелкните мышью, когда вы собирались набрать его, скопируйте и вставьте это в него (заставьте sue удалить все, прежде чем делать это в поле Module1.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c As Long MsgBox prompt: = "ax"^{2 + bx + c = 0 ", _} Заголовок: = "Решение квадратичного полинома формы:" a = Application. InputBox (prompt: = "Введите значение коэффициента 'a'", Type: = 1) b = Application. InputBox (prompt: = "Введите значение коэффициента 'b' ", Тип: = 1) c = Application. InputBox (подсказка: =" Введите значение коэффициента 'c' ", Тип: = 1) Если a = 0, то MsgBox" Уравнение не является квадратичным »Иначе Если ((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)) Else MsgBox «Нет реального решения - воображаемое» Конец, если Конец IfEnd Sub

Шаг 3: Завершение

Когда в этом окне будет все, что я сказал вам скопировать и вставить, закройте VIsual Basic Editor. Наконец, перейдите к макросу просмотра макросов, затем перейдите к запуску с правой стороны первого макроса. Должно появиться всплывающее окно, нажмите OK, затем появится другое окно, в котором будет значение A в уравнении, затем еще одно, которое будет значением B в уравнении, а затем еще одно, которое будет значением C. Если у вас возникли проблемы, сообщите мне и оставьте отзыв.