Kullanıcı Tanımlı Fonksiyonlar (User Defined Functions)

Excelde hazır fonksiyonlar yeterli gelmediği zaman ya da sürekli tekrarladığınız bir işlemi artık

tekrar tekrar formül çubuğuna yazmak istemediğiniz durumlarda kendi tanımladığınız fonksiyonları kullanabilirsiniz.

Öncelikle boş bir excel sayfası açalım ve visual basic ekranına girelim (kısayol:alt F11)

Buradan içinde bulunduğumuz excel sayfasına bir modül ekleyerek kod ekranına geçelim.

Burada kolaydan zora doğru sıralanan 3 farklı fonksiyon örneği göreceğiz.

 

1) KDV  hesaplama,

Function kdv 'fonksiyonumuzun adı (a as integer ' hesaplamada kullanacağımız değişken tipi)

kdv= a *0,18

End function

2)  Çok değişkenli sayı tipi sonuç döndüren eğer'li fonksiyon,

Vade aralığına göre çekilen krediye ne kadar faiz ödeyeceğimizi hesaplayalım,

örneğin 12 aya kadar ki vade de fazi oranı % 1, 12 - 24 ay arası %1,2, 24 aydan fazlası % 1,8 faiz olsun,

Function faizhesapla(ByVal anapara As Double, ByVal vade As Integer) As Double

If vade <= 12 Then

faizhesapla = 0.1 * anapara

ElseIf vade <= 24 Then

faizhesapla = 0.12 * anapara

Else: faizhesapla = 0.18 * anapara

End If

 

End Function

şimdi adım adım kodu okumaya çalışalım:

 

Function faizhesapla(ByVal anapara As Double, ByVal vade As Integer) As Double 'bir fonksiyon oluştur adı faizhesapla olsun, dışarıdan tipi double olan ana para ve tipi tam sayı olan vade değerlerini alsın ve sonucu double tipiyle döndürsün.

3) String tipi (sayı olmayan metin olarak) sonuç döndüren bir fonksiyon yazalım,

Öğrencilerin notlarına göre geçti ya da kaldı bilgisi döndüren fonksiyon

Function gectikaldi(ByVal a As Double) As String

Select Case a

Case Is < 40

gectikaldi = "kaldi"

Case Is >= 40

gectikaldi = "gecti"

End Select

End Function