Access yardımdan alıntı:

Dim sayi

sayi = 8    ' Initialize variable.

Select Case sayi' Evaluate Number.

Case 1 To 5    ' Number between 1 and 5, inclusive.

    Debug.Print "Between 1 and 5"

' The following is the only Case clause that evaluates to True.

Case 6, 7, 8    ' Number between 6 and 8.

    Debug.Print "Between 6 and 8"

Case 9 To 10    ' Number is 9 or 10.

Debug.Print "Greater than 8"

Case Else    ' Other values.

    Debug.Print "Not between 1 and 10"

End Select

Örnekten de anlayacağınız gibi çoklu değer atama, değer aralığı atama vb. özellikleri mevcut.

NOT : İnsanı deli edecek kadar zor olan tüm konu başlığı ve cevap başlıklarını tek tek düzeltmek zorunda kaldım.