มาโครสมการกำลังสองใน Excel: 3 ขั้นตอน
มาโครสมการกำลังสองใน Excel: 3 ขั้นตอน

สารบัญ:

Anonim

คุณสามารถแก้สมการกำลังสองได้ง่ายๆ แค่ไปที่ tools-macro-run macro. I am a new member and need really need any kind of feedback you can give. สนุกกับการไม่ใช้กระดาษแก้สมการเหล่านี้!

ขั้นตอนที่ 1: การตั้งค่าสิ่งต่าง ๆ

เปิด excel ทุกปีก็โอเค (ควร 03 นั่นคือสิ่งที่ฉันเคยทำมาโครนี้) หากคุณใช้ excel 07 จะอยู่ภายใต้มุมมองและจะมีกล่องเล็กๆ ที่เขียนว่ามาโคร คลิกไอคอนและไปที่บันทึกมาโคร หน้าต่างจะปรากฏขึ้น มันจะตั้งชื่อและคำอธิบายของมาโคร หลังจากที่คุณคลิกบนไอคอนแมโครอีกครั้ง และหน้าต่างอื่นจะปรากฏขึ้น ควรมีชื่อมาโครในหน้าต่างนั้น (ชื่อเริ่มต้นจะเป็น Macro1)

ขั้นตอนที่ 2: การสร้างมาโคร

ตกลงตอนนี้คุณไปแก้ไขบนหน้าต่างที่ขึ้นมา มันควรจะอยู่ทางด้านขวามือที่สามลง เมื่อคุณกดปุ่มแก้ไข หน้าต่างใหม่ทั้งหมดจะปรากฏขึ้นเรียกว่า Visual Basic Editor ควรมีแถบเครื่องมือและทุกอย่างเหมือนกับหน้าต่างใดๆ แต่ในหน้าต่างควรมีพื้นที่สีเทาขนาดใหญ่ที่มีหน้าต่างชื่อ Module1(รหัส) ภายใน Module1 คลิกในขณะที่คุณจะพิมพ์และคัดลอกและวางสิ่งนี้ (อย่าลืมลบทุกอย่างก่อนที่คุณจะทำสิ่งนี้ในกล่อง Module1) Sub QuadraticFormula() Dim a As Long Dim b As Long Dim c ตราบใดที่ข้อความแจ้ง MsgBox:="ax2 + bx + c = 0", _ Title:="การแก้สมการกำลังสองของฟอร์ม:" a = Application. InputBox(prompt:="Enter the value of the 'a' coefficient", Type:=1) b = Application. InputBox(prompt:="Enter ค่าของสัมประสิทธิ์ 'b'", Type:=1) c = Application. InputBox(prompt:="Enter the value of the 'c' coefficient", Type:=1) If 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 Basic Editor สุดท้ายไปที่มาโครมุมมองมาโครแล้วไปที่เรียกใช้ทางด้านขวามือก่อน ควรมีหน้าต่างที่ปรากฏขึ้น คลิกตกลง จากนั้นกล่องอื่นจะปรากฏขึ้นที่จะเป็นค่าของ A ในสมการ จากนั้นอีกกล่องหนึ่งจะเป็นค่าของ B ในสมการ และอีกกล่องหนึ่งจะเป็นค่าของ C คุณทำเสร็จแล้ว หากคุณมีปัญหาโปรดบอกฉันและโปรดให้คำติชมแก่ฉัน