EXCEL’DE KENDİ FONKSİYONLARINIZI OLUŞTURUN VE KULLANIN! (UDF)

EXCEL’DE NASIL KENDİ FONKSİYONUMU OLUŞTURABİLİRİM?

Excel’de kendi fonksiyonlarımızı oluşturup kullanabiliriz. Bunun gibi kullanıcının kendisinin oluşturduğu fonksiyonlara UDF yani User Defined Function adı verilmektedir. UDF’lerin nasıl oluşturulduğunu buradaki microsoft’un sayfasından da inceleyebilirsiniz.

Bu sayfamızda Sizin işinize yarayacağını düşündüğümüz UDF’leri bir araya getirip tek bir sayfada istifadenize sunmayı amaçlıyoruz.

EXCEL’DE UDF NASIL TANIMLANIR?

UDF Fonksiyonları tanımlamak için aşağıdaki adımları takip edebilirsiniz;

  • ALT+F11 kısayolunu kullanarak VBA penceresine gidiniz.
  • Insert sekmesinden “Module” seçeneğini seçiniz.
  • Aşağıdaki kodlardan istediğinizi yapıştırınız.
  • Dosyanızı Makro İçerebilen Excel Çalışma Kitabı (*.xlsm) formatında kaydetmelisiniz.

UDF Nasıl Kullanılır?

  • Fonksiyonu kullanmak için kodlarda ilk satırda Function yazan ibarenin hemen sağında tanımlanmış ismi excel hücresine “=” yazdıktan sonra yazdığınızda kullanabilirsiniz.
  • Örneğin: Türkçe karakterleri ingilizceye çeviren fonksiyonu A1 hücresinde kullanmak için A2 hücresine =TurkceToIngilizce(A1) yazabilirsiniz.
Excel Şablonları İNDİRİN!

Türkçe Karakterleri İngilizceye Çeviren Fonksiyon

Bu fonksiyon ile herhangi bir hücredeki metinde yer alan Türkçe karakterleri İngilizce karakterlerine çevirip Büyük Harfle yazdırabilirsiniz.

Function TurkceToIngilizce(ByVal text As String) As String
    Dim turkceChars As String
    Dim ingilizceChars As String
    Dim i As Integer
    
    turkceChars = "çÇğĞıİöÖşŞüÜ"
    ingilizceChars = "cCgGiIoOsSuU"
    
    For i = 1 To Len(turkceChars)
        text = Replace(text, Mid(turkceChars, i, 1), Mid(ingilizceChars, i, 1))
    Next i
    
    TurkceToIngilizce = UCase(text)
End Function

Bir Metinde Kaç Kelime Olduğunu Hesaplayan Fonksiyon

Bu fonksiyon ile herhangi bir hücredeki metinde yer alan kelime sayısını bulabilirsiniz.

Kullanım:
“KelimeSayisi(A1)” şeklinde kullanarak A1 hücresindeki metindeki kelime sayısını elde edebilirsiniz.

Function KelimeSayisi(ByVal Metin As String) As Long
    Dim KelimeArray() As String
    KelimeArray = Split(Trim(Metin), " ")
    KelimeSayisi = UBound(KelimeArray) + 1
End Function

Şablonlarımıza da Göz atmak isterseniz Aşağıdaki linkleri kullanabilirsiniz;

Bizi Takip Edin👇

instagramyoutubelinkedintiktokfacebookudemytwitter