การใช้งาน If Statement ในภาษา VBA แบบง่ายๆ

ความหมายของ If Statement

If Statement เป็นคำสั่งที่ใช้ในการตรวจสอบเงื่อนไข หากเงื่อนไขนั้นเป็นจริง (True) จะทำการดำเนินการตามบล็อกคำสั่งที่ต่อไปนี้ และถ้าเงื่อนไขเป็นเท็จ (False) สามารถเลือกที่จะทำอะไรเป็นอย่างอื่น หรือไม่ทำออะไรเลยก็ได้

โครงสร้างของ If Statement

โครงสร้างพื้นฐานของ If Statement ใน VBA มีดังนี้:

 If condition Then
    ' คำสั่งที่ต้องการทำเมื่อเงื่อนไขเป็นจริง
Else
    ' คำสั่งที่ต้องการทำเมื่อเงื่อนไขเป็นเท็จ
End If

ตัวอย่าง CODE

มาดูตัวอย่างที่ง่าย ๆ ของการใช้ If Statement ใน VBA:

 Sub CheckAge()
    Dim age As Integer
    age = InputBox("กรุณากรอกอายุของคุณ:", "ตรวจสอบอายุ")

    If age >= 18 Then
        MsgBox "คุณเป็นผู้ใหญ่แล้ว"
    Else
        MsgBox "คุณยังเป็นเด็ก"
    End If
End Sub

ในตัวอย่างนี้ โปรแกรมจะขอให้ผู้ใช้กรอกอายุของตนเอง จากนั้นจะใช้ If Statement เพื่อตรวจสอบว่าอายุที่กรอกเข้ามาเป็นเกรด 18 ปีหรือไม่ หากเป็นจริงจะแสดงกล่องข้อความว่า "คุณเป็นผู้ใหญ่แล้ว" หากไม่เป็นจริงจะแสดงข้อความ "คุณยังเป็นเด็ก"

การทำงานของตัวอย่าง

Use Case ในโลกจริง

ลองนึกภาพดูว่าเรามีระบบการลงทะเบียนเข้าชั้นเรียนออนไลน์ที่ใช้ VBA สำหรับการจัดการข้อมูลของผู้เรียน การใช้ If Statement ช่วยให้เราสามารถตรวจสอบคุณสมบัติของผู้เรียนก่อนที่จะอนุญาตให้เข้าศึกษาได้ เช่น:

- หากผู้เรียนมีอายุไม่ถึง 18 ปี ระบบจะไม่อนุญาตให้สมัครเรียนในหลักสูตรที่มีเนื้อหารุนแรง

- หากผู้เรียนมีอายุ 18 ปีขึ้นไป ระบบอนุญาตให้สมัครเรียนหลักสูตรที่ต้องการ

 Sub RegisterCourse()
    Dim age As Integer
    Dim course As String
    age = InputBox("กรุณากรอกอายุของคุณ:", "ตรวจสอบอายุ")
    course = InputBox("กรุณากรอกหลักสูตรที่ต้องการเรียน:", "ลงทะเบียนหลักสูตร")

    If age < 18 Then
        MsgBox "คุณไม่สามารถลงทะเบียนในหลักสูตร " & course & " ได้"
    Else
        MsgBox "คุณสามารถลงทะเบียนในหลักสูตร " & course & " ได้แล้ว"
    End If
End Sub

อีกหนึ่งตัวอย่างการใช้งาน If Statement คือ การตรวจสอบยอดเงินในบัญชีธนาคาร ระบบอาจมีเงื่อนไขในการอนุญาตให้ถอนเงินที่มีอยู่ในบัญชี เช่น:

- หากยอดเงินในบัญชีมีมากกว่า 0 บาท สามารถถอนเงินได้

- หากยอดเงินในบัญชีเป็น 0 บาทหรือน้อยกว่า ระบบจะแจ้งเตือนไม่ให้ถอนเงิน

 Sub WithdrawMoney()
    Dim balance As Double
    Dim amount As Double

    balance = InputBox("กรุณากรอกยอดเงินในบัญชีของคุณ:", "ตรวจสอบยอดเงิน")
    amount = InputBox("กรุณากรอกจำนวนเงินที่ต้องการถอน:", "ถอนเงิน")

    If amount <= balance Then
        balance = balance - amount
        MsgBox "ถอนเงินสำเร็จ ยอดเงินคงเหลือ: " & balance & " บาท"
    Else
        MsgBox "ยอดเงินไม่เพียงพอสำหรับการถอน"
    End If
End Sub

สรุป

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

การเขียนโปรแกรมไม่ได้เป็นเรื่องที่ยากอย่างที่คิด! เมื่อคุณมีความเข้าใจในเครื่องมือพื้นฐานอย่าง If Statement นี้ คุณจะสามารถต่อยอดไปสู่การเขียนโค้ดที่ซับซ้อนยิ่งขึ้นได้อย่างง่ายดาย! จงมาเริ่มต้นการเดินทางในโลกของโปรแกรมมิ่งกับเราที่ EPT กันเถอะ!

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