Select Case (Excel VBA)

คำสั่ง Select Case คือการตรวจสอบเงื่อนไขที่เป็นการตรวจสอบตัวแปรเท่านั้น

Select Case variable

     Case condition1

         statments1

     Case condition2

         statments2

     Case condition3

         statments3

     Case condition4

         statments4

End Select

ตัวอย่าง:

Dim survey As String
Dim score As Integer: score = 3
Select Case score
    Case Is = 5
        survey = "Strongly Satisfied"
    Case Is = 4
        survey = "Satisfied"
    Case Is = 3
        survey = "Neutral"
    Case Is = 2
        survey = "Dissatisfied"
    Case Is = 1
        survey = "Strongly Dissatisfied"
End Select
Debug.Print "Survey : " & survey

เมื่อรันโค้ดดังกล่าวในหน้าต่าง immediate ก็จะแสดง Survey: Neutral

ในการเขียนโปรแกรมเรายังสามารถนำ Select Case ไปใส่ไว้ในวนลูป หรือเขียนเป็นฟังก์ชั่นไว้ตรวจสอบตัวแปรได้ครับ