Vba i̇şlevinden değer döndürme (örneklerle)

VBA’daki bir işlevden değer döndürmek için değeri işlev adına atamanız gerekir.

Örneğin iki değeri bölmek ve ardından bölme sonucunu döndürmek için aşağıdaki fonksiyonu oluşturabiliriz:

 Function DivideValues(x,y)
    DivideValues = x / y
End Function

Bu fonksiyonun adı DivideValues yani bu fonksiyondan bir değer döndürmek için x/y sonucunu DivideValues’tan aynı isimdeki bir değişkene atamamız gerekiyor.

İşleviniz If Else mantığını içeriyorsa, değeri işlev adına birden çok kez atayabilirsiniz.

Örneğin, sıfıra bölmeye çalışırsanız “Sıfıra bölünemez” ifadesini döndüren veya yalnızca bölme işleminin sonucunu döndüren aşağıdaki işlevi oluşturabilirsiniz:

 Function DivideValues(x,y)
    If y = 0 Then
      DivideValues = " Cannot divide by zero "
    Else
      DivideValues = x / y
    End If
End Function

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA işlevinden değer nasıl döndürülür?

VBA’da A2 hücresinin değerini B2 hücresinin değerine bölmek için bir işlev oluşturmak istediğimizi varsayalım:

Bunu yapmak için aşağıdaki fonksiyonu oluşturabiliriz:

 Function DivideValues(x,y)
    DivideValues = x / y
End Function

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

İşlev, 50’nin 10’a bölünmesinin sonucu olan 5 değerini döndürür.

Ayrıca, böldüğümüz değerin sıfıra eşit olup olmadığını ilk olarak kontrol etmek için If Else mantığını kullanan bir fonksiyon da oluşturabiliriz:

 Function DivideValues(x,y)
    If y = 0 Then
      DivideValues = " Cannot divide by zero "
    Else
      DivideValues = x / y
    End If
End Function

B2 hücresindeki değeri değiştirip bu işlevi bölme işlemi yapmak için kullanırsak aşağıdaki sonucu alırız:

Sıfıra bölmeye çalıştığımız için fonksiyon “Sıfıra bölünemiyor” sonucunu döndürüyor.

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 bir kod bloğuna nasıl yorum yapılır?
VBA kullanılarak dosyanın var olup olmadığı nasıl kontrol edilir
VBA Kullanarak Klasörler Nasıl Oluşturulur