การใช้งาน Set และ Get ฟังก์ชัน และ OOP Concept ในภาษา VBA

การเขียนโปรแกรมเพื่อทำให้โลกของเราเป็นระเบียบมากขึ้นนั้น ไม่จำเป็นต้องมีการพัฒนาโปรแกรมที่ซับซ้อนมากนัก ในที่นี้เราจะมานำเสนอการใช้ฟังก์ชัน Set และ Get พร้อมกับแนวคิด OOP (Object-Oriented Programming) ในภาษา VBA แบบง่ายๆ อย่างที่เราทุกคนรู้กันว่า VBA นั้นเป็นภาษาโปรแกรมที่นิยมใช้มากใน Excel เรามาลองดูแนวคิดและการนำไปใช้งานกันดีกว่า!

OOP (Object-Oriented Programming) ในภาษา VBA

OOP เป็นแนวคิดการเขียนโปรแกรมที่เน้นการใช้งานข้อมูลในรูปแบบของ "วัตถุ" (Object) โดยวัตถุหนึ่งจะประกอบด้วย "ข้อมูล" (Properties) และ "ฟังก์ชัน" (Methods) ที่สามารถทำงานได้ ในภาษา VBA เราสามารถสร้างคลาส (Class) เพื่อใช้งานแนวคิดนี้ได้

การทำงานของ Set และ Get ฟังก์ชัน

ฟังก์ชัน Set และ Get ใน OOP จะถูกใช้เพื่อควบคุมการเข้าถึงข้อมูลใน Properties ของคลาส ซึ่ง Set จะใช้เพื่อกำหนดค่าให้กับ Properties และ Get จะใช้เพื่อดึงค่าของ Properties นั้นๆ ออกมา

ตัวอย่างของการสร้างคลาสใน VBA

มาสร้างคลาสที่ชื่อว่า `Car` ซึ่งมี Properties เพื่อเก็บข้อมูลเช่นชื่อรุ่น สี และปีผลิต โดยจะใช้ Set และ Get ฟังก์ชันเพื่อตั้งค่าและดึงค่าของ Properties

 ' สร้างคลาส Car
Option Explicit

Private pModel As String
Private pColor As String
Private pYear As Integer

' ฟังก์ชัน Get และ Set สำหรับ Model
Public Property Get Model() As String
    Model = pModel
End Property

Public Property Let Model(ByVal value As String)
    pModel = value
End Property

' ฟังก์ชัน Get และ Set สำหรับ Color
Public Property Get Color() As String
    Color = pColor
End Property

Public Property Let Color(ByVal value As String)
    pColor = value
End Property

' ฟังก์ชัน Get และ Set สำหรับ Year
Public Property Get Year() As Integer
    Year = pYear
End Property

Public Property Let Year(ByVal value As Integer)
    pYear = value
End Property

การใช้งานคลาส Car ในโมดูล

หลังจากที่เราสร้างคลาสแล้ว ต่อไปเราสามารถใช้งานคลาส Car ได้ในโมดูล ซึ่งจะเป็นการสร้างวัตถุ (Object) จากคลาสที่เราสร้างขึ้น

 Sub TestCar()
    Dim myCar As Car
    Set myCar = New Car

    ' ตั้งค่าให้กับ Properties
    myCar.Model = "Honda Civic"
    myCar.Color = "Red"
    myCar.Year = 2020

    ' ดึงค่าจาก Properties
    Debug.Print "Model: " & myCar.Model
    Debug.Print "Color: " & myCar.Color
    Debug.Print "Year: " & myCar.Year
End Sub

อธิบายการทำงาน

- ในการสร้างคลาส `Car` เราได้ทำการกำหนด Properties 3 ตัวคือ Model, Color, และ Year ในนั้นมีฟังก์ชัน Get และ Set สำหรับแต่ละ Property

- เมื่อเราสร้าง Sub ชื่อ `TestCar` เราจะได้สร้างวัตถุ `myCar` จากคลาส Car และสามารถใช้ฟังก์ชัน Set เพื่อตั้งค่าของ Properties และใช้ฟังก์ชัน Get เพื่อดึงค่าข้อมูลออกมาพิมพ์ใน Immediate Window

Use Case ในโลกจริง

แนวคิดการใช้ OOP และการสร้างฟังก์ชัน Set และ Get ในภาษา VBA สามารถนำไปใช้ในการทำงานจริงได้อย่างหลากหลาย เช่น:

สรุป

การใช้งาน Set และ Get ฟังก์ชันควบคู่กับแนวคิด OOP ในภาษา VBA เป็นแนวทางที่ช่วยให้เราสามารถจัดการและควบคุมข้อมูลได้อย่างมีประสิทธิภาพ ช่วยให้โค้ดของเรานั้นมีความสะอาดและเข้าใจง่ายมากยิ่งขึ้น

หากคุณประทับใจในการเรียนรู้การเขียนโปรแกรมในแนวนี้ และอยากจะพัฒนาทักษะของคุณให้ดียิ่งขึ้น เราขอเชิญชวนให้คุณมาศึกษาเพิ่มเติมที่ EPT (Expert-Programming-Tutor) ที่นี่เรามีหลักสูตรที่ครอบคลุมการเขียนโปรแกรมทุกรูปแบบ พร้อมทั้งได้รับการสนับสนุนจากทีมงานที่มีประสบการณ์ที่จะทำให้การเรียนรู้ของคุณนั้นสนุกสนานและมีประสิทธิภาพ

เรียนรู้ไปด้วยกันเพื่อสร้างอนาคตที่เราต้องการ!

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