Bilal SERT

IF-ELSEIF karar yap�s�

IF ... ELSEIF ... THEN �art yap�s�n�n incelenmesi

Daha önce belirli bir �art sa�land��nda ya da istenilen �art sa�lanmad��nda bir tak�m i�lemlerin yap�lmas�na imkan tan�yan if ve if-else yap�lar�n� incelemi�tik. Bu yap�lar�n her ikisi de sadece ve sadece bir tek �art�n do�ru ya da yanl�� olmas�na ba�l� olarak hareket ederler. Lakin bazen bir çok durum alabilen olaylar� irdelemek isteriz. Bu olaylar genelde çok durumlu olup bu durumlardan herhangi biri sa�land��nda da sadece o duruma özel bir i�lem yapmak isteyebiliriz. Özetle bir çok �art cümlesini kontrol edip bunlar�n do�ru olmalar� halinde sadece ve sadece o �arta özel i�lemler yapmak istedi�imizde if-elseif-then yap�s�n� kullan�r�z.

�ekil-1

�ekil-1 de görüldü�ü üzere A noktas�ndan B noktas�na akmak isteyen program�m�z yolda kar��la�t�� art cümlelerine göre de�i�ik yollar izleyecektir. Örne�in program yukar�dan a�a��ya do�ru i�letilirken daha ilk �art cümlesi do�ru ise bu durumda i�lem-1 yap�lacak ve program B noktas�ndan akmaya devam edecektir. �ayet �art-1 do�ru de�ilse program 2. �art� kontrol etmek üzere yoluna devam edecektir. Bu i�lem böyle yazd��n�z �art say�s�na göre devam edecek ve �artlardan herhangi biri sa�land��nda ona ait olan i�lem yap�ld�ktan sonra program B noktas�na atlayarak akmaya devam edecektir. Ancak yazm�� oldu�unuz �artlar tek tek kontrol edilmesine ra�men herhangi biri do�ru de�ilse bu durumda son �art cümlesinden sonra yazaca��n�z Else yap�s�ndaki kodlar i�letilecektir. �imdi buraya kadar anlatt�klar�m�z� kabaca VBA olarak yazmaya çal��al�m.

if �art1 then
�art1 do�ru ise yap�lacak i�lemlere ait program kodlar�
elseif �art2 then
�art2 do�ru ise yap�lacak i�lemlere ait program kodlar�
elseif �art3 then
�art3 do�ru ise yap�lacak i�lemlere ait program kodlar�
.....
elseif �art-n then
�art-n do�ru ise yap�lacak i�lemlere ait program kodlar�
else
�artlar�n hiç biri sa�lanm�yorsa yap�lacak i�lemlere ait program kodlar�
end if

�imdi buraya kadar ifade etmeye çal��t��m�z bu yap�y� gerçek VBA kodlar� üzerinde anlatmaya çal��al�m. �lk örne�imizde 0-9 aras�ndaki say�lar� metne dönü�türen bir fonksiyon yazaca��z. Burada de�inilen fonksiyon yap�s� ilerideki konularda ele al�nacakt�r(Bu laf� da o kadar s�k okuyorsunuz ki san�yorum biraz itici olmaya ba�lad� ama ne yapal�m ilkel de olsa çal��an örnekler yazmak gerekti�inde konular ister istemez böyle girift bir hal al�yor...) Burada dikkat edilecek iki konu vard�r. Birincisi bu fonksiyonun tüm çal��ma sayfalar�nda =sayilariOku(A5) vb. �eklinde kullan�labilmesi için Modül eklenerek bu modülün içerisine yaz�lmas� gerekti�idir. �kinci ise C, C++, Java vb. dillerde fonksiyonlar geriye de�er döndürürken return sözcü�ünü kullan�yorken burada fonksiyon ad�n�n kullan�ld��d�r.

Function sayilariOku(deger As Byte) As String
'Kendisine gönderilen 0-9 aras�ndaki say�lar� metne dönü�türen fonksiyon olup
'bu aral�k d��nda ancak (0-255) aras�nda kalmak kayd� ile gönderilen di�er
'de�erler için GEÇERS�Z G�RD� sonucu üretmektedir.
Dim sonuc As String
If deger = 0 Then
sonuc = "SIFIR"
ElseIf deger = 1 Then
sonuc = "B�R"
ElseIf deger = 2 Then
sonuc = "�K�"
ElseIf deger = 3 Then
sonuc = "ÜÇ"
ElseIf deger = 4 Then
sonuc = "DÖRT"
ElseIf deger = 5 Then
sonuc = "BE�"
ElseIf deger = 6 Then
sonuc = "ALTI"
ElseIf deger = 7 Then
sonuc = "YED�"
ElseIf deger = 8 Then
sonuc = "SEK�Z"
ElseIf deger = 9 Then
sonuc = "DOKUZ"
Else
sonuc = "GEÇERS�Z G�RD�"
End If
sayilariOku = sonuc
End Function

�kinci örne�imizde ise maas olarak gönderilen parametreye göre de�i�ik String de�erler üreten bir fonksiyon yaz�lm��t�r. Fonksiyon aral�k d�� de�er giri�lerinde hiç bir sonuç üretmemektedir.Bu nedenle =gelirDuzeyi(F5) vb. �eklinde ça��r�ld��nda hücrede hiç bir sonuç üretmeyecek ve hücre içeri�i bo� kalacakt�r.

Function gelirDuzeyi(maas As Integer) As String
If maas = 0 Then
gelirDuzeyi = "YARDIMA MUHTAÇ"
ElseIf maas > 0 And maas <= 800 Then
gelirDuzeyi = "FAK�R"
ElseIf maas > 800 And maas <= 2000 Then
gelirDuzeyi = "ASGAR� GEL�R DÜZEY�"
ElseIf maas > 2000 And maas <= 5000 Then
gelirDuzeyi = "ORTA GEL�R DÜZEY�"
ElseIf maas > 5000 And maas <= 10000 Then
gelirDuzeyi = "YÜKSEK GEL�R DÜZEY�"
End If
End Function

Üçüncü örne�imizde ise sayfa yerle�tirilen ve name özelli�i btnKontrol olarak ayarlanm�� Command Button nesnesinin click yani t�klama olay�na yaz�lan bu kodlar ile A1 ile A5 aras�ndaki hücrelerin de�erleri kontrol edilmektedir. �ayet bu hücreler veri içermiyor ya da 0 de�erini içeriyorlarsa B sütununda ayn� sat�rdaki hücrede k�rm�z� renkte "GEÇERS�Z DE�ER" bilgisi görüntülenmektedir. Bunlar�n d��ndaki her de�er için ise B sütununda ayn� sat�rdaki hücrenin yaz� rengi ye�ile dönü�türülmektedir. �lerleyen zamanlarda döngüleri ve range nesnesini i�ledi�imizde bu kodlar� daha k�sa ve verimli yazaca��z.

Private Sub btnKontrol_Click()
If Sayfa1.Cells(1, 1))="0" or Sayfa1.Cells(1, 1))="" Then
     Sayfa1.Cells(1, 2).Font.Color = RGB(255, 0, 0)
     Sayfa1.Cells(1, 2) = "GEÇERS�Z DE�ER "
ElseIf Sayfa1.Cells(1, 1))<>"0" or Sayfa1.Cells(1, 1))<>"" Then
     Sayfa1.Cells(1, 2).Font.Color = RGB(0, 255, 0)
ElseIf Sayfa1.Cells(2,1 ))="0" or Sayfa1.Cells(2, 1))="" Then
     Sayfa1.Cells(2, 2).Font.Color = RGB(255, 0, 0)
     Sayfa1.Cells(2, 2) = "GEÇERS�Z DE�ER "
ElseIf Sayfa1.Cells(2, 1))<>"0" or Sayfa1.Cells(2, 1))<>"" Then
     Sayfa1.Cells(2, 2).Font.Color = RGB(0, 255, 0)
ElseIf Sayfa1.Cells(3,1 ))="0" or Sayfa1.Cells(3, 1))="" Then
     Sayfa1.Cells(3, 2).Font.Color = RGB(255, 0, 0)
     Sayfa1.Cells(3, 2) = "GEÇERS�Z DE�ER "
ElseIf Sayfa1.Cells(3, 1))<>"0" or Sayfa1.Cells(3, 1))<>"" Then
     Sayfa1.Cells(3, 2).Font.Color = RGB(0, 255, 0)
ElseIf Sayfa1.Cells(4,1 ))="0" or Sayfa1.Cells(4, 1))="" Then
     Sayfa1.Cells(4, 2).Font.Color = RGB(255, 0, 0)
     Sayfa1.Cells(4, 2) = "GEÇERS�Z DE�ER "
ElseIf Sayfa1.Cells(4, 1))<>"0" or Sayfa1.Cells(4, 1))<>"" Then
     Sayfa1.Cells(4, 2).Font.Color = RGB(0, 255, 0)
ElseIf Sayfa1.Cells(5,1 ))="0" or Sayfa1.Cells(5, 1))="" Then
     Sayfa1.Cells(5, 2).Font.Color = RGB(255, 0, 0)
     Sayfa1.Cells(5, 2) = "GEÇERS�Z DE�ER "
ElseIf Sayfa1.Cells(5, 1))<>"0" or Sayfa1.Cells(5, 1))<>"" Then
     Sayfa1.Cells(5, 2).Font.Color = RGB(0, 255, 0)
End If
End Sub

��in özünü söylemek gerekirse bunlar� uygulamalar üzerinde ele almak daha verimli olacakt�r. Ancak uygulamalarda hadi �imdi if kullanal�m yok olmad� if-else kullanal�m demeyece�iz elbette i�imize geldi�i gibi kodlar� yazaca��z. San�yorum buraya kadar yaz�lanlar if-elseif-then yap�s� için yeterlidir. Kural basit; "bir çok �arttan sadece ilk do�ru �arta ait program kodlar� i�letilir." Bu kadar

Yard�mc� olmas� dile�iyle

Yay�nlad���m t�m makaleler

IF-ELSEIF karar yap�s�

Yay�nlad��m t�m makaleler