Bir çalışma kitabında bir pivot tablonun olup olmadığını nasıl kontrol edebilirim?
Çalışma kitabınızda birden çok pivot tablo varsa ve şimdi, bu çalışma kitabında belirli bir pivot tablonun olup olmadığını hızlıca bilmek istersiniz. Normalde, pivot tablo adını tek tek kontrol etmek için PivotTable Seçenekleri iletişim kutusuna gidebilirsiniz, ancak düzinelerce veya yüzlerce pivot tablo olduğunda bu çok zaman alıcı ve sıkıcıdır. Burada, bu görevi çözmeniz için bir püf noktası hakkında konuşabilirim.
Kullanıcı Tanımlı işlevi olan bir çalışma kitabında bir pivot tablo olup olmadığını kontrol edin
Kullanıcı Tanımlı işlevi olan bir çalışma kitabında bir pivot tablo olup olmadığını kontrol edin
Geçerli çalışma kitabında bir pivot tablonun olup olmadığını hızlı bir şekilde öğrenmek için, onu çözmek için bir Kullanıcı Tanımlı İşlev oluşturabilirsiniz.
1. Pivot tablonun var olup olmadığını kontrol etmek istediğiniz çalışma kitabını açın.
2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.
3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Çalışma kitabında pivot tablo olup olmadığını kontrol edin
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. Ardından bu kodu kaydedin ve kapatın, çalışma sayfanıza geri dönün, bu formülü girin = pivotexist ("salereport") boş bir hücreye, ekran görüntüsüne bakın:
notlar: (1.) Yukarıdaki formülde, "Salereport", Kontrol etmek istediğiniz pivot tablonun adıdır.
(2.) Pivot tablo adını çift tırnak içinde girmelisiniz ve adın büyük / küçük harfe duyarlı olması gerekir.
5. Formülü girdikten sonra, Enter tuşuna basın. DOĞRU hücrenizde pivot tablo var, YANLIŞ, pivot tablo mevcut değil.
İlgili yazılar:
Bir çalışma kitabındaki tüm pivot tabloları nasıl listeleyebilirim?
Pivot tabloya birden çok alan nasıl eklenir?
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!