Vba'da exit if i̇fadesi nasıl kullanılır (örnekle)

VBA’da yerleşik Exit If ifadesi yoktur, ancak GoTo ifadesi ile If ifadesini kullanarak kolayca benzetim yapabilirsiniz.

Aşağıdaki örnek bunun pratikte nasıl yapılacağını göstermektedir.

Örnek: VBA’da Exit IF deyimi nasıl kullanılır?

Diyelim ki kullanıcıdan 10’dan küçük bir tamsayı girmesini isteyen bir makro oluşturmak ve ardından aşağıdakileri yapmak için IF ifadesini kullanmak istiyoruz:

• Girilen tamsayı 10’dan küçükse, bunu 2 ile çarpın ve sonucu A1 hücresinde görüntüleyin.
• Girilen tamsayı 10’dan küçük değilse IF deyiminden çıkın ve bir hata mesajı üretin.

Bunu yapmak için aşağıdaki sözdizimini kullanabiliriz:

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

Bu makroyu çalıştırdığımızda bizden 10:’dan küçük bir tamsayı girmemiz istenecektir.

5 değerini girdiğimizi ve ardından OK tuşuna bastığımızı varsayalım:

Bu tam sayı 10’dan küçük olduğu için alt prosedür girdiğimiz değeri 2 ile çarpacak ve sonucu A1 hücresinde gösterecektir:

Ancak bunun yerine 15 değerini girdiğimizi varsayalım:

Excel’de aşağıdaki mesaj kutusunu alırız:

Girdiğimiz değer 2 ile çarpılmayacak ve A1 hücresinde sonuç görüntülenmeyecektir.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA’da hata durumunda Sub’dan nasıl çıkılır
VBA’da EĞERHATA nasıl kullanılır
VBA kullanarak dosyalar nasıl silinir