Bagaimana cara menambahkan beberapa bidang ke dalam tabel pivot?

Saat kita membuat tabel pivot, kita perlu menyeret bidang ke dalam Label Baris atau Nilai secara manual satu per satu. Jika kami memiliki daftar bidang yang panjang, kami dapat menambahkan beberapa label baris dengan cepat, tetapi bidang yang tersisa harus ditambahkan ke area Nilai. Apakah ada metode cepat bagi kami untuk menambahkan semua bidang lainnya ke dalam area Nilai dengan satu klik di tabel pivot?

Tambahkan beberapa bidang ke dalam area Nilai tabel pivot dengan kode VBA

Tambahkan beberapa bidang ke dalam area Nilai tabel pivot dengan kode VBA

Luar biasa! Menggunakan Tab Efisien di Excel Seperti Chrome, Edge, Firefox dan Safari!
Hemat 50% waktu Anda, dan kurangi ribuan klik mouse untuk Anda setiap hari!

Sayangnya, tidak ada kotak centang bagi kami untuk segera memeriksa semua bidang di Daftar Bidang Tabel Pivot dengan satu klik, tetapi, dengan kode VBA berikut ini dapat membantu Anda menambahkan bidang yang tersisa ke area Nilai sekaligus. Harap lakukan sebagai berikut:

1. Setelah membuat tabel pivot, pertama-tama, Anda harus menambahkan bidang label baris sesuai kebutuhan Anda, dan membiarkan bidang nilai di Pilih bidang untuk ditambahkan ke laporan daftar, lihat tangkapan layar: </ p>

2. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Tambahkan beberapa bidang ke dalam area Nilai tabel pivot di lembar kerja aktif

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, semua bidang yang tersisa telah ditambahkan ke area Nilai pada saat yang sama, lihat tangkapan layar:

Note: Kode VBA ini diterapkan ke semua tabel pivot lembar kerja aktif.

Artikel terkait:

Bagaimana cara membuat daftar semua tabel pivot dari buku kerja?

Bagaimana cara memeriksa apakah tabel pivot ada di buku kerja?

Alat Produktivitas Kantor Terbaik

🤖	Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
	Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
	Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
	Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
	Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
	Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
	15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Read More ... Download Gratis...

---

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!

Read More ... Download Gratis...