วิธีการสร้างฟังก์ชันแฟคทอเรียลใน vba (พร้อมตัวอย่าง)

แฟกทอเรียล คือผลคูณของจำนวนเต็มบวกทั้งหมดที่น้อยกว่าหรือเท่ากับจำนวนเต็มบวกที่กำหนด

ตัวอย่างเช่น 5 แฟคทอเรียล (เขียนเป็น 5!) คำนวณได้ดังนี้:

• 5! = 5 * 4 * 3 * 2 * 1 = 120

คุณสามารถใช้ไวยากรณ์ต่อไปนี้เพื่อสร้างฟังก์ชันแฟกทอเรียลใน VBA:

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

เมื่อคุณสร้างฟังก์ชันนี้แล้ว คุณสามารถพิมพ์ข้อความเช่น =FindFactorial(A2) ลงในเซลล์ใน Excel เพื่อค้นหาแฟกทอเรียลของจำนวนเต็มในเซลล์ A2

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: สร้างฟังก์ชันแฟกทอเรียลใน VBA

สมมติว่าเรามีรายการตัวเลขต่อไปนี้ใน Excel และเราต้องการคำนวณแฟกทอเรียลของแต่ละตัวเลข:

เราสามารถกำหนดฟังก์ชันต่อไปนี้ใน VBA เพื่อทำสิ่งนี้:

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

เมื่อเราสร้างฟังก์ชันนี้แล้ว เราสามารถพิมพ์สูตรต่อไปนี้ในเซลล์ B2 เพื่อคำนวณค่าแฟกทอเรียลของค่าในเซลล์ A2 :

 =FindFactorial( A2 )

จากนั้นเราสามารถคลิกและลากสูตรนี้ไปยังแต่ละเซลล์ที่เหลือในคอลัมน์ B:

โปรดทราบว่าตอนนี้คอลัมน์ B จะแสดงแฟกทอเรียลของจำนวนเต็มแต่ละจำนวนในคอลัมน์ A

ตัวอย่างเช่น:

• 1! = 1
• 2! = 2 * 1 = 2
• 3! = 3 * 2 * 1 = 6
• 4! = 4 * 3 * 2 * 1 = 24

และอื่นๆ

หมายเหตุ : หากต้องการคำนวณแฟกทอเรียลใน Excel โดยไม่ใช้ VBA คุณสามารถใช้ฟังก์ชัน FACT ได้

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีเพิ่มค่าในช่วง
VBA: วิธีคำนวณค่าเฉลี่ยของช่วง
VBA: วิธีนับจำนวนแถวในช่วง