Select case görevini yapan bir işlev var mı?

[entropy_tr]

Selamlar arkadaşlar,

Excel işlevleri arasında VBA'da kullanıdığımız SELECT CASE görevini yerine getirebilecek bir işlev var mı?

 

[Civan Jack]

Eğer anlamına gelen If var.

 

[entropy_tr]

Teşekkürler ben IF - EĞER işlevinden bahsetmiyorum. Aşağıdaki kullanımı sağlayacak bir fonksiyon var mı diye sormuştum.

Select Case ay
Case 1,3,5,7,8,10,12
gun=31
case 4,6,11
gun=30
case 2
gun=28
end select

 

[Mehmet Şahin]

Merhaba,
örneğinizdeki gibi ayın son gününü döndüren bir fonksiyon.
Benzerlik açısından "choose" fonksiyonu da kullanılmıştır.
"Switch" fonksiyonuda değerler tamamlanarak kullanılabilir.
İyi çalışmalar.

Public Function son_gun(yil, ay) As Integer
If ay = 2 Then
    son_gun = IIf(yil Mod 4 = 0, 29, 28)
 Else
    son_gun = Choose(ay, 31, , 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
    [COLOR=SeaGreen]'son_gun = Switch(ay = 1, 31, ay = 3, 31, ay = 4, 30)[/COLOR]
End If
End Function

veya

Public Function son_gun(yil, ay) As Integer
    son_gun = Choose(ay, 31, IIf(yil Mod 4 = 0, 29, 28), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
End Function

 

[entropy_tr]

Teşekkürler Sayın dentex,

Çözümünüzü not ettim. Fakat, sanırım ben yanlış ifade ettim. "Formülle yapılabilir mi" idi benim merak ettiğim.

Eğer(yada(..);..;..) şeklinde kullanmaktan başka bir yol var mı diye merak edip, sormuştum.

İyi günler dilerim.