معادله درجه دوم ماکرو در اکسل: 3 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:58

شما به راحتی می توانید یک معادله درجه دوم را فقط با رفتن به ابزارهای کلان-macro-run حل کنید. من یک عضو جدید هستم و واقعاً به هر نوع بازخوردی که می توانید بدهید نیاز دارم. از حل هیچ معامله ای که از این معادلات استفاده می کند لذت ببرید!

مرحله 1: تنظیم امور

باز کردن اکسل در هر سال مشکلی نیست (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 (prompt: = "مقدار ضریب" a "را وارد کنید ، نوع: = 1) b = Application. InputBox (prompt: =" Enter مقدار ضریب "b" ، نوع: = 1) c = Application. InputBox (سریع: = "مقدار ضریب" c "را وارد کنید" ، نوع: = 1) اگر a = 0 سپس MsgBox "معادله درجه دوم نیست "در غیر این صورت ((b * b) - (4 * a * c))> = 0 سپس MsgBox ((-b + (Sqr ((b * b) - (4 * a * c))))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c))))) ((2 * a)) دیگر MsgBox "بدون راه حل واقعی - تخیلی" پایان اگر پایان بخش IfEnd

مرحله 3: پایان کار

وقتی آن پنجره همه چیز را دارد که به شما گفتم کپی و جایگذاری کنید ویرایشگر VIsual Basic را ببندید. در نهایت به ماکرو نمای ماکروها بروید و سپس اولین مورد را در سمت راست اجرا کنید. باید پنجره ای ظاهر شود که روی OK کلیک کنید سپس کادر دیگری ظاهر می شود که مقدار A در معادله خواهد بود ، سپس پنجره دیگری که معادل B است در معادله و سپس دیگری که مقدار C است. اگر مشکلی دارید لطفاً به من بگویید و لطفاً نوعی بازخورد برای من بگذارید.