Bu ipucu, rapor kullanıcılarınızın seçenek düğmelerini kullanarak çeşitli özet tablo biçimleri arasında seçim yapmasına ve ardından özet tabloyu otomatik olarak güncellemesine olanak tanır! (Kullanıcılar, pivot tablo araç çubuğuna gidip her seferinde bir tane seçmek zorunda kalmadan rapor formatı tercihlerine sahip olduklarında kullanışlıdır)
Adım bir:
Pivot tablo rapor çalışma sayfanızın herhangi bir yerine bir seçenek düğmesi (veya birkaç) yerleştirin ve bunları "Rapor Formatı 1", "Rapor Formatı 2" gibi adlandırın…
Bunu "Görünüm > Araç Çubukları > Formlar"a giderek yapın, araç kutusundan "Seçenek düğmesi"ni seçin ve raporunuza sürükleyin.
İkinci adım:
"Araçlar > Makro > Makrolar"a giderek makroyu oluşturun, "Format2" gibi bir ad yazın ve ardından "Oluştur"
Aşağıdaki VB kodunu yazın veya kesip yapıştırın. (Not: Pivot tablonuzun varsayılan adının "PivotTable1" olarak etiketlendiğinden emin olun, pivot tabloda herhangi bir yere sağ tıklayın, 'Tablo Seçenekleri'ni seçin ve "Ad" alanına bakın. Aksi takdirde, değiştirmeniz gerekir. pivot tablonuzun adı ile aşağıdaki koddaki pivot tablo adı):
Alt Format2()
' Format2 Makrosu
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable1").Format xlReport6
Hücreler.Seç
Seçim ile
.HorizontalAlignment = xlGenel
.VerticalAlignment = xlBottom
.WrapText = Yanlış
.Oryantasyon = 0
.AddIndent = Yanlış
.IndentLevel = 0
.ShrinkToFit = Yanlış
.ReadingOrder = xlContext
İle bitmek
Seçim ile
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Yanlış
.Oryantasyon = 0
.AddIndent = Yanlış
.IndentLevel = 0
.ShrinkToFit = Yanlış
.ReadingOrder = xlContext
İle bitmek
Hücreler.Seç
Selection.Columns.Autofit
Aralık("A1").Seçin
Alt Bitiş
~~~~~~~~~~~~~~~~~~~~~~~~~
Aynı kodu kullanarak farklı formatta makrolar oluşturabilirsiniz ve değiştirmeniz gereken tek satır "Format xlReport6"dır. Aralarından seçim yapabileceğiniz yaklaşık 15 rapor formatı vardır. "xlReport(sayı)" değerini 1'den 15'e değiştirmeniz yeterlidir.
Yukarıdaki kod ayrıca sütunları otomatik olarak sığdırır ve rapor biçimlendirildikten sonra metni ortalar.
Adım üç:
Seçenek düğmesine sağ tıklayarak makroyu seçenek düğmesine atayın, "Makro Ata" yı seçin ve az önce oluşturduğunuz makroyu seçin. Bunu seçenek düğmelerinizin her biri için yapın
Bu kadar! Artık bir kullanıcı bir seçenek düğmesini tıkladığında, pivot tablo, makroda kullanılan biçim seçeneğine göre otomatik olarak biçime güncellenecektir. Hangilerinin ihtiyaçlarınıza uygun olduğunu görmek için birkaç rapor stilini test edin ve ardından bunları makrolarınıza ve seçenek düğmelerinize atayın.
Kullanıcılarınız minnettar olacak ve oldukça etkilenecek!
İyi şanlar!
~CJ