Switch İle Koşul İşlemi Yap - Microsoft Excel

Switch kullanarak koşul işleminin nasıl yapıldığını bir örnekle gösteren VBA kodu alternatifidir.

Option Explicit

Sub SwitchIleKosulIslemiYap()
    Dim metin As String
    
    metin = Range("A1").Value
    
    Range("B1").Value = Switch(metin = "Ocak", 1, _
                               metin = "Şubat", 2, _
                               metin = "Mart", 3, _
                               metin = "Nisan", 4, _
                               metin = "Mayıs", 5, _
                               metin = "Haziran", 6, _
                               metin = "Temmuz", 7, _
                               metin = "Ağustos", 8, _
                               metin = "Eylül", 9, _
                               metin = "Ekim", 10, _
                               metin = "Kasım", 11, _
                               metin = "Aralık", 12)
End Sub

Option Explicit

Sub SwitchIleKosulIslemiYap()
    Dim deger As String
    
    deger = "Cumartesi"
    
    Range("A1").value = _
        Switch(deger = "Pazartesi", "Haftanın İlk Günü", _
               deger = "Salı", 2, _
               deger = "Çarşamba", 3, _
               deger = "Perşembe", 4, _
               deger = "Cuma", "Haftanın Son Günü", _
               deger = "Cumartesi", "Tatil Birinci Gün", _
               deger = "Pazar", "Tatil İkinci Gün")
End Sub