Cara Membuat Pivot Table Menggunakan VBA Excel Dengan Sangat Mudah

Pivot Table adalah suatu fitur dalam Excel yang berfungsi untuk membuat rangkuman, melakukan analisa, eksplorasi data, serta mempresentasikannya.

Dalam kegiatan perkantoran pivot table sangat sering sekali digunakan. Bahkan para penggunanya mulai dari level staff s.d. level direksi. Pivot Table sangat sering digunakan karena kehebatannya dalam analisa data. Dengan Pivot Table suatu data sangat flexible untuk dianalisa.

Namun, jika pivot table dibuat secara langsung dengan menggunakan menu insert, maka kali ini kami akan berbagi cara membuat table dengan cara yang berbeda dari biasanya.

Kali ini web Matematika Akuntansi akan berbagi ilmu tentang cara membuat pivot tabel dengan menggunakan VBA Exel.

Membuat pivot tabel dengan menggunakan pivot tabel biasanya dilakukan untuk pembuatan analisa atas suatu data yang secara rutin dilakukan dan bisa saja mungkin dishare ke Tim tertentu untuk memonitor atas data yang dishare.

Berikut adalah langkah untuk membuat pivot tabel dengan menggunakan VBA Excel :

1. Buka file Ms. Excel yang kalian ingin analisa datanya;

Buat dan pastikan nama Sheet yang pertama adalah Sheet1 dan Sheet selanjutnya adalah Pivot.

2. Buka jendela VBA dengan cara memilih menu Developer → View Code di jendela Ms. Excel;

3. Setelah jendela VBA terbuka maka buat suatu modul untuk memasukan script code dengan cara memilih menu Insert → Module di jendela VBA Excel;

4. Setelah jendela VBA Module terbuka maka masukan script code di bawah ini ke dalam jendela Module;

Sub Percobaan()

'Script membuat pivot cahce

Set PCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, SourceData:=Sheets("Sheet1").UsedRange)

'Script membuat pivot table

Set PTable = PCache.CreatePivotTable(TableDestination:=Sheets("Pivot").Range("A3"), TableName:="Pivot Table1")

'Script memilih kolom yang diinginkan untuk di masukan ke Row Filed

With Worksheets("Pivot").PivotTables("Pivot Table1").PivotFields("Nama Kota")

.Orientation = xlRowField

End With

'Script memilih kolom yang diinginkan untuk di masuka ke Data Filed

With Worksheets("Pivot").PivotTables("Pivot Table1").PivotFields("Nama Kota")

.Orientation = xlDataField

End With

End Sub

Keterangan :

Untuk membuat pivot table, kita harus membuat cache terlebih dahulu sebagai sumber data untuk membuat pivot table;
Setelah cache ditentukan maka kita sudah bisa langsung membuat pivot table dan kemudian setelah itu kalian bisa membuat kolom - kolom yang kalian inginkan untuk dianalisa di pivot table.

5. Untuk menjalankan script code pada point 4, maka kita buat suatu tombol pada sheet baru dengan menggunakan menu Insert → Shape di jendela Ms. Excel dan pilih gambar sesuai keinginan kalian, untuk lebih jelas perhatikan gambar di bawah ini ;

Sheet baru yang dibuat untuk membuat tombol untuk menjalankan macro kita beri nama saja sheet Tombol.

6. Untuk menghubungkan shape ke script yang telah dibuat, maka klick kanan pada shape → pilih Assign Macro → pilih nama macro pada jendela Assign Macro dan klick OK;