מאקרו משוואת ריבוע באקסל: 3 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:18

אתה יכול לפתור בקלות משוואה ריבועית על ידי מעבר למקרו הכלים-הפעלה מאקרו. אני חבר חדש ובאמת צריך כל סוג של משוב שאתה יכול לתת. תהנה לא להשתמש בנייר הפותר משוואות אלה!

שלב 1: הגדרת דברים

לפתוח אקסל כל שנה זה בסדר (עדיף 03 זה מה שהייתי עושה להכנת המאקרו הזה). אם אתה משתמש ב- Excel 07 זה יהיה גלוי ותהיה תיבה קטנה שאומרת מאקרו. לחץ על הסמל ועבור להקלטת מאקרו ויופיע חלון שיגדיר את השם והתיאורים של המאקרו. לאחר שתעשה זאת, לחץ שוב על סמל המאקרו ויופיע חלון אחר אמור להיות בחלון שם המאקרו שם (שם ברירת המחדל יהיה מאקרו 1)

שלב 2: הכנת המאקרו

אוקיי עכשיו אתה הולך לערוך על החלון שעלה, זה אמור להיות בצד ימין שלישי למטה. כאשר תלחץ על כפתור העריכה יופיע חלון חדש לגמרי בשם עורך בסיסי ויזואלי. צריך להיות סרגל כלים והכל כמו כל חלון, אבל בחלון צריך להיות שטח אפור גדול עם חלון שנקרא Module1 (Code). בתוך הלחץ של מודול 1 כפי שהיית מתכוון להקליד עליו ולהעתיק ולהדביק אותו עליו (תבעו שתמחקו הכל לפני שתעשו זאת בתיבה מודול 1). בהנחיית Long MsgBox: = "ax^{2 + bx + c = 0 ", _} Title: = "פתרון פולינום ריבועי של הטופס:" a = Application. InputBox (prompt: = "הזן את הערך של מקדם 'a', סוג: = 1) b = Application. InputBox (הנחיה: =" Enter הערך של מקדם 'b', סוג: = 1) c = Application. InputBox (prompt: = "הזן את הערך של מקדם '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 Sub

שלב 3: סיום

כאשר חלון זה כולל את כל מה שאמרתי לך להעתיק ולהדביק סגור את עורך הבסיס VIsual. לבסוף עבור אל פקודות מאקרו-תצוגה ולאחר מכן עבור להפעלה בצד ימין הראשון. צריך להיות חלון שצץ לחץ על אישור ואז תופיע תיבה נוספת שתהיה הערך של A במשוואה ואז אחר שיהיה הערך של B במשוואה ולאחר מכן עוד אחד שיהיה הערך של C. סיימת אם יש לך בעיה אנא ספר לי והשאיר לי סוג של משוב.