Bagaimana cara memeriksa apakah tabel pivot ada di buku kerja?
Jika ada beberapa tabel pivot di buku kerja Anda, dan sekarang, Anda ingin segera mengetahui apakah tabel pivot tertentu ada di buku kerja ini. Biasanya, Anda dapat masuk ke kotak dialog Opsi PivotTable untuk memeriksa nama tabel pivot satu per satu, tetapi ini sangat memakan waktu dan membosankan ketika ada lusinan atau ratusan tabel pivot. Di sini, saya dapat berbicara tentang trik bagi Anda untuk menyelesaikan tugas ini.
Periksa apakah tabel pivot ada di buku kerja dengan fungsi Buatan Pengguna
Periksa apakah tabel pivot ada di buku kerja dengan fungsi Buatan Pengguna
Untuk mengetahui dengan cepat jika tabel pivot ada di buku kerja saat ini, Anda dapat membuat Fungsi Buatan Pengguna untuk mengatasinya.
1. Buka buku kerja yang ingin Anda periksa apakah tabel pivot ada.
2. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.
3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Periksa apakah tabel pivot ada di buku kerja
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. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja Anda, masukkan rumus ini = pivotexist ("salereport") ke dalam sel kosong, lihat tangkapan layar:
Catatan: (1.) Dalam rumus di atas, "laporan penjualan”Adalah nama tabel pivot yang ingin Anda periksa.
(2.) Anda harus memasukkan nama tabel pivot dalam tanda kutip ganda, dan nama harus peka huruf besar / kecil.
5. Setelah memasukkan rumus, kemudian tekan tombol Enter, jika sudah BENAR di sel Anda, tabel pivot ada, jika Anda mendapatkannya SALAH, tabel pivot tidak ada.
Artikel terkait:
Bagaimana cara membuat daftar semua tabel pivot dari buku kerja?
Bagaimana cara menambahkan beberapa bidang ke dalam tabel pivot?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
