คำสั่ง 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 ไปใส่ไว้ในวนลูป หรือเขียนเป็นฟังก์ชั่นไว้ตรวจสอบตัวแปรได้ครับ
