Duruma Gore Kod Calistir

Duruma Gore Kod Calistir

Merhabalar arkadaslar, uzun bir suredir konu acamiyordum; aliskanlik haline getirmemek icin bir tane acmak istedim. Takip eden arkadaslar biliyorlar, hem kendi islerim hem sitenin duzenlenmesi dolayisiyla pek yetisemiyorum. Fakat her sey cok guzel olucak 😀

Neyse konumuza donmek gerekirse resimde gostermeye calistigim gibi ornegimiz B3 satirindaki duruma gore kodu calistirip Mustafa mesajini veriyor.. cogaltmak mumkun tabii ama uc farkli durumla  cozume ulasabileceginizi dusundugunuz bir sorununuz oldugunda burda ilk adimi atmak ve dogru yoldan ilerlemek icin kullanilabilecek biryontem var..

Public deger As Integer
'.
Sub durumagorecalis()
'.
deger = Sheets("Sayfa1").[b3]
'.
Select Case deger
Case "1": GoTo 10
Case "2": GoTo 20
Case "3": GoTo 30
End Select
'.
10 MsgBox "Aysan"
Exit Sub
20 MsgBox "Mustafa"
Exit Sub
30 MsgBox "Ferit"
'.
End Sub

Kodumuzu hafiften anlatmak gerekirse “Public deger As Integer” diyerek deger taniminin tum modullerde calismasini sagliyoruz fakat burada bir onemi yok. ” Dim deger As Integer” diyerek Sub actiktan sonrada bu atama yapilabilirdi..

Aslinda soyle bir bakinca anlatilacak birseyde yok kodda; Select Case Aciliyor ve deger degerinin sayi degeri “1,2,3”e gore “10,20,30”a git deniyor..

Bunun disinda benim aktarmak istedigimmbirsey yok arkadaslar on adim olarak basit ve rahat anlasilabilir bir ornekle girdigimizi dusunuyorum, kolay gelsin..
Duruma Gore Kod Satirina Git

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


6 + 9 =