Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara membuat daftar semua tabel pivot dari buku kerja?

Misalkan Anda memiliki buku kerja besar yang berisi beberapa tabel pivot, sekarang, Anda ingin membuat daftar semua tabel pivot di buku kerja ini, apakah mungkin? Tentu saja, kode VBA berikut dalam artikel ini akan membantu Anda. Untuk mengetahui lebih jelasnya, silakan baca artikel di bawah ini.

Buat daftar semua tabel pivot dari buku kerja dengan kode VBA

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2021 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.

panah gelembung kanan biru Buat daftar semua tabel pivot dari buku kerja dengan kode VBA

Kode VBA berikut dapat membantu Anda mencantumkan semua nama tabel pivot beserta atributnya, seperti rentang data sumber, nama lembar kerja, tanggal yang diperbarui, dan sebagainya.

1. Buka buku kerja Anda yang ingin Anda daftarkan semua tabel pivot.

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: Cantumkan semua tabel pivot dari buku kerja

Sub ListPivotsInfor()
'Update 20141112
    Dim St As Worksheet
    Dim NewSt As Worksheet
    Dim pt As PivotTable
    Dim I, K As Long
    Application.ScreenUpdating = False
    Set NewSt = Worksheets.Add
    I = 1: K = 2
    With NewSt
        .Cells(I, 1) = "Name"
        .Cells(I, 2) = "Source"
        .Cells(I, 3) = "Refreshed by"
        .Cells(I, 4) = "Refreshed"
        .Cells(I, 5) = "Sheet"
        .Cells(I, 6) = "Location"
        For Each St In ActiveWorkbook.Worksheets
            For Each pt In St.PivotTables
                I = I + 1
                .Cells(I, 1).Value = pt.Name
                .Cells(I, 2).Value = pt.SourceData
                .Cells(I, 3).Value = pt.RefreshName
                .Cells(I, 4).Value = pt.RefreshDate
                .Cells(I, 5).Value = St.Name
                .Cells(I, 6).Value = pt.TableRange1.Address
            Next
        Next
        .Activate
    End With
    Application.ScreenUpdating = True
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, semua nama tabel pivot, rentang data sumber, nama lembar kerja dan atribut lainnya tercantum dalam lembar kerja baru yang ditempatkan di depan lembar kerja aktif Anda seperti gambar berikut yang ditampilkan:

doc-list-all-pivottable-1


Artikel terkait:

Bagaimana cara memeriksa apakah tabel pivot ada di buku kerja?

Bagaimana cara menambahkan beberapa bidang ke dalam tabel pivot?


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (20)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Barang bagus. Dapat menyertakan cuplikan ini untuk membuat nama tabel pivot menjadi hyperlink. .Cells(I, 1).Parent.Hyperlinks.Add Anchor:=.Cells(I, 1) _ , Address:="" _ , SubAddress:="'" + St.Name + "'!" + Split(pt.TableRange1.Address, ":")(0) _ , TextToDisplay:=pt.Name Dengan .Cells(I, 7).Font .ColorIndex = xlAutomatic .Underline = xlUnderlineStyleNone Diakhiri Dengan .Cells(I, 7).Karakter(Mulai:=1, Panjang:=Len(pt.Nama)).Font .Underline = xlUnderlineStyleSingle .Color = -4165632 Akhiri Dengan
Komentar ini diminimalkan oleh moderator di situs
Что не работает, наверно secara зза того яч нзлллл: рплл: рпллл: рппл: рппллл: рппллл: рппллл: рпплл: рпплллл: рппллл: рппллл: рппллл: Anda tidak akan pernah tahu apa yang harus dilakukan (pekerjaan rumah dan peralatan).
Komentar ini diminimalkan oleh moderator di situs
bagus sekali. terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Ini adalah penemuan besar bagi saya! Seandainya saya telah mencari solusi ini tiga hari yang lalu. Itu akan menyelamatkan saya berjam-jam!! Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Saya perlu memperbaiki file yang memiliki lebih dari 60 tabel pivot di dalamnya. Awalnya mengklik satu per satu untuk memperbaiki ( seperti halnya saat seseorang 'membatalkan tautan' mereka tetapi saya tidak dapat menemukan semua yang salah. Itu menemukan yang terakhir di beberapa kolom yang disembunyikan di aslinya) . Sepotong kode yang bagus!
Komentar ini diminimalkan oleh moderator di situs
Saya telah mencoba menjalankan ini di excel 2013 dan saya mendapatkan kesalahan Run-time '1004': Kesalahan yang ditentukan aplikasi atau yang ditentukan objek. Jika mengomentari baris .Cells(I, 2).Value = pt.SourceData itu akan berjalan dengan baik, dapatkah Anda memberi tahu saya apa yang mungkin perlu saya lakukan agar bagian SourceData berfungsi? Terima kasih Ross
Komentar ini diminimalkan oleh moderator di situs
[kutipan] Saya telah mencoba menjalankan ini di excel 2013 dan saya mendapatkan kesalahan Run-time '1004': Kesalahan yang ditentukan aplikasi atau yang ditentukan objek. Jika mengomentari baris .Cells(I, 2).Value = pt.SourceData itu akan berjalan dengan baik, dapatkah Anda memberi tahu saya apa yang mungkin perlu saya lakukan agar bagian SourceData berfungsi? Terima kasih RossOleh Ross[/quote] Saya mendapatkan kesalahan yang sama. Saya pikir itu mengebom ketika sumber untuk tabel pivot adalah Model Data Excel dan digunakan oleh PowerPivot.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini. Ini adalah bagian kode yang bagus, sangat berguna. Seperti yang telah diposting orang lain, saya pikir itu tidak berfungsi untuk tabel pivot yang sumber data dasarnya didasarkan pada kueri data Hanya Koneksi. Saya memiliki buku kerja dengan satu tabel data. Saya kemudian membuat kueri data buku kerja yang lebih halus berdasarkan data tabel yang satu ini. Kueri hanya koneksi (menghindari peningkatan ukuran buku kerja yang tidak perlu). Saya kemudian membuat tabel pivot yang mengandalkan data dalam kueri buku kerja. Ketika saya menjalankan kode, itu berfungsi dengan baik untuk tabel pivot yang bersumber secara tradisional, tetapi terjadi kesalahan run-time ketika sampai ke tabel pivot berdasarkan data di Kueri Buku Kerja. Secara khusus; itu memberikan kesalahan Run-time "1004": Kesalahan yang ditentukan aplikasi atau objek yang ditentukan. Baris kode di mana kesalahan terjadi adalah: .cells(I, 2).value = pt.SourceData Terima kasih telah memberikan kode dan saya harap di atas membantu Anda memperbaikinya.
Komentar ini diminimalkan oleh moderator di situs
Sangat kuat. Terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Untuk Info Koneksi Saja, Info koneksi data adalah milik PivotCache
Saya memiliki buku kerja yang memiliki lebih dari 40 tabel pivot dengan campuran Tabel Excel dan Koneksi Data server SQL. Saya menggunakan kode berikut untuk melacaknya


Sub GetPivotTableInfo()

Redupkan wb Sebagai Buku Kerja
Redupkan pvt Sebagai PivotTable
Redupkan wsheet Sebagai Lembar Kerja
Redupkan pc Sebagai PivotCache

Atur wb = ActiveWorkbook
Untuk Setiap wsheet Di wb.Worksheets
Untuk Setiap pvt Di wsheet.PivotTables
Debug.Print wsheet.Name & ": " & pvt.Name
Setel pc = wb.PivotCache(pvt.CacheIndex)
Jika pc.SourceType = xlDatabase Kemudian
Debug.Print pc.SourceData
Lain
Jika pc.QueryType = xlOLEDBQuery Kemudian
Debug.Cetak pc.Koneksi
Debug.Print pc.SourceConnectionFile
Debug.Print pc.WorkbookConnection.Name
Debug.Cetak pc.CommandText
End If
End If


Pvt berikutnya
lembar w berikutnya
Komentar ini diminimalkan oleh moderator di situs
Menyelamatkan saya dari sakit kepala parah!
Tidak dapat menemukan tabel pivot yang menyebabkan "Refresh All Error"
Boom Terdaftar dengan lokasi, Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
Luar biasa!!! thksss!!!!
Komentar ini diminimalkan oleh moderator di situs
Ini luar biasa! Saya telah mencari kode seperti ini, tetapi dengan tambahan menampilkan semua bidang aktif per tabel. Saya perlu membersihkan tabel sumber dari bidang yang tidak perlu (terlalu berat) dan mereka memberi makan buku lebih dari 300 pivot. Saya lebih suka untuk tidak pergi satu tabel pivot pada satu waktu untuk mencari tahu bidang mana yang bisa saya hilangkan... Jika Anda bisa menunjukkan caranya, itu akan luar biasa... Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas kirimannya, saya sedikit membersihkan kode dengan mendefinisikan I dan Long dan menghapus referensi ke K karena tidak digunakan. Terakhir saya menambahkan baris tepat di bawah .Activate Anda untuk menampilkan .Columns.AutoFit
Komentar ini diminimalkan oleh moderator di situs
SANGAT berguna untuk dimiliki dalam keadaan darurat! Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Itu Luar Biasa.
Komentar ini diminimalkan oleh moderator di situs
Bantuan besar, menghemat banyak waktu saya melacak salah satu dari sejumlah tabel pivot bernama identik di Buku Kerja!
Komentar ini diminimalkan oleh moderator di situs
menjalankan kesalahan waktu 1004
Komentar ini diminimalkan oleh moderator di situs
Cocok sempurna!! Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
sayangnya saya mendapatkan banyak kesalahan, ini akan sangat bagus untuk buku kerja multi-tab, multi-pivot saya
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL