Select Case ve Diğer koşullu yapılar

If yapısı tek koşul yapısı değildir. Select Case yapısı başta olmak üzere üç ayrı ifade daha vardır. Bu bölümde de bunlara bakacağız.

Kontrol edilen şey en az 3 farklı değer için kontrol ediliyorsa If Then Else yerine Select Case yapısı tercih edilebilir; zira okunuruluk açısından böylesi daha iyi olacaktır. Genel kullanım şekli şöyledir.

							
								Select Case SorgulananŞey
								   Case şuysa
									  şunu yap
								   Case buysa 
									  bunu yap
								   Case ....
									  ....
								   Case Else 'Diğer durumlarda da burayı işlet
									  ....
								End Select

Örneğimizi kompleks durumları da içerecek şekilde yapalım.

							
								Dim sayı as Integer
								sayı=Inputbox("Bir sayı girin")

								Select Case sayı
								   Case Is < 0
									  MsgBox "Negatif bir sayı girdiniz"
								   Case 1 To 9
									  MsgBox "Pozitif bir rakam girdiniz" '0-9 arasındaki herşey rakamdır, 9un üstündekiler rakam değil sayıdır
								   Case Is > 0 
									  MsgBox "Pozitif bir sayı girdiniz"
								   Case 0
									  MsgBox "0 girdiniz" '0 da bir rakamdır ama biz onu ayrı ele allaım dedik
								   Case Else
									  MsgBox "Lütfen geçerli bir sayı giriniz"
								End Select

Gördüğünüz gibi bir değer aralığı için x To y şeklinde, birşeyden küçük/büyük için ise Is > 0 şeklinde yazıyoruz. Birkaç değeri yanyana yazacaksa da "," ile birbirinden ayrırız. Dosya formatına göre uzantı belirlenen aşağıdaki örnekte de bu durumu görüyoruz.

						
								Select Case ActiveWorkbook.FileFormat
									Case "-4143", "-4158", 6, 56 'normal xls, txt, csv veya Excel2007deki 97-2003 xls'i mi
										FileExtStr = ".xls"
									Case 50, 51, 52 'xlsx, xlsb veya xlsm ise
										FileExtStr = ".xlsx"
									Case Else
										MsgBox "Bu dosya formatı bu makronun çalışması için uygun değil. xls, xlsx, xlsb, xlsm, txt veya csv dosyalarıyla çalışmalısınız"
										Exit Sub
								End Select

NOT:En az 3 değer için sorgulama olması durumunda Select Case tercih edilmeli dedik, ancak sorgulanan şey her defasında değişiyorsa yine If Then Else kullanılmalıdır. Ör:

						
								Sub ifmiselectmi()
								If a > 10 Then
								'şunları yap
								ElseIf b > 20 Then
								'şunları yap
								ElseIf c > 50 Then
								'şunları yap
								ElseIf d > 100 Then
								'şunları yap
								Else
								'şunları yap
								End If
								End Sub

Choose

1'den başlayıp artarak giden bir sırada ilerleyen bir değer grubu varsa, ve bir değişkene değer atamak istiyorsanız, bunlar için If veya Select Case yapısı kullanmak yerine Choose ifadesinin kullanmak çok daha pratik olacaktr. Genel Syntax'ı şöyledir.
Syntax:Choose(değişken,değer1,değer2,......,değerx)
Bu örnekte değişken=1 değerini alıyorsa dönen değer Değer1, değişken=2 ise dönen değer=Değer2 olur ve bu şekilde ilerler.
Aylar için bu özellik rahatlıkla kullanılabilir. Örneğin, ay isimlerinden oluşan bir klasör grubunuz var diyelim. Kullanıcıya ay ismini girdirmek yerine ay numarasını isteyerek istediğiniz ay adını elde edebilirsiniz.

							
								Sub chooseornek()
								Dim ayno As Integer
								Dim ayadı As String

								ayno = Application.InputBox("ay no giriniz", Type:=1)
								ayadı = Choose(ayno, "Ocak", "Şubat", , , , , "Aralık")
								'kodların devamı

								Debug.Print ayadı

								End Sub

Not:Eğer eleman sayısından fazla bir index girilirse null döndürür. Bu örnekte 13 girmek gibi. Tabi ayadı değişkenimiz String tanımlandığı için kod hata alır. Ancak String yerine variant tanımlanırsa Immediate Window'a Null yazdığını görebilirsiniz.

Switch

If Else End If'in tek satır karşılığı nasıl IIF ise, Select Case'in de tek satır versiyonu Switchtir. Genel kullanımı şekli şöyledir:
x=Switch(Şart 1,Sonuç 1,Şart 2,Sonuç 2,....,Şart n,Sonuç n)

							
								Sub switchornek()
								kanalkodu = 1
								kanaladı = Switch(kanalkodu = 1, "Şube", kanalkodu = 8, "İnternet", kanalkodu = 16, "Mobil")
								MsgBox kanaladı

								End Sub

Okunurluğu artırmak adına şu şekilde de düzenlenebilir:

							
								Sub switchornek()
								  kanalkodu = 1
								  kanaladı = Switch(kanalkodu = 1, "Şube", _
								  kanalkodu = 8, "İnternet", _
								  kanalkodu = 16, "Mobil")
								  MsgBox kanaladı
								End Sub