WorksheetFunction

Söz dizimi​

Değişken = Application.WorksheetFunction.IşlevAdı(Arg1, Arg2, ...)

' Örnek
Dim toplam As Double
toplam = Application.WorksheetFunction.Sum(Range("B2:B7"))

• IşlevAdı: Çağırmak istediğiniz çalışma sayfası işlevinin İngilizce adı (Sum, VLookup, CountIf gibi). Türkçe ad (TOPLA, DÜŞEYARA) VBA'da çalışmaz. Zorunludur.
• Arg1, Arg2, ...: İşlevin kendi bağımsız değişkenleri. Aralıklar Range nesnesi olarak, ölçütler ve sabitler metin ya da sayı olarak verilir. Gerekli sayısı işleve göre değişir; isteğe bağlı olanlar atlanabilir.
• Dönüş değeri: İşlevin sonucudur; sayı, metin, mantıksal değer ya da dizi olabilir. Sonucu tutacak değişkenin türü uygun olmalıdır; emin değilseniz Variant kullanın.

Önemli özellikler​

• Application: Nesneyi barındıran Excel uygulamasını (Application nesnesi) döndürür. Salt okunurdur.
• Parent: Nesnenin üst nesnesini döndürür. Pratikte nadiren gerekir.
• Creator: Nesneyi oluşturan uygulamayı belirten sayısal kodu döndürür. Gündelik kodlarda kullanılmaz.

Önemli yöntemler ve olaylar​

• Sum (TOPLA), Average (ORTALAMA), Max (MAK), Min (MİN): Temel toplama, ortalama ve uç değer hesapları.
• Count (BAĞ_DEĞ_SAY), CountA (BAĞ_DEĞ_DOLU_SAY), CountIf (EĞERSAY), SumIf (ETOPLA): Sayma ve koşullu toplama.
• Median (ORTANCA), Large (BÜYÜK), Small (KÜÇÜK): İstatistiksel sıralama işlemleri.
• VLookup (DÜŞEYARA), Match (KAÇINCI), Index (İNDİS): Tabloda arama ve konum bulma.
• Round (YUVARLA), Pmt (DEVRESEL_ÖDEME), Transpose (DEVRİK_DÖNÜŞÜM): Yuvarlama, finans ve dizi işlemleri.

Hata yönetimi: WorksheetFunction ve Application farkı​

Dim sonuc As Variant
sonuc = Application.VLookup("K999", Range("A2:C7"), 3, False)
If IsError(sonuc) Then
    MsgBox "Kayıt bulunamadı"
End If

1. Toplam, ortalama ve uç değerler​

Option Explicit

Sub OzetHesapla()
    Dim ws As Worksheet
    Dim veri As Range

    Set ws = ActiveSheet
    Set veri = ws.Range("B2:B7")

    ' Birden çok işlevi tek blokta çağırıyoruz
    With Application.WorksheetFunction
        ws.Range("E2").Value = .Sum(veri)
        ws.Range("E3").Value = .Average(veri)
        ws.Range("E4").Value = .Max(veri)
        ws.Range("E5").Value = .Min(veri)
    End With
End Sub

2. DÜŞEYARA ile hata yakalama​

Option Explicit

Sub FiyatAra()
    Dim ws As Worksheet
    Dim i As Long
    Dim fiyat As Variant

    Set ws = ActiveSheet

    For i = 2 To 4
        fiyat = Empty

        ' Bulunamazsa VLookup 1004 hatası verir; hatayı yakalıyoruz
        On Error Resume Next
        fiyat = Application.WorksheetFunction.VLookup( _
            ws.Cells(i, 4).Value, ws.Range("A2:C7"), 3, False)

        If Err.Number <> 0 Then
            ws.Cells(i, 5).Value = "Bulunamadı"
            Err.Clear
        Else
            ws.Cells(i, 5).Value = fiyat
        End If
        On Error GoTo 0
    Next i
End Sub

3. Koşullu toplama ve istatistik​

Option Explicit

Sub SehirAnalizi()
    Dim ws As Worksheet
    Dim sehirler As Range
    Dim tutarlar As Range

    Set ws = ActiveSheet
    Set sehirler = ws.Range("A2:A9")
    Set tutarlar = ws.Range("B2:B9")

    With Application.WorksheetFunction
        ' İstanbul satışlarının toplamı (ETOPLA)
        ws.Range("E2").Value = .SumIf(sehirler, "İstanbul", tutarlar)
        ' İstanbul kayıt sayısı (EĞERSAY)
        ws.Range("E3").Value = .CountIf(sehirler, "İstanbul")
        ' Tüm tutarların ortancası (ORTANCA)
        ws.Range("E4").Value = .Median(tutarlar)
        ' İkinci büyük tutar (BÜYÜK)
        ws.Range("E5").Value = .Large(tutarlar, 2)
        ' Ortalamayı tam sayıya yuvarla (YUVARLA)
        ws.Range("E6").Value = .Round(.Average(tutarlar), 0)
    End With
End Sub

Kullanırken dikkat edin​

• İngilizce işlev adı kullanın: VBA'da işlev adları her zaman İngilizcedir ve bağımsız değişkenler virgülle ayrılır. DÜŞEYARA yerine VLookup, EĞERSAY yerine CountIf yazın. Excel'in dil ayarı bunu değiştirmez.
• Aralıklar Range nesnesi olmalı: Aralığı bağımsız değişken olarak Range nesnesiyle verin; metin olarak "B2:B7" yazmak işe yaramaz. Sayfa belirtmezseniz Range etkin sayfayı kullanır. Bu yüzden başka bir sayfadaki veriler için Worksheets("Ad").Range(...) biçimini tercih edin.
• Hata 1004 ve On Error: WorksheetFunction üzerinden çağrılan işlev hata üretirse (DÜŞEYARA'nın değeri bulamaması gibi) makro durur. Bunu On Error Resume Next ile yakalayıp Err.Number değerini denetleyin ya da Application.VLookup biçimini kullanıp IsError ile sınayın. On Error Resume Next kullandıktan sonra hata yönetimini On Error GoTo 0 ile kapatmayı unutmayın.
• Sonuç değer olarak yazılır: Makronun hücreye yazdığı sonuç sabit bir değerdir, formül değildir. Kaynak veri değişince sonuç güncellenmez. Canlı güncellenen sonuç istiyorsanız hücrenin Formula özelliğine formül yazın.
• Her işlev bulunmaz: Tüm çalışma sayfası işlevleri WorksheetFunction üzerinde yer almaz. VBA'nın kendi karşılığı olanlar (Len, Left, Mid, Abs, Now gibi) ve EĞER, VE, VEYA gibi mantıksal işlevler bu nesnede bulunmaz. Yeni sürümlerle eklenen bazı işlevler de sürüme göre eksik olabilir; yazarken açılan liste işlevi göstermiyorsa Application.Evaluate yöntemini deneyin.
• Performans ipucu: Bir hücre döngüsünde her hücre için işlev çağırmak yavaştır. Mümkünse tüm aralığı tek çağrıda işleve verin; örneğin hücreleri tek tek toplamak yerine Sum ile aralığı bir kerede toplayın.
• İlgili konular: Application nesnesi, Range nesnesi, Evaluate yöntemi, Range.Formula özelliği, On Error deyimi, Err nesnesi, IsError işlevi, With deyimi; TOPLA, ORTALAMA, DÜŞEYARA, EĞERSAY, ETOPLA, ORTANCA, BÜYÜK, YUVARLA.