เนื้อหา

• คำสั่ง
• เคล็ดลับ
• สิ่งที่คุณต้องการ

จำนวนเฉพาะมีตัวหารเพียงจำนวนหนึ่งและจำนวนตัวเอง ตัวอย่างเช่น 13 เป็นจำนวนเฉพาะเพราะมีตัวหารที่ 1 และ 13 เท่านั้นทุกหมายเลขสามารถเขียนเป็นผลิตภัณฑ์ของจำนวนเฉพาะได้ มีเครื่องมือมากมายสำหรับการค้นหาหมายเลขเฉพาะรวมถึงโครงร่างการตัดสินใจ คุณสามารถเพิ่มมาโครใน Excel 2007 ได้อย่างง่ายดายเพื่อแทนที่ส่วนหนึ่งของกระบวนการตัดสินใจ แมโครเป็นเครื่องมือที่ช่วยให้คุณสามารถปรับแต่ง Excel ด้วยปุ่มของคุณเอง: ในกรณีนี้ปุ่มที่คำนวณปัจจัยต่างๆ เมื่อคุณเพิ่มมาโครเพียงป้อนหมายเลขแล้ว Excel จะคำนวณปัจจัยต่างๆ

คำสั่ง

ใช้ Excel และค้นหาตัวประกอบสำคัญและตัวเลข (ภาพตัวเลขโดย Paul Hampton จาก Fotolia.com)

1. ปิดสมุดงานทั้งหมดและเริ่มแผ่นงาน Excel ใหม่ กด "ALT + F11" เพื่อเริ่มตัวแก้ไขภาพพื้นฐาน

2. คลิกสองครั้งที่สมุดงานในเมนู VBAProject ที่ด้านบนซ้ายของหน้าจอเพื่อเปิดแผ่นงาน

3. ตัดและวางรหัสต่อไปนี้ลงในสมุดงานเปล่า:

   Sub GetFactors () Dim นับเป็นจำนวนเต็ม Dim NumToFactor เป็น Single 'จำนวนเต็ม จำกัด <32768 Dim Factor เป็น Single Dim และ Single Dim IntCheck เป็น Single

   จำนวน = 0 NumToFactor = _ Application.InputBox (พร้อมรับคำ: = "จำนวนเต็มประเภท", ประเภท: = 1) 'บังคับให้ป้อนจำนวนเต็มมากกว่า 0' เป็น 0 - อนุญาตการยกเลิก Else if NumToFactor <1 จากนั้น MsgBox "โปรดป้อนจำนวนเต็มมากกว่าศูนย์" ElseIf IntCheck> 0 จากนั้น MsgBox "โปรดป้อนจำนวนเต็ม - ไม่มีทศนิยม" สิ้นสุดถ้า 'วนซ้ำจนกว่าจะป้อนจำนวนเต็มมากกว่า 0 วนขณะที่ NumToFactor <= 0 หรือ IntCheck> 0 สำหรับ y = 1 ถึง NumToFactor' ใส่ข้อความในแถบสถานะเพื่อระบุจำนวนเต็มที่กำลังตรวจสอบ Application.StatusBar = "กำลังตรวจสอบ" & y Factor = NumToFactor Mod และ 'พิจารณาว่าผลลัพธ์ของการหารด้วย Mod นั้นไม่มีส่วนที่เหลือและเป็นปัจจัย หากปัจจัย = 0 แล้ว 'ป้อนปัจจัยลงในคอลัมน์ที่ขึ้นต้นด้วยเซลล์ที่ใช้งานอยู่ ActiveCell.Offset (Count, 0) .Value = y 'เพิ่มจำนวนเพื่อชดเชยสำหรับค่าถัดไป Count = Count + 1 End หากถัดไป 'Restore Status Bar Application.StatusBar = "พร้อม" Sub Sub

   
   

   Sub GetPrime () Dim นับเป็นจำนวนเต็ม Dim BegNum เป็น Single 'Integer จำกัด <32768 Dim EndNum เป็น Single Dim Prime เป็น Single Dim Prime เป็น Single Dim flag เป็น Integer Dim IntCheck As Single Count = 0

   ทำ BegNum = _ Application.InputBox (พร้อมท์: = "พิมพ์หมายเลขเริ่มต้น", ประเภท: = 1) 'บังคับให้ป้อนจำนวนเต็มมากกว่า 0 IntCheck = BegNum - Int (BegNum) ถ้า BegNum = 0 แล้วออกจาก Sub' ยกเลิกคือ 0 - อนุญาตการยกเลิก Else if BegNum <1 จากนั้น MsgBox "โปรดป้อนจำนวนเต็มมากกว่าศูนย์" ElseIf IntCheck> 0 จากนั้น MsgBox "โปรดป้อนจำนวนเต็ม - ไม่มีทศนิยม" สิ้นสุดถ้า 'วนซ้ำจนกว่าจะป้อนจำนวนเต็มมากกว่า 0 วนขณะที่ BegNum <= 0 หรือ IntCheck> 0

   EndNum = _ Application.InputBox (พร้อมท์: = "พิมพ์หมายเลขสิ้นสุด", ประเภท: = 1) 'บังคับให้ป้อนจำนวนเต็มมากกว่า 0 IntCheck = EndNum - Int (EndNum) ถ้า EndNum = 0 แล้วออกจาก Sub' ยกเลิกคือ 0 - อนุญาตการยกเลิก Else if EndNum <BegNum แล้ว MsgBox "โปรดป้อนจำนวนเต็มที่มากกว่า" & BegNum ElseIf EndNum <1 จากนั้น MsgBox "โปรดป้อนจำนวนเต็มที่มากกว่าศูนย์" ElseIf IntCheck> 0 จากนั้น MsgBox "โปรดป้อนจำนวนเต็ม - ไม่มีทศนิยม" สิ้นสุดถ้า 'วนซ้ำจนกว่าจะป้อนจำนวนเต็มมากกว่า 0 วนขณะ EndNum <BegNum หรือ EndNum <= 0 หรือ IntCheck> 0

   
   

   สำหรับ y = BegNum ถึง EndNum flag = 0 z = 1 ทำจนกระทั่ง flag = 1 หรือ z = y + 1 'ใส่ข้อความลงใน Status Bar เพื่อระบุจำนวนเต็มและตัวหารในแต่ละ loop Application.StatusBar = y & "/" & z Prime = y Mod z หาก Prime = 0 และ z <> y และ z <> 1 จากนั้นตั้งค่าสถานะ = 1 สิ้นสุดถ้า z = z + 1 Loop

   หากแฟล็ก = 0 แล้ว 'ป้อนตัวประกอบลงในคอลัมน์ที่ขึ้นต้นด้วยเซลล์ที่ใช้งานอยู่ ActiveCell.Offset (Count, 0) .Value = y 'เพิ่มจำนวนเพื่อชดเชยสำหรับค่าถัดไป Count = Count + 1 End หากถัดไปและ 'Restore Status Bar Application.StatusBar = "พร้อม" End Sub

4. คลิก "ไฟล์" จากนั้นเลือก "ปิดและกลับสู่ Microsoft Excel"

5. คลิกปุ่ม Microsoft Office ใน Excel คลิก "ตัวเลือกของ Excel" "ปรับแต่ง" แล้วเลือก "มาโคร" ในคำสั่ง "เลือก"

6. ในรายการคลิกแมโคร "ThisWorkbook.GetFactors" แล้วคลิก "เพิ่ม" คลิก "ตกลง" การดำเนินการนี้ทำให้แมโครถูกเพิ่มลงในแถบเครื่องมือด่วนที่ด้านบนซ้ายของ Excel

7. เลือกเซลล์ที่คุณต้องการให้ข้อมูลปรากฏ

8. คลิกปุ่มมาโครบนแถบเครื่องมือด่วน ป้อนจำนวนที่คุณต้องการค้นหาตัวประกอบสำคัญ Excel จะส่งคืนรายการปัจจัยทั้งหมด (รวมถึงช่วงเวลาและช่วงเวลาที่ไม่ใช่ลูกพี่ลูกน้อง) ในคอลัมน์ที่เลือก ตัวอย่างเช่นปัจจัยของ 30 คือ 1,2,3,5,6,10,15 และ 30

9. เลือกหมายเลขเฉพาะจากรายการที่มีให้ ตัวเลขสำคัญในรายการคือ 2,3 และ 5 นี่คือปัจจัยสำคัญของจำนวนที่คุณระบุ

เคล็ดลับ

• ให้ Excel คำนวณเขตการปกครองของคุณ เพิ่มสมการที่เกี่ยวข้องลงในเซลล์ที่คืนค่าปัจจัยแทนที่จะคำนวณด้วยมือ

สิ่งที่คุณต้องการ

• Excel 2007