PivotTableWizard

Söz dizimi​

ifade.PivotTableWizard(SourceType, SourceData, TableDestination, TableName, RowGrand, ColumnGrand, SaveData, HasAutoFormat, AutoPage, Reserved, BackgroundQuery, OptimizeCache, PageFieldOrder, PageFieldWrapCount, ReadData, Connection)

• SourceType: Verinin türü; isteğe bağlı. xlDatabase (sayfadaki liste ya da veritabanı), xlExternal (başka bir uygulamadaki dış veri), xlConsolidation (birden çok aralığın birleştirilmesi) ve xlPivotTable (başka bir özet tablo) değerlerinden biri olur.
• SourceData: Raporun kaynağı; isteğe bağlı. Genellikle başlık satırını da içeren bir Range nesnesidir. Birleştirmede aralık dizisi, başka bir özet tabloda o tablonun adı verilir.
• TableDestination: Raporun yerleşeceği sayfa aralığının sol üst hücresi; isteğe bağlı. Verilmezse etkin hücre kullanılır.
• TableName: Yeni özet tablonun adı; isteğe bağlı. Verilmezse Excel otomatik ad üretir.
• RowGrand: True ise satırlar için genel toplam gösterilir; isteğe bağlı.
• ColumnGrand: True ise sütunlar için genel toplam gösterilir; isteğe bağlı.
• SaveData: True ise veri, rapor ile birlikte çalışma kitabına kaydedilir; isteğe bağlı.
• HasAutoFormat: True ise rapor yenilendiğinde ya da alanlar taşındığında Excel otomatik biçim uygular; isteğe bağlı.
• AutoPage: Yalnızca birleştirme (xlConsolidation) raporlarında geçerlidir; Excel'in sayfa alanı oluşturup oluşturmayacağını belirler; isteğe bağlı.
• Reserved: Kullanılmaz; boş bırakın.
• BackgroundQuery: True ise sorgu arka planda eşzamansız çalışır; isteğe bağlı.
• OptimizeCache: True ise önbellek oluşturulurken en iyileştirilir; isteğe bağlı.
• PageFieldOrder: Sayfa alanlarının dizilişi; xlDownThenOver (varsayılan) ya da xlOverThenDown.
• PageFieldWrapCount: Rapordaki her sütun ya da satırdaki sayfa alanı sayısı; isteğe bağlı.
• ReadData: True ise dış veritabanındaki verinin kopyasıyla rapor oluşturulur; isteğe bağlı.
• Connection: Dış veri kaynağına bağlantı bilgisini içeren metin; isteğe bağlı.

Dönüş değeri ve kaynak türü sabitleri​

• xlDatabase: Excel çalışma sayfasındaki başlıklı bir liste ya da veritabanı aralığı.
• xlExternal: Başka bir uygulamadan alınan dış veri.
• xlConsolidation: Birden çok çalışma sayfası aralığının birleştirilmesi.
• xlPivotTable: Aynı kitaptaki başka bir özet tablo raporu.

Ne zaman kullanılır, nelere dikkat edilir​

1. Satış listesinden temel özet tablo​

Option Explicit

' Ham listeden özet tablo oluşturur
Sub OzetTabloOlustur()
    Dim ws As Worksheet
    Dim pt As PivotTable

    Set ws = ActiveSheet

    ' Kaynak A1:C9, rapor F1 hücresinden başlar
    Set pt = ws.PivotTableWizard( _
        SourceType:=xlDatabase, _
        SourceData:=ws.Range("A1:C9"), _
        TableDestination:=ws.Range("F1"), _
        TableName:="SatisOzet")

    ' Alan adlarını başlık hücrelerinden alıyoruz
    pt.PivotFields(ws.Range("A1").Value).Orientation = xlRowField
    pt.PivotFields(ws.Range("B1").Value).Orientation = xlColumnField
    pt.PivotFields(ws.Range("C1").Value).Orientation = xlDataField

    ' Raporun kapladığı adresi yaz
    ws.Range("D2").Value = pt.TableRange1.Address
End Sub

2. Sayfa alanı ve genel toplam ayarı​

Option Explicit

' Sayfa alanlı özet tablo ve genel toplam ayarı
Sub BolumOzetiOlustur()
    Dim ws As Worksheet
    Dim pt As PivotTable

    Set ws = ActiveSheet

    ' Sayfa alanı için üstte boşluk kalsın diye F5 seçildi
    Set pt = ws.PivotTableWizard( _
        SourceType:=xlDatabase, _
        SourceData:=ws.Range("A1:C9"), _
        TableDestination:=ws.Range("F5"), _
        TableName:="BolumOzet", _
        RowGrand:=False, _
        ColumnGrand:=True)

    ' Personel satır alanı, Bölüm sayfa alanı
    pt.AddFields RowFields:=ws.Range("A1").Value, _
                 PageFields:=ws.Range("B1").Value

    ' Tutar veri alanı
    pt.PivotFields(ws.Range("C1").Value).Orientation = xlDataField

    ' Ayarların durumunu sayfaya yaz
    ws.Range("D2").Value = pt.RowGrand
    ws.Range("D3").Value = pt.ColumnGrand
End Sub

3. Otomatik biçim, veri kaydı ve işlev değişimi​

Option Explicit

' HasAutoFormat ve SaveData ayarlı, ortalama alan özet tablo
Sub OrtalamaOzetiOlustur()
    Dim ws As Worksheet
    Dim pt As PivotTable

    Set ws = ActiveSheet

    Set pt = ws.PivotTableWizard( _
        SourceType:=xlDatabase, _
        SourceData:=ws.Range("A1:C9"), _
        TableDestination:=ws.Range("F1"), _
        TableName:="AdetOzet", _
        SaveData:=True, _
        HasAutoFormat:=False)

    ' Ay satır alanı, Adet veri alanı
    pt.PivotFields(ws.Range("A1").Value).Orientation = xlRowField
    pt.PivotFields(ws.Range("C1").Value).Orientation = xlDataField

    ' Veri alanının işlevini toplamdan ortalamaya çevir
    pt.DataFields(1).Function = xlAverage

    ' Sonuçları sayfaya yaz
    ws.Range("D2").Value = pt.HasAutoFormat
    ws.Range("D3").Value = pt.SaveData
    ws.Range("D4").Value = pt.TableRange1.Address
End Sub

Kullanırken dikkat edin​

• Kaynak aralığın başlıkları: Kaynak aralığın ilk satırı başlık satırı olmalı ve her başlık dolu ve benzersiz olmalıdır. Boş ya da yinelenen başlıklar hata verir veya alan adlarının karışmasına yol açar. Kaynak aralığı sabit yazmak yerine, veri büyüyecekse bir tablo (ListObject) ya da dinamik bir aralık kullanmak daha güvenlidir.
• Hedef hücre ve çakışma: TableDestination belirtmezseniz rapor etkin hücreye yerleşir. Hedef alan başka bir özet tabloyla çakışırsa makro hata verir. Sayfa alanı kullanacaksanız hedef hücrenin üstünde yeterli boş satır bırakın.
• Aynı adda rapor oluşturmayın: TableName ile verdiğiniz ad, aynı çalışma sayfasındaki başka bir özet tabloyla aynı olmamalıdır. Makroyu birden çok kez çalıştıracaksanız önce varsa eski raporu silin ya da farklı bir ad üretin.
• Alan adlarını doğru yazın: PivotFields içinde alan adı yazarken adın başlık hücresiyle birebir aynı olması gerekir. Türkçe karakter ve boşluk hataları yaygındır. Alan adını başlık hücresinden okumak ya da sıra numarasıyla çağırmak bu hatayı önler.
• Yeni kodlarda tercih edilecek yol: Yeni yazdığınız makrolarda PivotCaches.Create ile önbellek oluşturup CreatePivotTable yöntemini kullanmak, hem daha güncel hem de daha ayrıntılı denetim sağlar. PivotTableWizard yöntemini çoğunlukla eski kodları anlamak ve bakımını yapmak için bilmeniz yeterlidir.
• Kaynak türü sınırları: Yöntem OLE DB veri kaynaklarında kullanılamaz. Dış veri kullanırken Connection, BackgroundQuery ve ReadData parametrelerinin sonuçlarını mutlaka deneyerek doğrulayın; makro dış bağlantıyı açarken kullanıcıdan izin ya da kimlik bilgisi isteyebilir.
• İlgili konular:
  • PivotCaches.Create: Özet tablo önbelleği oluşturan güncel yöntem.
  • PivotCache.CreatePivotTable: Önbellekten özet tablo oluşturur.
  • PivotTable nesnesi: Rapor üzerinde işlem yapmak için kullanılır.
  • PivotFields ve AddFields: Alanları satır, sütun, sayfa ve veri alanı olarak yerleştirir.
  • RefreshTable: Özet tabloyu kaynak veriyle günceller.
  • Ekle > Özet Tablo (Insert > PivotTable): Aynı işlemin arayüzdeki karşılığı.
  • ÖZETVERİAL: Özet tablodan değer çeken çalışma sayfası işlevi.