การใช้งาน Multi-Thread ในภาษา VBA แบบง่ายๆ

บทนำ

การเขียนโปรแกรมในยุคนี้ได้รับความนิยมอย่างมาก ไม่ว่าจะเป็นการพัฒนาเว็บแอปพลิเคชัน, โมบายแอป, หรือแม้กระทั่งการสร้างสเปรดชีตที่ทำงานร่วมกับ Microsoft Excel. ในมุมมองของการพัฒนา VBA (Visual Basic for Applications) ที่ใช้งานกันใน Excel, Multi-Threading เป็นฟีเจอร์ที่น่าสนใจ แต่ต้องเข้าใจก่อนว่า VBA ไม่รองรับ Multi-Threading อย่างเต็มที่เหมือนกับภาษาโปรแกรมอื่นๆ เช่น C# หรือ Java.

ในบทความนี้ เราจะมาสำรวจวิธีการใช้ Multi-Threading ใน VBA โดยจะมีตัวอย่างโค้ดและการอธิบายการทำงาน รวมถึงการกล่าวถึง use case ในโลกจริงด้วย

Multi-Threading คืออะไร?

Multi-Threading เป็นกระบวนการที่ช่วยให้โปรแกรมสามารถทำงานพร้อมกันในหลายๆ ส่วน (หรือที่เรียกว่า Threads) ซึ่งช่วยเพิ่มประสิทธิภาพในการทำงาน โดยเฉพาะเมื่อมีการประมวลผลข้อมูลที่ต้องใช้เวลานาน.

ทำไม VBA ถึงไม่รองรับ Multi-Threading?

VBA ถูกออกแบบมาเพื่อใช้งานในแอปพลิเคชันของ Microsoft Office และไม่มีการสนับสนุน Multi-Threading โดยตรง. เนื่องจากเสียงของ VBA เป็นแบบ Single Threaded หมายความว่ามันจะทำงานในหนึ่งเธรดเท่านั้น

แม้ว่า VBA จะไม่รองรับ Multi-Threading ได้อย่างเต็มที่ แต่วิธีที่เราใช้ได้จริงคือ การใช้การเรียกใช้งาน Windows API เพื่อให้สามารถทดสอบการทำงานแบบหลายเธรดได้บ้าง. หากคุณพบกับการประมวลผลข้อมูลขนาดใหญ่ หรือการเรียก API ที่ต้องใช้เวลานาน มาเริ่มดูวิธีง่ายๆ ในการทำงานกับ Multi-Threading ใน VBA กัน!

ตัวอย่างการใช้งาน Multi-Threading ใน VBA

เราจะเริ่มจากการตั้งค่าข้อมูล ขั้นแรก ให้สร้างโมดูลใหม่และวางโค้ดด้านล่างนี้โดยครั้งแรกเราจะเรียกใช้งาน A Thread Execution แบบง่ายๆ ผ่าน Windows API.

 Option Explicit

Private Declare PtrSafe Function CreateThread Lib "kernel32" ( _
    ByVal lpThreadAttributes As LongPtr, _
    ByVal dwStackSize As LongPtr, _
    ByVal lpStartAddress As LongPtr, _
    ByVal lpParameter As LongPtr, _
    ByVal dwCreationFlags As LongPtr, _
    ByRef dwThreadId As Long) As LongPtr

Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" ( _
    ByVal hHandle As LongPtr, _
    ByVal dwMilliseconds As Long) As Long

Private Declare PtrSafe Function CloseHandle Lib "kernel32" ( _
    ByVal hObject As LongPtr) As Long

Private Sub StartThread()
    Dim threadID As Long
    Dim threadHandle As LongPtr

    ' เริ่มต้น Thread ใหม่
    threadHandle = CreateThread(0, 0, AddressOf ThreadProcedure, 0, 0, threadID)

    ' รอให้ Thread เสร็จสิ้น
    WaitForSingleObject threadHandle, &HFFFFFFFF

    ' ปิด Thread Handle
    CloseHandle threadHandle
End Sub

' ฟังก์ชันสำหรับปฏิบัติการใน Thread
Private Function ThreadProcedure() As Long
    Dim i As Long
    For i = 1 To 10
        Debug.Print "Thread Running: " & i
        Application.Wait Now + TimeValue("0:00:01") ' รอนาทีละหนึ่งวินาที
    Next i
    ThreadProcedure = 0
End Function

อธิบายการทำงานของโค้ด

Use Case ในโลกจริง

การใช้งาน Multi-Threading ใน VBA อาจถูกนำไปใช้ในกรณีที่คุณต้องแทนที่การคำนวณที่ใช้เวลานาน เช่น:

สรุป

ถึงแม้ว่า VBA จะไม่สนับสนุน Multi-Threading โดยตรง แต่เรายังมีวิธีการใช้งานพื้นฐานเพื่อทำให้การทำงานของโปรแกรมมีประสิทธิภาพมากขึ้น หากคุณสนใจการเขียนโปรแกรมและต้องการเรียนรู้เพิ่มเติม ภายใน EPT (Expert-Programming-Tutor) คือสถานที่ที่เหมาะสมที่สุดสำหรับการเรียนรู้ในด้านการเขียนโปรแกรม.

การเข้าใจและนำ Multi-Threading มาใช้ได้อย่างมีประสิทธิภาพอาจเป็นกุญแจสำคัญที่ช่วยให้คุณพัฒนาทักษะการเขียนโปรแกรมของคุณได้อย่างรวดเร็ว. มาร่วมค้นหาความรู้และพัฒนาทักษะต่างๆ ที่ EPT ด้วยกันเถอะ!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง