Pivot tablodaki birden çok öğeyi seçme nasıl devre dışı bırakılır?
Bir pivot tablo oluşturduğumuzda ve filtrelenmiş öğeler seçeneğini belirlediğimizde, ancak siz başkalarının pivot tablonuzdaki orijinal verileri altüst etmek için pivot tablodaki Birden Çok Öğe Seç özelliğini uygulamasını istemiyorsunuz. Bu yazımda pivot tablodaki bu seçeneğin nasıl devre dışı bırakılacağından bahsedeceğim.
VBA kodu ile pivot tablodaki birden çok öğeyi seçmeyi devre dışı bırakın
VBA kodu ile pivot tablodaki birden çok öğeyi seçmeyi devre dışı bırakın
Pivot tablo seçiminin değişmesini önlemek için aşağıdaki VBA kodu Birden Çok Öğe Seç özelliğini devre dışı bırakmanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın:
1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.
2. Tıkla Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Pivot tablodaki birden çok öğeyi seçmeyi devre dışı bırakın
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = False
Next xPF
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve pivot tablodaki filtre ok düğmeleri bir kerede kaldırıldı, ekran görüntülerine bakın:
Notlar:
1. Birden Çok Öğeyi Seç özelliğini yeniden etkinleştirmek isterseniz, lütfen aşağıdaki kodu uygulayın:
VBA kodu: Pivot tablodaki birden çok öğeyi seçmeyi etkinleştirin:
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = True
Next xPF
End Sub
2. Bu kod, yalnızca etkin çalışma sayfasındaki bir pivot tabloya uygulanır.
İlgili yazılar:
Pivot tablodaki genişletme daraltma düğmelerini nasıl gizleyebilirim?
Pivot tablodaki alt toplamlar nasıl gizlenir?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!