การใช้งาน dynamic typing variable ในภาษา VBA แบบง่ายๆ พร้อมตัวอย่าง CODE 3 ตัวอย่าง และอธิบายการทำงาน และยกตัวอย่าง usecase ในโลกจริง

การใช้งาน Dynamic Typing Variable ในภาษา VBA

สวัสดีครับทุกท่าน! วันนี้เรามาพูดถึงหนึ่งในคุณสมบัติที่น่าสนใจของภาษา Visual Basic for Applications (VBA) กันครับ นั่นคือการใช้งาน dynamic typing variable หรือการประกาศตัวแปรแบบไม่กำหนดประเภทข้อมูลล่วงหน้า ซึ่งเป็นเทคนิคที่ให้ความอิสระในการเขียนโค้ดและสามารถปรับแต่งเพื่อใช้งานในสถานการณ์ที่หลากหลายได้ แต่ก่อนที่จะไปถึงโค้ดตัวอย่าง มาทำความเข้าใจกับ dynamic typing กันก่อนดีกว่าครับ

Dynamic typing คืออะไร?

ใน VBA, dynamic typing หมายถึงการที่เราไม่จำเป็นต้องกำหนดประเภทของตัวแปรเมื่อเราประกาศมันขึ้นมา เราสามารถเก็บค่าใด ๆ ในตัวแปรนั้นและอาจเปลี่ยนแปลงประเภทของข้อมูลที่เก็บในตอนทำงานโปรแกรมได้ แต่จะมีการตรวจสอบประเภทของข้อมูลในระหว่างที่โปรแกรมกำลังทำงาน (runtime) เพื่อความปลอดภัยในการทำงานของโปรแกรมครับ

การประกาศตัวแปรแบบ Dynamic ใน VBA

ใน VBA, เราใช้คีย์เวิร์ด `Variant` สำหรับการประกาศตัวแปรแบบ dynamic typing ตัวอย่างโค้ดที่ 1 การประกาศตัวแปร dynamic:

Dim dynamicVar As Variant

dynamicVar = "Hello, World!"  ' ตอนนี้ dynamicVar เป็น String
Debug.Print TypeName(dynamicVar) ' ผลลัพธ์: String

dynamicVar = 100    ' ตอนนี้ dynamicVar เป็น Integer
Debug.Print TypeName(dynamicVar) ' ผลลัพธ์: Integer

dynamicVar = 99.99  ' ตอนนี้ dynamicVar เป็น Double
Debug.Print TypeName(dynamicVar) ' ผลลัพธ์: Double

ในที่นี้เราเริ่มด้วยการกำหนด `dynamicVar` เป็น Variant แล้วกำหนดข้อความ, ตัวเลข, และจำนวนทศนิยมให้กับมัน ใน VBA, `TypeName` จะแสดงประเภทข้อมูลปัจจุบันของตัวแปรที่เก็บค่าอยู่

ตัวอย่างโค้ดที่ 2 การใช้งานตัวแปร dynamic ในการคำนวณ:

Sub CalculateWithDynamic()
    Dim dynamicVar As Variant

    dynamicVar = InputBox("Enter a number or a string:")

    If IsNumeric(dynamicVar) Then
        dynamicVar = dynamicVar * 2 ' ทำการคูณ 2 หากเป็นตัวเลข
        MsgBox "Double of the entered number is: " & dynamicVar
    Else
        MsgBox "You entered a string: " & dynamicVar
    End If
End Sub

ในโค้ดนี้ เราใช้ InputBox สำหรับรับค่าจากผู้ใช้ ทำการตรวจสอบว่าค่าที่ได้เป็นตัวเลขหรือไม่ด้วย `IsNumeric` แล้วทำการคำนวณหรือแสดงผลตามเงื่อนไข

ตัวอย่างโค้ดที่ 3 การใช้งานตัวแปร dynamic ในการจัดการข้อมูล:

Sub ManageData()
    Dim data As Variant

    ' สร้าง Array แบบ dynamic
    data = Array("Apple", "Banana", "Cherry")

    ' เพิ่มข้อมูลใน Array
    ReDim Preserve data(UBound(data) + 1)
    data(UBound(data)) = "Date"

    ' ลูปเพื่อแสดงผลข้อมูลทั้งหมดใน Array
    Dim i As Integer
    For i = LBound(data) To UBound(data)
        Debug.Print data(i)
    Next i
End Sub

ในตัวอย่างนี้, เราจัดการข้อมูลแบบ array โดยใช้ `Variant` และสามารถขยายหรือเปลี่ยนแปลงข้อมูลใน array ได้อย่างอิสระ

Usecase

การใช้งานตัวแปรแบบ dynamic typing เหมาะสำหรับการเขียนโปรแกรมที่ต้องรับมือกับข้อมูลที่มีความหลากหลายหรือข้อมูลที่อาจเปลี่ยนแปลงประเภทได้ในระหว่างการทำงาน เช่น การเขียนโปรแกรมขั้นตอนการนำเข้าข้อมูลที่มาจากหลายแหล่ง เช่น ข้อมูลทางการเงินที่ประกอบด้วยทั้งตัวเลข, วันที่ และสตริง หรือในการพัฒนาแอปพลิเคชันที่ต้องทำงานกับ Excel เพื่อการวิเคราะห์ข้อมูลการเงินหรือสถิติที่มีค่าเป็นตัวเลขและข้อความผสมกัน

การเรียนศึกษาโปรแกรมมิ่งที่ EPT

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

นอกจากนี้ EPT ยังมีผู้สอนที่มีประสบการณ์และพร้อมให้คำแนะนำตลอดทั้งหลักสูตร เพื่อช่วยให้คุณต่อยอดความรู้และพัฒนาทักษะการเขียนโปรแกรมของคุณ ไม่ว่าจะเป็นเพื่อการศึกษา, การทำงาน, หรือแม้แต่การสร้างแอปพลิเคชันของตัวเอง! สนใจสมัครเรียนหรือขอข้อมูลเพิ่มเติมได้ที่ EPT ที่จะช่วยให้คุณก้าวไปข้างหน้าในเส้นทางการเป็นนักพัฒนาซอฟต์แวร์ครับ.

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