جدول المحتويات:

ماكرو المعادلة التربيعية في Excel: 3 خطوات
ماكرو المعادلة التربيعية في Excel: 3 خطوات

فيديو: ماكرو المعادلة التربيعية في Excel: 3 خطوات

فيديو: ماكرو المعادلة التربيعية في Excel: 3 خطوات
فيديو: لما مديرك يزنقك في الاكسل 2024, يونيو
Anonim
معادلة من الدرجة الثانية ماكرو في Excel
معادلة من الدرجة الثانية ماكرو في Excel

يمكنك بسهولة حل المعادلة التربيعية بالذهاب إلى الماكرو أدوات الماكرو. أنا عضو جديد وأحتاج حقًا إلى أي نوع من الملاحظات التي يمكنك تقديمها. استمتع بعدم استخدام أي ورقة لحل هذه المعادلات!

الخطوة 1: ضبط الأمور

إعداد الأمور
إعداد الأمور

فتح برنامج Excel أي سنة على ما يرام (يفضل 03 هذا ما كنت أستخدمه لصنع هذا الماكرو). إذا كنت تستخدم برنامج Excel 07 فسيكون قيد العرض وسيكون هناك مربع صغير يقول ماكرو. انقر فوق الرمز وانتقل إلى تسجيل الماكرو وستظهر نافذة ستقوم بإعداد اسم وأوصاف الماكرو. بعد القيام بذلك ، انقر فوق رمز الماكرو مرة أخرى وستظهر نافذة أخرى ، يجب أن يكون هناك في النافذة اسم الماكرو هناك (الاسم الافتراضي سيكون Macro1)

الخطوة 2: عمل الماكرو

صنع الماكرو
صنع الماكرو

حسنًا ، انتقل الآن إلى التعديل في النافذة التي ظهرت ، يجب أن تكون على الجانب الأيمن والثالث لأسفل. عندما تضغط على زر التعديل ، ستظهر نافذة جديدة بالكامل تسمى محرر أساسيات مرئية. يجب أن يكون هناك شريط أدوات وكل شيء مثل أي نافذة ، ولكن في النافذة يجب أن يكون هناك منطقة رمادية كبيرة بها نافذة تسمى Module1 (Code). داخل الوحدة النمطية 1 ، انقر فوق بينما كنت ستكتب عليها وانسخها والصقها عليها (اجعل دعوى قضائية تحذف كل شيء قبل القيام بذلك في مربع الوحدة 1.) Sub QuadraticFormula () Dim a As Long Dim b As Long Dim c كمطالبة طويلة MsgBox: = "ax2 + ب س + ج = 0 "، _ العنوان: = "حل متعدد الحدود التربيعي للنموذج:" a = Application. InputBox (موجه: = "أدخل قيمة المعامل" a "، اكتب: = 1) b = Application. InputBox (موجه: =" أدخل قيمة معامل 'b' ، النوع: = 1) c = Application. InputBox (موجه: = "أدخل قيمة معامل 'c'" ، اكتب: = 1) إذا كانت a = 0 ثم MsgBox "المعادلة ليست تربيعية "آخر إذا ((ب * ب) - (4 * أ * ج))> = 0 ثم MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * أ)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) آخر الأمر "لا يوجد حل حقيقي - خيالي" ينتهي إذا End IfEnd Sub

الخطوة 3: الانتهاء

الانتهاء
الانتهاء

عندما تحتوي هذه النافذة على كل ما أخبرتك بنسخه ولصقه ، أغلق محرر VIsual Basic. أخيرًا ، انتقل إلى وحدات الماكرو لعرض الماكرو ، ثم انتقل للتشغيل على الجانب الأيمن ، أول واحد. يجب أن تكون هناك نافذة منبثقة انقر فوق "موافق" ثم سيظهر مربع آخر يمثل قيمة A في المعادلة ثم آخر سيكون قيمة B في المعادلة ثم آخر سيكون بقيمة C. إذا كانت لديك مشكلة ، فيرجى إخباري والرجاء ترك نوع من التعليقات.

موصى به: