Yayýnladýðým tüm makaleler

IF-THEN karar yapýsý

IF ... THEN þart yapýsýnýn incelenmesi

Þart yapýlarý programlama dillerinin olmazsa olmaz yapýlarýdýr. Bu yapýlar sayesinde programcý program akýþýný yönlendirmektedir. Oldukça basit tanýmlarý olan bu yapýlar sayesinde; bizler doðru bir þekilde kullandýðýmýzda daha modüler kod bloklarý oluþturabilirken, yapacaðýmýz mantýk ya da yazým hatalarý ile de beklenmedik sonuçlar alabiliriz. Burada dikkat edilmesi gereken iki önemli nokta vardýr:
1) Öncelikle kullanacaðýmýz þart cümlesinin mantýðýnýn ve yazým þeklinin doðru olmasý,
2) Þart bloklarýný yazarken bir þair edasý ile deðilde her açtýðýmýz bloðu kapatarak yazdýðýmýzdan emin olmamýzdýr. Þimdi isterseniz ilk temel þart yapýmýz olan if (eðer) yapýsýna kýsaca bir gözatalým.

Þekil-1

Þekil-1 de de verildiði üzere program akýþýnda verilen þart cümlesi doðru ise Ýþlem-1 olarak belirtilen iþlem yapýlmakta aksi durumda program bu yapýyý atlayarak iþlemeye devam etmektedir. Özetle; IF þart THEN Þart saðlandýðýnda gerçekleþtirilecek iþlem þeklide ifade edebileceðimiz bu yapý bir þarta baðlý olarak birden fazla program satýrý iþletilmek istendiðinde IF þart THEN Þart saðlandýðýnda gerçekleþtirilecek ÝÞLEMLER END IF seklinde yazýlýr. Burada Then..end if arasýna istediðiniz kadar program satýrý koyabilirsiniz.

Þimdi buraya kadar kabaca ele aldýðýmýz bu yapýya dair bir kaç basit kod örneði verelim örneklerimizde temel giriþ çýkýþ komutlarýndan msgbox ve inputbox bulunmaktadýr. Bu komutlarý daha sonra teferruatlarý ile anlatacaðým ancak þimdilik msgbox ile kullanýcýya bilgi verme inputbox ile de kullanýcýdan bilgi aldýðýmýzý bilseniz yeterli olacaktýr. Ayrýca Sayfa1 deki B5 hücresi Sayfa1.Cell(5,2) þeklinde ifade edilir ki burada 5 satir numarasi 2 sütun numarasýdýr.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'tikladimiz hucre boþ ise kullanýcýya bilgilendirme mesaji görüntüleniyor.
If ActiveCell.Value = "" Then
MsgBox "Seçtiðiniz hücre veri içermiyor", vbInformation + vbOKOnly, "Bilgi"
End If
End Sub

Private Sub btnExit_Click()
'name ozelliði btnExit olan çýkýþ düðmesi týklandýðýnda kullanýcýdan çýkýþ yapmak isteyip
'istemediði soruluyor. Evet düðmesine basarsa Excel dosyasý kaydedilerek Excel kapatýlýyor.
Dim cevap As VbMsgBoxResult
cevap = MsgBox("Uygulmayý kapatmak istediðinize emin misiniz", vbInformation + vbYesNo, "Dikkat")
If cevap = vbYes Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Private Sub btnSayimi_Click()
'Sayfa1 J10 hücresine sayi girilmisse Sayi giriþi yapýldý mesajý görüntüleniyor.
If isNumeric(Sayfa1.Cells(10, 10)) Then
msgbox "Sayi giriþi yapýldý "
End If
End Sub

Private Sub CommandButton1_Click()
'Sayfa1 A1 hücresindeki sayý sýfýrdan küçük ya da 100 den büyükse B1
'hücresinde "Geçersiz kayit bilgisi" görüntüleniyor.
If Sayfa1.Cells(1, 1) <= 0 Or Sayfa1.Cells(1, 1) > 100 Then
Sayfa1.Cells(1, 2) = "Geçersiz katsayý giriþi"
End If
End Sub

Private Sub CommandButton2_Click()
'Sayfa1 E10 hücresindeki sayý[1000..3000] kapalý aralýðýnda ise F10 hücresinde
'GEÇERLÝ bilgisi görüntülenecektir.
If Sayfa1.Cells(10, 5) >= 1000 And Sayfa1.Cells(10, 5) <= 3000 Then
Sayfa1.Cells(10, 6) = "GEÇERLÝ"
End If
End Sub

Yukarýda verdiðimiz kod örneðini AND (VE) operatörünü kullanmadan aþaðýdaki gibi de yazabilirsiniz.
Private Sub CommandButton2_Click()
If Sayfa1.Cells(10, 5) >= 1000 Then
if Sayfa1.Cells(10, 5) <= 3000 Then
Sayfa1.Cells(10, 6) = "GEÇERLÝ"
End If
End If
End Sub

Dikkat : IF-THEN yapýsý içerisinde AND mantýksal operatörü kullanýlmayacaksa aþaðýda verildiði gibi yazýlacak þart adedi kadar iç içe IF-THEN yapýsý kullanýlmalýdýr.
'AND OPERATÖRÜ KULLANILARAK YAZILAN BÝR ÞART YAPISI
if þart1 And þart3 and þart3 ...then
end if
'AND OPERATÖRÜ KULLANILMADAN YAZILAN AYNI ÞART YAPISI
if þart1 then
if þart2 then
if þart3 then
....
end if
end if
end if

Yardýmcý olmasý dileðiyle