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

2024 Автор: John Day | [email protected]. Последно модифициран: 2024-01-30 07:55

можете лесно да решите квадратно уравнение, като просто отидете на tools-macro-run macro. Аз съм нов член и наистина се нуждая от всякакъв вид обратна връзка, която можете да дадете.

Стъпка 1: Настройте нещата

отваряне на excel всяка година е наред (предпочитано 03 това използвах, за да направя този макрос). Ако използвате Excel 07, той ще бъде видян и ще има малко поле, което казва макрос. Щракнете върху иконата и отидете да записвате макрос, ще се появи прозорец, в който ще се настроят името и описанията на макроса. След като направите това, щракнете отново върху иконата на макрос и ще се появи друг прозорец, в прозореца трябва да има името на макроса (името по подразбиране ще бъде Macro1)

Стъпка 2: Създаване на макрос

Добре, сега отивате да редактирате в прозореца, който се появи, той трябва да бъде от дясната страна трети надолу. Когато натиснете бутона за редактиране, ще се появи цял нов прозорец, наречен визуален основен редактор. Трябва да има лента с инструменти и всичко като всеки прозорец, но в прозореца трябва да има голяма сива зона с прозорец, наречен Module1 (Code). Вътре в Module1 щракнете, докато възнамерявате да го напишете и копирайте и поставете това върху него (карайте да изтриете всичко, преди да направите това в полето Module1.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c Като Long MsgBox подкана: = "ax^{2 + bx + c = 0 ", _} Заглавие: = "Решаване на квадратен полином на формата:" a = Application. InputBox (подкана: = "Въведете стойността на коефициента" a "", Тип: = 1) b = Application. InputBox (подкана: = "Enter стойността на 'b' коефициента ", Тип: = 1) c = Application. InputBox (подкана: =" Въведете стойността на коефициента "c" ", Тип: = 1) Ако a = 0 Тогава MsgBox" Уравнението не е квадратично "Else If ((b * b) - (4 * a * c))> = 0 Тогава MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * а)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Друг MsgBox "Няма реално решение - въображаем" Край, ако Край на IfEnd Sub

Стъпка 3: Завършване

Когато този прозорец има всичко, което ви казах да копирате и поставите, затворете VIsual Basic Editor. Накрая отидете на макроси с макровизуализация, след това отидете да изпълните първата от дясната страна. Трябва да има изскачащ прозорец, щракнете върху OK, след това ще се появи друго поле, което ще бъде стойността на A в уравнението, след това друго, което ще бъде стойността на B в уравнението, и след това друго, което ще бъде стойността на C. ако имате проблем, моля, кажете ми и моля, оставете ми някаква обратна връзка.