30.09.2018 tarihinde Excel bölümüne Dış Verilerle çalışmak sayfası eklenmiştir

04.08.2018 tarihinde VBA bölümüne ObjelerDünyası sayfası eklenmiştir

25.07.2018 tarihinde VBA bölümüne Outlook programlama sayfası eklenmiştir

13.07.2018 tarihinde VBA bölümüne Formlar-Kontroller sayfası eklenmiştir

25.05.2018 Hosting şirketi dğeiştirmekten kaynaklı bir hata nedeniyle Excelent add-ini indirirken hata alınmaktaydı. Bu hata düzeltilmiştir. İki ayrı download alternatifi sunulmuştur. Kurumunuzun BT politikalarının veya şahsi PC’nizdeki güvenlik ayarlarının izin vermesi durumunda yöntemlerden biriyle kurulum yapabilmelisiniz. Bi sorun olursa bana iletebilirseniz sevinirim.

VBAMakroKoşul ifadeleri ve Döngüler2

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.

Select Case

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

Diğer iki koşul yapısı

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

YORUMLAR