Select Case Yapısı (Temiz If Alternatifi)

Kod Okunabilirliği

Eğer tek bir değişkene (Örn: Aylar veya Şehirler) bağlı 10 farklı ihtimal varsa Select Case en profesyonel çözümdür.

VBA Kodu:

Sub RenkBul()
    Dim renkKodu As String: renkKodu = "K"
    Select Case renkKodu
        Case "K": MsgBox "Kırmızı"
        Case "Y": MsgBox "Yeşil"
        Case "M": MsgBox "Mavi"
        Case Else: MsgBox "Bilinmeyen"
    End Select
End Sub

Ne Göreceksiniz? Değişken "K" olduğu için Case "K" bloğu tetiklenecek ve "Kırmızı" mesajı çok temiz bir şekilde çıkacaktır.